Sayfa2 A2 boşsa CommandButton 26 ve 27 pasif olsun

[erzen]

Arakadaşlar şöyle bir kod yazabilir misiniz.
Eğer Sayfa2 a2 boşsa CommandButton 26 ve 27 pasif olsun.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyebilir misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
If Target.Value = "" Then
    CommandButton26.Visible = False
    CommandButton27.Visible = False
Else
    CommandButton26.Visible = True
    CommandButton27.Visible = True
End If
End Sub

 

[erzen]

bahsettiğim kodları userform üzerine koyacağım. Userform initialize kısmına koydum hata verdi.

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
If Sheets("Sayfa2").[A2] = "" Then
CommandButton3.Visible = False
End If
End Sub