Çözüldü Buton rengi

[iucfatih]

Merhabalar. Öncelikle kolay gelsin. Bir userform oluşturdum üzerinde butonlar var sadece. Örneğin a4 hücresinde değer varsa commandbutton1 in rengi gri olsun, yoksa siyah olsun ve pasif hale gelsin tıklanmasın istiyorum. Bu yapılabilirmi? Ona göre örnek dosya ekleyeceğim, evimden uzaktayım başkasının pc sini kullanıyorumda biraz dandik birşey uğraştırıyor

 

[askm]

Örnek dosya eklerseniz yapılması zor değil.
Aşağıdaki kodlar olur.

Private Sub CommandButton1_Click()
MsgBox "İşlem tamam"
End Sub

Private Sub UserForm_Initialize()
If Range("A4") <> "" Then
    CommandButton1.BackColor = 0
    CommandButton1.Enabled = False
Else
    CommandButton1.BackColor = 8882816
    CommandButton1.Enabled = True
End If
    
End Sub

 

[iucfatih]

Örnek dosya eklerseniz yapılması zor değil.
Aşağıdaki kodlar olur.

Private Sub CommandButton1_Click()
MsgBox "İşlem tamam"
End Sub

Private Sub UserForm_Initialize()
If Range("A4") <> "" Then
    CommandButton1.BackColor = 0
    CommandButton1.Enabled = False
Else
    CommandButton1.BackColor = 8882816
    CommandButton1.Enabled = True
End If
   
End Sub

Eline sağlık hocam teşekkür ederim çok güzel çalışıyor istediğim gibi oldu