Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Excelin Pop-up kalenteri

Jamro [20.09.2017 20:21:55]

#

Mikähän lienee vikana kun Pop-up kalenterin pvm ei siirry Userform1 label1

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

On Error Resume Next
  Sheets("0").Range("E1").Value = Me.MonthView1.Value
     Unload Me
End Sub
Private Sub UserForm_Initialize()

If IsDate(ActiveCell.Value) Then
  Me.MonthView1.Value = ActiveCell.Value
    End If
End Sub

UserForm1

Private Sub CommandButton1_Click()

Sheets("0").Unprotect _
Password:="x"
    Application.Run "'Harjoitus.xlsm'!OpenCalendar"
        Sheets("0").Select
            Label1 = Sheets("0").Range("E1").Value
       Sheets("0").Range("E1") = ""
    Sheets("0").Protect _
    Password:="x"
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta