Macro para buscar, editar y guardar datos de una fila.
Me pueden apoyar con un BUSCARV en VBA que sirva para buscar la inficiona de un código y que sobre la misma fila donde se capturo el código se muestre la información de ese correspondiente.
Después de mostrar la información me deje modificar sobre la fila de búsqueda y guardar la información correspondiente dentro del rango.
Adjunto imagen como ejemplo.
1 respuesta
Respuesta de Dante Amor
1
H o l a : Te anexo las 2 macros.
Pon la siguiente macro en el botón de buscar
Sub BuscarCod()
'Por.Dante Amor
Set cod = Range("B4")
If cod.Value = "" Then
MsgBox "Captura un código", vbExclamation, "BUSCAR"
cod.Select
Exit Sub
End If
'
u = Range("B" & Rows.Count).End(xlUp).Row
Set b = Range("B10:B" & u).Find(cod.Value, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "El código no existe", vbExclamation, "BUSCAR"
cod.Select
Else
Application.ScreenUpdating = False
Range(Cells(b.Row, "C"), Cells(b.Row, "M")).Copy
Range("C4").PasteSpecial xlValues
cod.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End SubPon la siguiente en el botón de guardar
Sub GuardarCod()
'Por.Dante Amor
Set cod = Range("B4")
If cod.Value = "" Then
MsgBox "Captura un código", vbExclamation, "GUARDAR"
cod.Select
Exit Sub
End If
'
u = Range("B" & Rows.Count).End(xlUp).Row
Set b = Range("B10:B" & u).Find(cod.Value, lookat:=xlWhole)
If b Is Nothing Then
MsgBox "El código no existe", vbExclamation, "BUSCAR"
cod.Select
Else
Application.ScreenUpdating = False
Range("C4:M4").Copy
Range("C" & b.Row).PasteSpecial xlValues
cod.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Código guardado", vbInformation, "GUARDAR"
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
