Guardar en una celda encontrada con BUSCARV
Le adjunto una captura de lo que ando haciendo:
Se trata de una base que almacena datos de vehículos, tengo el macro guardar que me va llenado la BD con todos los datos de salida hasta ahí todo funciona bien, el tema es que quiero agregar un Kilometraje de llegada, estoy tomando como referencia el numero correlativo creado, con BUSCARV ubico la celda que esta en blanco... "QUISIERA GUARDAR EN ESA CELDA EL KILOMETRAJE DE LLEGADA "
Tengo 3 pestañas:
La base de datos se almacena en la pestaña datos
La celda E27 me ubica la celda en blanco
Esta es mi Base de datos:
Quisiera una macro para agregar Km de llegada desde la Celda E27 de la pestaña registro.
1 respuesta
[Hola
Te paso la macro, crea un botón para actualizar.
Sub actualizar_reg()
'Por Adriel
'
Set h1 = Sheets("Registro")
Set h2 = Sheets("Datos")
'
If h1.[D7] = "" Then
MsgBox "Ingrese codigo "
Exit Sub
End If
'
Set r = h2.Columns("A")
Set b = r.Find(h1.[D7], lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
h2.Cells(f, "H") = h1.[E27]
'
MsgBox "Datos actualizados"
Else
MsgBox "Codigo no encontrado"
End If
End Sub
Valora la respuesta Excelente o bueno para finalizar
Hola Adriel, gracias por ayudar.. ¿Me explicas como funciona el código? ¿Por favor?
[Te explico
Primero buscas el código de línea, como ya tienes la función buscarv te retonará los datos de placa y km.
Como el Km está vacío lo completas. A partir de este punto viene la macro que busca el código en la hoja Datos y lo actualiza el KM del código encontrado.
Te paso la macro creo que la celda buscar línea es D22
Sub actualizar_reg()
'Por Adriel
'
Set h1 = Sheets("Registro")
Set h2 = Sheets("Datos")
'
If h1.[D22] = "" Then
MsgBox "Ingrese codigo "
Exit Sub
End If
'
Set r = h2.Columns("A")
Set b = r.Find(h1.[D22], lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
h2.Cells(f, "H") = h1.[E27]
'
MsgBox "Datos actualizados"
Else
MsgBox "Codigo no encontrado"
End If
End SubValora la respuesta Excelente para finalizar
Creas un botón Actualizar para ejecutar la macro
Genial funciona de maravilla, pero hay un detalle guarda sin bordes, y si quisiera agregar una celda más para fecha de llegada
Después de esta línea
h2.Cells(f, "H") = h1.[E27]
pon
h2.Cells(f, "I") = h1.[E27] ' E27 lo cambias por la celda que tienes la fecha.
sobre los bordes ya sería otra petición para crear una nueva pregunta saludos!
