Ubicación de destino, macro copiar
Dante Amor, cono te contaba por mail...
Necesito adaptar mi macro para que copie datos de una hoja a otra pero en una ubicación especifica y que depende de una celda de excel.
Ejemplo...
Empiezo a trabajar colocando el ID de un cliente (numero). Esto me carga sus datos. Hago mi inspección y defino valores nuevos para ese cliente. Estos datos nuevos necesito copiarlos a continuación de los datos ya registrados. Lo estoy haciendo con un botón.
Mi problema es justamente para definir esta ubicación.
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Sub CopiarInformacion()
'Por.Dante Amor
Set h1 = Sheets("Origen")
Set h2 = Sheets("Destino")
ident = h1.[A3]
If ident = "" Then
MsgBox "Captura un ID en al celda A3", vbExclamation
Exit Sub
End If
'
Set b = h2.Columns("A").Find(ident, lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "C") = h1.[C3]
h2.Cells(b.Row, "D") = h1.[D3]
h2.Cells(b.Row, "E") = h1.[E3]
h2.Cells(b.Row, "F") = h1.[F3]
MsgBox "Información copiada", vbInformation
Else
MsgBox "El ID no existe", vbCritical, "ERROR"
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
