Ayuda con macrro

hola, alonso !

... He recuperado macro... 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 instruccion de la macro, pero con tantas comas, parentesis y comillas no me aclaro...

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

On 16 dic, 04:23, "Héctor Miguel"
wrote:

hola, alonso !

> ... He recuperado macro... 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 instruccion de la macro, pero con tantas comas, parentesis y comillas no me aclaro...

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

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