Macro para buscar una fecha
Necesitaría un poco de ayuda, necesito una macro para que en la hoja1 celda F1 me coloque la fecha del PC ( osea la del dia en curso )
Después busque en la columa a:a el numero equivalente a la fecha del año ( donde el numero 1 es 1de enero) y traslade a la misma fila de la columna b:b el valor de la celda D1
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Sub BuscarFecha()
'Por.Dante Amor
[F1] = Date
dia = Date - DateSerial(Year(Date), 1, 1) + 1
Set b = Columns("A").Find(dia, lookat:=xlWhole)
If Not b Is Nothing Then
b.Offset(0, 1) = [D1]
Else
MsgBox "En la columna A no existe el número: " & dia
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
