Calendario VBA para formularios (alternativa control dtpicker) 2.0.0

Excelente aporte @Riddle

Aparte me viene genial para mi excel 2013 x64 de casa

Muy buen aporte, más para los que tenemos Office de 64 bits, y que a Microsoft se le ha olvidado que también necesitan de este tipo de complementos.

Buenas Tardes, Creo que estoy haciendo algo mal, pero no se exactamente el que... a ver si me podéis ayudar porque cuando selecciono el Botón una vez ejecutado el formulario me dice que hay un error de compilación: "No se ha definido Sub o Function". 

Saludos y Gracias de Antemano.

Hace 16 horas, Nicomem14 dijo:

Buenas Tardes, Creo que estoy haciendo algo mal, pero no se exactamente el que... a ver si me podéis ayudar porque cuando selecciono el Botón una vez ejecutado el formulario me dice que hay un error de compilación: "No se ha definido Sub o Function". 

Hola @Nicomem14, debes asegurarte de tener activo el complemento y agregarlo a las referencias desde la ventana de VBA.

Saludos.

Corregido el error que marcaba el número de día del mes anterior o siguiente si era igual al número de día actual, gracias @aaquino por avisar.

Saludos.

Mi estimado @Riddle

Solo para comentarte, revisando nuevamente el proyecto, tiene otro pequeño fallo, es mínimo, el inconveniente está en la generación de la primer línea de labels, donde se colocan los días de la semana, pues comienza a nombrar desde el día sábado, por si lo pudieras revisar. Aclaro que coloca bien las fechas, el inconveniente está en los títulos de los días que los comienza por sábado y no por domingo como debiera comenzar.

Para aclarar, ya lo resolví, pero se debe implementar en el proyecto compartido por el buen @Riddle

El inconveniente está en la macro para crear el calendario:

Sub Crea_calendario(): On Error Resume Next

    primerdia = DateSerial(Calendario.AÑO, M, 1)
    primerdia = primerdia - Weekday(primerdia, P_dia)
    
    For Each cl In Calendario.Frame1.Controls: Controls.Remove cl.Name: Next
    
    For h = 1 To 7
        For v = 1 To 7
            dia = dia + 1
            Set c = Calendario.Frame1.Controls.Add("Forms.label.1", "Boton_" & dia)
            With c
                If h = 1 Then
               .Caption = UCase(Application.Text((dia + (P_dia - 1)), "[$-0C0A]ddd")) 'Es en esta línea, se debe eliminar el "-1"
               .Font.Bold = True
                Else
                If Not Month(primerdia + (dia - 7)) = Month(DateSerial(Calendario.AÑO, M, 1)) Then .ForeColor = &H988F8F: .FontItalic = True

                .Caption = Day(primerdia + (dia - 7))
                .ControlTipText = primerdia + (dia - 7)
                 If CDate(.ControlTipText) = CDate(Date) Then .BorderStyle = 1: .BackColor = &HE0E0E0
                 
                 If .ForeColor = vbBlack Then _
                 If CDate(.ControlTipText) = CDate(fecha) Then .BorderStyle = 1
             
                End If
                .Height = 17
                .Width = 20
                .Top = .Height * h
                .Left = .Width * v
                .TextAlign = 2
            End With
        Next v
    Next h
    Calendario.LFecha = UCase(Format(DateSerial(1900, M, 1), "MMMM"))
    Meses
    eventos
End Sub

excelente aporte gracias por compartir desde ahora usare calendario riddle

Hola @AlexanderS

Excelente aporte e idea! Los únicos inconvenientes que le veo es que de entrada este protegido el proyecto, se ve genial el diseño y funcionalidad pero si quisiera personalizarlo, revisar el código o hacer algún cambio, como si esta protegido?. También al tenerlo como un complemento y crear desarrollos haces dependientes a los usuarios de tener que estar llevando el complemento de calendario a cada equipo.

Si te reservas el derecho de compartir el código es entendible, buscare si hay modo de acceder al código, me parece que ya @aaquino lo logro.

Para este caso de desarrollo creo que seria mejor que subieras tu código a gitgub y así cualquiera pudiera modificarlo y mejorarlo. Eso es mucho de lo que le falta a VBA para no estar estancado frente otro lenguajes modernos.

Por ultimo gracias por compartir y Saludos!