Hücredeki İsime Göre Aktif yada Pasif Olacak CommandButton

[1Al2Ver]

Merhaba,

"ANASAYFA" isimli sayfamda, "K10" hücresine makro ile aldığım bir veri (isim) var,

"ANASAYFA" sayfasında da 3 adet CommandButton'um var,

İsteğim ;

Örneğin, "K10" hücresi "Mehmet" ise, CommandButton1, pasif (yada olabiliyor ise Transparent) olsun, diğer isimlerde CommandButton1 aktif / görünür olsun,

Önerilen kodu 3 CB için uygulayacağım,

Teşekkür ederim.

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K10")) Is Nothing Then Exit Sub
If Target.Value = "Mehmet" Then
    Sayfa1.CommandButton1.Enabled = False
Else
    Sayfa1.CommandButton1.Enabled = True
End If
End Sub

 

[Suskun]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If [K10] = "Mehmet" Then
       CommandButton1.Enabled = False
   Else
      CommandButton1.Enabled = True
   End If
End Sub

 

[1Al2Ver]

Sayın Orion1 merhaba,

İlginiz ve çözüm için teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Sayın Suskun merhaba,

İlginiz ve çözüm için teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Tekrar merhaba,

Düğmeler ile sayfalara gidiyorum, ancak önerilen CB koduna ilave yapılarak sayfaya gitmek istiyorum,

Çözüm kodunuza, aşağıdaki gibi bir kod ilave edip,

Aktif olmuş CB'a tıklayınca anılan sayfanın açılmasını sağlayabilir miyiz ?

Teşekkür ederim.

Sub GİRİŞE_GİT()
For Each Sayfa In Worksheets
If Sayfa.Name <> "ANASAYFA" Then
Sayfa.Visible = xlVeryHidden
End If
If Sayfa.Name = "GİRİŞ" Then
Sayfa.Visible = True
End If
Next
Sheets("GİRİŞ").Select
End Sub

 

[Orion1]

buyurun.

Private Sub CommandButton1_Click()
Sheets("ÇIKIŞ").Select
End Sub

 

[1Al2Ver]

Sayın Orion1 tekrar merhaba,

Teşekkür ederim, sağ olun.

Saygılarımla.