Takvimde Dini ve Resmi Günlerin renklendirilmesi

Katılım
1 Ekim 2017
Mesajlar
690
Excel Vers. ve Dili
2019 türkçe
Altın Üyelik Bitiş Tarihi
06/10/2023
Ekli puantaj dosyamda bulunan Takvim useformundaki takvimdeki dini ve resmi bayramların renklendirilmesi mümkün mü acaba. Yardımlarınızı bekliyorum.
 

Ekli dosyalar

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,799
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
kod:
form takvim için
Kod:
Private Sub CommandButton44_Click()
Dim x, i, aranan, bulunan
For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row
aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy")
For i = 1 To 42
bulunan = Format(Format(Me.Controls("CommandButton" & i).Caption, "00") & "." & Format(ComboBox2.ListIndex + 1, "00") & "." & ComboBox1.Text, "dd.mm.yyyy")
If aranan = bulunan Then
Me.Controls("CommandButton" & i).BackColor = &HFF00&
End If
Next
Next
End Sub
takvim form için

Kod:
Private Sub CommandButton1_Click()
Dim x, i, aranan, bulunan
For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row
aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy")
For i = 1 To 42
bulunan = Format(Format(Me.Controls("d" & i).Caption, "00") & "." & Format(cmbMonth.ListIndex + 1, "00") & "." & cmbYear.Text, "dd.mm.yyyy")
If aranan = bulunan Then
Me.Controls("d" & i).BackColor = &HFF00&
Exit For
End If
Next
Next
End Sub
 
Son düzenleme:
Katılım
1 Ekim 2017
Mesajlar
690
Excel Vers. ve Dili
2019 türkçe
Altın Üyelik Bitiş Tarihi
06/10/2023
kod:
form takvim için
Kod:
Private Sub CommandButton44_Click()
Dim x, i, aranan, bulunan
For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row
aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy")
For i = 1 To 42
bulunan = Format(Format(Me.Controls("CommandButton" & i).Caption, "00") & "." & Format(ComboBox2.ListIndex + 1, "00") & "." & ComboBox1.Text, "dd.mm.yyyy")
If aranan = bulunan Then
Me.Controls("CommandButton" & i).BackColor = &HFF00&
End If
Next
Next
End Sub
takvim form için

Kod:
Private Sub CommandButton1_Click()
Dim x, i, aranan, bulunan
For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row
aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy")
For i = 1 To 42
bulunan = Format(Format(Me.Controls("d" & i).Caption, "00") & "." & Format(cmbMonth.ListIndex + 1, "00") & "." & cmbYear.Text, "dd.mm.yyyy")
If aranan = bulunan Then
Me.Controls("d" & i).BackColor = &HFF00&
Exit For
End If
Next
Next
End Sub
Hocam bu kodları nereye uygulayacağım.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,799
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Dosyanız ekte
 

Ekli dosyalar

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,799
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Merhaba
Mesaj sayınız baya yüksek olduğundan kodu yukarıya yazmıştım uygulanacak yerin neresi olduğunu yazmışsınız.
Kodları dosyanın içine ekledim bende çalışıyor.
sizdeki dosyada ListView nesnesi hata vermektedir.
bende de hata veriyordu ekledim düzeldi birde referanslarda missing ile başlayan verilerin tikini kaldırın.
inşallah anlatabilmişimdir.

not: sizin göndermiş olduğunuz dosya bende sizdeki hatayı vermişti. çözümü yukarıda yazdım.
 
Üst