Creación de Macro para registro de fecha de recepción de facturas.
Necesito una macro que me pueda registrarla fecha de Presentación (celda B8) de un determinado N° de Factura (celda B7)de la hoja “GESTIÓN DE FACTURAS” a la hoja “FACTURAS”, en dicha hoja "FACTURAS" hay varias facturas que han sido registradas previamente y deberá buscar el N° de Factura (columna A) que coincide con la que se está registrando como presentada y que coloque sólo la fecha de presentación.(Columna H)
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo la macro que se coloca en un módulo y se ejecutará desde el botón.
Sub Actualizar()
'x Elsamatilde
'guarda la fecha de presentacion en hoja Factura
'se controla que los 2 campos no estén vacíos
If [B7] = "" Or [B8] = "" Then
MsgBox "Faltan datos para actualizar"
Exit Sub
End If
'se busca el nro en col A de hoja FActura
Set busco = Sheets("FACTURAS").Range("A:A").Find([B7], LookIn:=xlValues, lookat:=xlWhole)
'si encuentra el registro guarda fecha en col H
If Not busco Is Nothing Then
Sheets("FACTURAS").Range("H" & busco.Row) = [B8]
Else
MsgBox "No se encontró el registro buscado"
End If
End SubLa col H ya debiera tener formato fecha.
Sdos y no olvides valorar la respuesta (opciones: excelente o buena)
Elsa
* Cyber-mes en manuales Excel:
