Macro copiar contenido de celda
Requiero una macro que valide si un número de factura (Hoja A) se encuentra en otra hoja (Hoja B) de un mismo libro. Si el número es encontrado, debe copiar los datos de la celda B y C (Hoja A) hacia la celda B y C de la Hoja B. La tabla se llena de más números de facturas y la macro debe comparar y llenar cada vez que se haga click en el botón.
1 respuesta
Feliz navidad,
Perdona la tardanza seria de esta manera
SUB COMPDATOS ()
Application.ScreenUpdating = FALSE
Sheets("hojaB").Select
Range("a2").Select
'aneudys01
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value
Set busca = HojaA.Columns(5).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Sheets("hojaB").Select
ActiveCell.Offset(0, 1) = busca.Offset(0, 1)
ActiveCell.Offset(0, 2) = busca.Offset(0, 2)
End If
Sheets("hojaB").Select
ActiveCell.Offset(1, 0).Select
Loop
Sheets("hojaB").Select
Range("a2").Select
MsgBox "informe completado"
Application.ScreenUpdating = True
END SUB
Si te silve no olvides valorar para cerrar la pegunta
