Takvimden seçilen tarihi sabit bir hücreye yazdırma

[Believing]

Sayın uzman arkadaşlar,

Sitedeki örnek çalışmalar ile kendime bir proje yapmaya çalışıyorum.
Bir butona atadığım aşağıdaki alıntı kodlar ile açılan takvimden aktif hücreye tarih yazdırıyorum.
Seçilen tarihi çalışma kitabının "SETTINGS" isimli sayfanın "E5" hücresine yazdırmak istiyorum.
Uzman arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla.
Ömer Ali ÜZÜMCÜ

Örnek Çalışma Linki:

TAKVIM.xlsm dosyasını indir - download

TAKVIM.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Dim CmdButts() As New ClassCommandButts

Private Sub ComboBox1_Change()
    Dim Year1 As Integer, Month1 As Integer, Day1 As Integer
        If ComboBox1.ListIndex > -1 Then
        If ComboBox2.ListIndex > -1 Then
            Year1 = Me.ComboBox2.Value
            Month1 = Me.ComboBox1.ListIndex + 1
            
            LastDayInMonth = Day(DateSerial(Year1, Month1 + 1, 0))
            FirstDayInMonth = Weekday(DateSerial(Year1, Month1, 1), vbMonday)
            
            For i = 1 To 42
                Me.Controls("CommandButton" & i).Caption = ""
                Me.Controls("CommandButton" & i).Enabled = False
            Next
            
            x = 1
            For i = FirstDayInMonth To (LastDayInMonth + FirstDayInMonth - 1)
                Me.Controls("CommandButton" & i).Caption = x
                Me.Controls("CommandButton" & i).Enabled = True
                x = x + 1
            Next
        End If
    End If
SafeExit:
End Sub

Private Sub ComboBox2_Change()
    Call ComboBox1_Change
End Sub

Private Sub UserForm_Initialize()
    Dim i As Byte
    
    ReDim Preserve CmdButts(1 To 42)
    
    For i = 1 To 42
        Set CmdButts(i).MyBut = Me.Controls("CommandButton" & i)
    Next
    
    For i = 1 To 12
        ComboBox1.AddItem Format(DateSerial(2017, i, 1), "mmmm")
    Next

    startYear = 2018
    For i = 1 To 30
        ComboBox2.AddItem startYear + i
    Next
    
    ComboBox1.ListIndex = Month(Now) - 1
    ComboBox2.Text = Year(Now)
    Call ComboBox1_Change
End Sub

 

[byfika]

Merhabalar, ClassCommandButts daki kodu alttaki gibi değiştiriniz.


Private Sub MyBut_Click()
Dim Year1 As Integer, Month1 As Integer, Day1 As Integer, Date1 As Date
Year1 = UserForm1.ComboBox2.Value
Month1 = UserForm1.ComboBox1.ListIndex + 1
Day1 = MyBut.Caption
Date1 = DateSerial(Year1, Month1, Day1)
Cells(5, 5) = Date1
End Sub

 

[Believing]

Sayın byfika,

Yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla.

 

[byfika]

Rica ederim. İyi çalışmalar...