EXCEL VBA Ingresar mes y y que me muestre los días de ese mes en una Hoja..

Hola Expertos

Me Podrían ayudar con este código

con un inputbox inserto mes y me gustaría que apareciera en la celda A5 los días del mes que ingrese Ejemplo

inputbox ("Ingrese mes" )

=Enero

celda A5

01-ene-14

02-ene-14

03-ene-14

...

y asi todo el mes..

SAludos!..

1 Respuesta

Respuesta
2

Quieres en la celda A5: 01-ene-14 y en la celda A6: 02-ene-14, etc, ¿o quieres todas las fechas en la celda A5?

Saludos. Dante Amor

Hola Sr. Dante

Hacia Abajo..

A5: 01-ENE-14

A6: 02-ENE-14

A7: 03-ENE-14

....

...

ETC..

Saludos!..

Sigue las Instrucciones para ejecutar la macro
1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Sub diasmes()
'Por.DAM
Dim fecha As Date
mes = InputBox("Ingrese mes ej: enero, febrero, etc ")
meses = Array("", "ENERO", "FEBRERO", "MARZO", "ABRIL", "MAYO", "JUNIO", "JULIO", _
              "AGOSTO", "SEPTIEMBRE", "OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
For i = 1 To UBound(meses)
    If meses(i) = UCase(mes) Then dia = Day(DateSerial(Year(Date), i + 1, 1) - 1): Exit For
Next
If dia > 0 Then
    u = Range("A" & Rows.Count).End(xlUp).Row
    If u < 5 Then u = 5
    Range("A5:A" & u).ClearContents
    k = 1
    For j = 5 To 5 + dia - 1
        fecha = k & "/" & i & "/" & Year(Date)
        Cells(j, "A") = fecha
        k = k + 1
    Next
Else
    MsgBox "El nombre de mes capturado no es correcto", vbExclamation
End If
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas