Takvimde Dini ve Resmi Günlerin renklendirilmesi

[sedat2161]

Ekli puantaj dosyamda bulunan Takvim useformundaki takvimdeki dini ve resmi bayramların renklendirilmesi mümkün mü acaba. Yardımlarınızı bekliyorum.

 

[halit3]

kod:
form takvim için

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

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

 

[sedat2161]

kod:
form takvim için

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

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]

Dosyanız ekte

 

[sedat2161]

Dosyanız ekte

Hocam hayırlı sabahlar dosya açılırken hata veriyor.

 

[halit3]

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.