Fran Riveiro

Existen varias posibilidades... una macro que te meta el código solo en donde sea necesario o bien combinar la función si con el buscarV, es decir, rellenas todas las celdas con la fórmula hasta donde quieras pero en vez de poner:...

Sub GuardarFactura() Dim ActDIR, newDir, newFile As String Sheets("Factura").Select Sheets("Factura").Copy ActDIR = CurDir newDir = "C:\Facturas Lorca\Facturas" newFile = Range("BI1").Value & ".xls" If newFile <> "" Then If Right(newDir, 1) = "\"...

¿Has puesto que el campo es de formato fecha o lo has dejado tipo texto? Eso puede solucionar tu problema...

Private Sub Workbook_Open() Dim hora hora = "0" For Each celdita In ActiveSheet.Range("b3", Range("b3", Range("b3").End(xlDown))) If celdita.Offset(0, -1).Value <> "" Then If celdita.Offset(0, -1).Value > Date Then celdita.Offset(0, -1).Select...