Forums Últimos mensajes - Powered by IBM
 

No funciona macro poner fecha

07/09/2008 - 17:31 por GR | Informe spam
Buen dia a todos

Estoy tratando de hacer una macro para poner en a3 en adelante la fecha que
yo le indique mediante el inputbox por ejemplo si le indico que me ponga del
dia 1 de marzo al 3 de marzo me pone la fecha dela siguiente manera:
A3 29/02/2008 lo correcto es 01/03/2008
A4 01/03/2008 02/03/2008
A5 02/03/2008 03/03/2008
A6 03/03/2008

La macro es la siguiente:
Sub fecha()
Dim numero, final, mes As Integer
mes = Val(InputBox("Ingrese un mes", "Captura"))
final = Val(InputBox("Ingrese el ultimo dia", "Captura"))
For i = i To final Step 1
Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
Next i
End Sub

Les agradezco de antemano sus comentarios y/o ayuda

Saludos
 

Leer las respuestas

#1 Infinitogool
07/09/2008 - 18:02 | Informe spam
Hola GR
cambia las lineas
For i = i To final Step 1
Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
por
For i = 1 To final Step 1
Cells(i + 2, 1).Value = DateSerial(Year(Date), mes, i)

un saludo
Pedro J.


Buen dia a todos

Estoy tratando de hacer una macro para poner en a3 en adelante la fecha que
yo le indique mediante el inputbox por ejemplo si le indico que me ponga del
dia 1 de marzo al 3 de marzo me pone la fecha dela siguiente manera:
A3 29/02/2008 lo correcto es 01/03/2008
A4 01/03/2008 02/03/2008
A5 02/03/2008 03/03/2008
A6 03/03/2008

La macro es la siguiente:
Sub fecha()
Dim numero, final, mes As Integer
mes = Val(InputBox("Ingrese un mes", "Captura"))
final = Val(InputBox("Ingrese el ultimo dia", "Captura"))
For i = i To final Step 1
Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
Next i
End Sub

Les agradezco de antemano sus comentarios y/o ayuda

Saludos

Preguntas similares