Copiar la fecha que tengo en I1 en la hoja ENVÍOS en la columna O de la hoja ENVIOS antes del End If
Copiar la fecha que tengo en I1 en la hoja ENVÍOS en la columna O antes del End If, También quiero copiar la fecha de la misma celda I1 de la hoja ENVÍOS en la hoja ARTÍCULOS en la columna O de los artículos que se localizaron antes, no se si me he explicado bien, envio imagen de las 2 hojas.
Adjunto macro:
Sub BuscarCopiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("ENVIOS")
Set h2 = Sheets("ARTICULOS")
'
For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("E").Find(h1.Cells(i, "E"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Rows(b.Row).Copy
h1.Rows(i).PasteSpecial xlValues
End If
Next
[E1].Select
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Búsqueda terminada"
End Sub
1 Respuesta
H o l a:
Te anexo la macro actualizada
Sub BuscarCopiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("ENVIOS")
Set h2 = Sheets("ARTICULOS")
'
For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("E").Find(h1.Cells(i, "E"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Rows(b.Row).Copy
h1.Rows(i).PasteSpecial xlValues
h2.Cells(b.Row, "O") = h1.[I1]
h1.Cells(i, "O") = h1.[I1]
End If
Next
[E1].Select
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Búsqueda terminada"
End Sub
