............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Listar días del mes separados por semanas.

Ver el tema anterior Ver el tema siguiente Ir abajo

Listar días del mes separados por semanas.

Mensaje por Eleovildo el Jue Nov 05, 2009 9:21 pm

Necesito para un reporte listar los dias del mes separados por semanas, tengo una macro que lo hace pero solamente para el mes en curso.
Mi pregunta es : ¿Como hago para que me liste el mes que yo escoja desde una lista desplegable?.

Este es el código que utilizo actualmente:

Código:
Private Sub CommandButton1_Click()
    Dim x As Integer
    Dim iToday As Variant
    Dim iYesterday As Variant
    Application.ScreenUpdating = False


    Range("B7").Select
    Range("B7:B50").ClearContents

    With Selection
        .Formula = Date - Day(Date) + 1
        .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
                    Stop:=DateSerial(Year(Date), 1 + Month(Date), 0)
    End With
    iYesterday = Weekday(ActiveCell.Value, 2)
    Do Until IsEmpty(ActiveCell.Value)
        ActiveCell.Offset(1, 0).Select
        iToday = Weekday(ActiveCell.Value, 2)
        If iToday < iYesterday Then
            ActiveCell.EntireRow.Insert
            With Selection
                .HorizontalAlignment = xlRight
                .Font.Bold = True
            End With
            ActiveCell.FormulaR1C1 = "Sub Total"
            ActiveCell.Offset(1, 0).Select
        End If
        iYesterday = iToday
    Loop
    ActiveCell.FormulaR1C1 = "Sub Total"
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlRight
    End With
    ActiveCell.Offset(1, 0).Select
    ActiveCell.EntireRow.Clear
    ActiveCell.Offset(1, 0).Select

    ActiveCell.FormulaR1C1 = "Total General"
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlRight
    End With
    For i = 0 To 5
        ActiveCell.Offset(1, 0).Select
        ActiveCell.EntireRow.Clear

    Next i
    Range("C7").Select

    Application.ScreenUpdating = True

End Sub

Sub CommandButton2_Click()


    Range("B7").Select
    Range("B7:B50").ClearContents


End Sub

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 35
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por pedrosilv el Jue Nov 05, 2009 10:10 pm

Buenas Eleovildo:

Checa este archivo
A R C H I V O

Es una joya de archivo creado por el maestro Gali. En la pestaña Calendario Matricial se encuentra un calendario donde te da la opción para seleccionar año y mes y adecúa los días por semana.

Espero que pueda servirte.... además, funciona con funciones matriciales..

Saludos

pedrosilv

Masculino Cantidad de envíos : 85
Edad : 31
Ciudad - Pais : Guatemala
Version de Excel : 2003-2007
Fecha de inscripción : 16/04/2009

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por GalileoGali el Jue Nov 05, 2009 11:00 pm

ARCHIVO
Adapte tu codigo, "a la rapida" y carente de elegancia


Última edición por GalileoGali el Dom Nov 08, 2009 10:12 am, editado 4 veces (Razón : Agregue al archivo anterior una solucion con FORMULAS exclusivamente)

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por Eleovildo el Vie Nov 06, 2009 1:16 am

Justo lo que necesito............
Muchas gracias a pedrosilv y a GalileoGali por su pronta respuesta.

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 35
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por Eleovildo el Vie Nov 06, 2009 2:24 am

Analizando el archivo propuesto por pedrosilv hay forma de ajustar esa formula matricial para que los resultados los muestre todos en una columna, es decir los días del mes los liste de arriba hacia abajo.

Lo pregunto porque a cada dia del mes tengo que agregarle valores de inicio, valores finales y diferencia entre estos que son los datos a reportar.

De antemano gracias.

Eleovildo

Eleovildo

Masculino Cantidad de envíos : 6
Edad : 35
Ciudad - Pais : Venezuela
Fecha de inscripción : 16/02/2009

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por GalileoGali el Vie Nov 06, 2009 10:07 am

Si vas a mi Post Anterior, veras que cambie el archivo: ahora en la columna K puse una solucion con Formulas (que varian de acuerdo a los mismos selectores de Mes y Año). La columna M es para mero control y totalmente innecesaria mas alla de eso....

ARCHIVO

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Listar días del mes separados por semanas.

Mensaje por Contenido patrocinado Hoy a las 1:37 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.