Çözüldü Veri Değişimine Göre Commandbutton Renklendirme

yukarıda ki kodu deneyiniz

cakarem' Alıntı:

Kod:Panoya kopyala

Görüntülemek için giriş yapmalısınız.
(12 satır)

yukarıda ki kodu deneyiniz

Genişletmek için tıklayın ...

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

Ekteki dosyayı inceleyiniz...

cakarem' Alıntı:

Ekteki dosyayı inceleyiniz...

Genişletmek için tıklayın ...

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