Macro que busque un código y reemplace otras celdas
Alguien qué me haga el favor de crear una macro que según un código alojado en la hoja1, celda A2 busque en la matriz hoja2 columna A, si encuentra el resultado copie las celdas A3, A4 y A5 de la hoja1 y reemplace las celdas que encontró con el código mencionado mas arriba en este caso las celdas a reemplazar estarán en una fila (por ejemplo B?, ¿C?, ¿D?
Si todo se reemplaza bien, que muestre un mensaje y si no encontró resultado que muestre otro mensaje.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
2
H o l a
te paso la macro
Sub copia()
'//Por Adriel Ortiz Mangia
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
If h1.[A2] = "" Then
MsgBox "captura un código"
Exit Sub
End If
'
If h1.[A3] = "" Then
MsgBox "captura un dato en A3"
Exit Sub
End If
'
If h1.[A4] = "" Then
MsgBox "captura un dato en A4"
Exit Sub
End If
'
If h1.[A5] = "" Then
MsgBox "captura un dato en A5"
Exit Sub
End If
'
Set r = h2.Columns("A")
Set b = r.Find(h1.[A2], lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "B") = h1.[A3]
h2.Cells(b.Row, "C") = h1.[A4]
h2.Cells(b.Row, "D") = h1.[A5]
MsgBox "Se ha reemplazado con éxito", vbInformation
Else
MsgBox "El código no existe", vbInformation
Exit Sub
End If
End SubPara finalizar hay 2 opciones Excelente o bueno saludos!
