Ayuda con macrro

15/12/2009 - 10:03 por Belinda | Informe spam

...A ver si podéis ayudarme por favor. He recuperado macro, obra de KL
hace ya bastantes años, que he querido adaptar para que copie en la
columna I los datos que hay en las celdas F+G+H, empezando en la fila
2

Creo que me falta algo en la ultima instrucción de la macro, pero con
tantas comas, paréntesis y comillas no me aclaro..

Sub Suma_Instalacion()
Dim Rng As Range
Dim strRng1 As String
Dim strRng2 As String
Dim strRng3 As String
Dim strRng4 As String

With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End
(xlUp))
End With

strRng1 = Rng.Address(, , , 1)
strRng2 = Rng.Offset(, 5).Address(, , , 1)
strRng3 = Rng.Offset(, 6).Address(, , , 1)
strRng4 = Rng.Offset(, 7).Address(, , , 1)

Rng.Offset(, 8) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2 &
"+" & strRng3 & ","""")")
End Sub

Gracias por la ayuda

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

16/12/2009 - 04:23 | Informe spam

hola, alonso !

Mostrar la cita
en la ultima instruccion la macro esta depositando en la columna "I" => .offset(, 8) el resultado (NO la formula) de preguntar:
a) si la columna "A" no esta vacia => "IF(" & strRng1 & "<>"""","
b) SUMA la columna "F" + la "G" => strRng2 & "+" & strRng3

entonces... cual es la intencion que buscas con las modificaciones a "la macro" (???)

saludos,
hector.

__ el codigo expuesto __
Sub Suma_Instalacion()
Dim Rng As Range
Dim strRng1 As String
Dim strRng2 As String
Dim strRng3 As String
Dim strRng4 As String
With ActiveSheet
Set Rng = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
End With
strRng1 = Rng.Address(, , , 1)
strRng2 = Rng.Offset(, 5).Address(, , , 1)
strRng3 = Rng.Offset(, 6).Address(, , , 1)
strRng4 = Rng.Offset(, 7).Address(, , , 1)
Rng.Offset(, 8) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2 & "+" & strRng3 & ","""")")
End Sub

Responder a este mensaje

#2 Belinda

23/12/2009 - 09:58 | Informe spam

On 16 dic, 04:23, "Héctor Miguel"
wrote:
Mostrar la cita
Hola Héctor...

He estado de viaje y no me acordaba ya de este asunto...el caso es que
(como muchas vece me pasa) empiezo a hacer malabarismos con las líneas
de las macros y a a veces acierto...Lo que yo quería es esto:

Rng.Offset(, 8) = Evaluate("IF(" & strRng1 & "<>""""," & strRng2 & "+"
& strRng3 & "+" & strRng4 & ","""")")
'se posicona 8 celdas a la derecha de A y evalúa que en A haya
algo para sumar F+G+H'

..el macro no me sumaba lo que hay qne Rng4

Gracias y feliz Navidad

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida