Veri Değişimine Göre CommandButton Renklendirme

yukarıda ki kodu deneyiniz

Hocam kodu çalıştıramadım.Dosyayı eklemenizi rica ederim.Emeğinize sağlık bu arada.

Ekteki dosyayı inceleyiniz...

Emre hocam Userform2 deki commandbuttonlar için kod istemiştim.Sanırım excel sheet içindeki butonlar için olmuş.Bende anlatamamış olabilirim lütfen kusura bakmayın.

Aşağıdaki koda benze bir durum olacak sanırım hocam


Private Sub UserForm_Initialize()

Dim P As Object
Dim Alan As Range

For Each P In Me.Controls
Debug.Print P.Caption
If Left(P.Name, 13) = "CommandButton" Then
For Each Alan In Sayfa1.Range("B2:B" & Sayfa1.Range("B" & Sayfa1.Rows.Count).End(xlUp).Row)
If P.Caption = Alan Then
If Alan.Offset(0, 6) = Alan.Offset(0, 12) Then
P.BackColor = &HFF&
ElseIf Alan.Offset(0, 12) = 0 Then
P.BackColor = &H80FFFF
ElseIf Alan.Offset(0, 12) > 0 And Alan.Offset(0, 12) < Alan.Offset(0, 6) Then
P.BackColor = &H8000&
End If
Else
'Şarta Uymuyorsa
End If
Next Alan
End If
Next P

End Sub