Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda con macrro

15/12/2009 - 10:03 por Belinda | Informe spam
Ayuda Hacer una pregunta
...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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
16/12/2009 - 04:23 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :