LLenar fechas en hoja de caja, error de sintaxis

Hola Xavier,

Simplemente al pasar por la web se ha roto una de las lineas del codigo. Prueba este:

Sub Completa_Fechas()
Application.ScreenUpdating = False
Dim Sig As Integer
With ActiveSheet.Range([a1], _
[a65536].End(xlUp)).SpecialCells(xlCellTypeBlanks)
For Sig = 1 To .Areas.Count
With .Areas(Sig)
.Value = .Offset(-1).Resize(1)
.NumberFormat = .Offset(-1).Resize(1).NumberFormat
End With
Next
End With
End Sub

Por otro lado, yo simplificaria el codigo un pelin:

Sub Completa_Fechas()
Application.ScreenUpdating = False
Dim Sig As Integer
On Error Resume Next 'por si no hay vacios
With ActiveSheet.[A:A].SpecialCells(xlCellTypeBlanks)
For Sig = 1 To .Areas.Count
With .Areas(Sig)
.Value = .Offset(-1).Resize(1)
.NumberFormat = .Offset(-1).Resize(1).NumberFormat
End With
Next
End With
End Sub

Saludos,
KL

"Xavier" wrote in message news:

Hola grupo, hace dias pedi ayuda para llenar las fechas consecutivas en una
hoja de caja. Rapidamente , Hector Miguel, muy agradecido por mi parte,
contestó con la siguiente macro, pero me da "error de sintaxis". Me podeis
ayudar de nuevo??.

Xavier



Sub Completa_Fechas()
Application.ScreenUpdating = False
Dim Sig As Integer
With ActiveSheet.Range([a1],
[a65536].End(xlUp)).SpecialCells(xlCellTypeBlanks)
For Sig = 1 To .Areas.Count
With .Areas(Sig)
.Value = .Offset(-1).Resize(1)
.NumberFormat = .Offset(-1).Resize(1).NumberFormat
End With
Next
End With
End Sub