Form Açan Butona Şart Eklemek

[1Al2Ver]

Merhaba,

Orj.Kod ;

Private Sub CommandButton1_Click()
ThisWorkbook.Save
UserForm1.Show
End Sub

İsteğim,

Eğer StatusBar'daki isim "ADMİN" ise formu aç,

Aşağıdaki eklemeleri yaptım ancak sonuç elde edemedim,

Private Sub CommandButton1_Click()
ThisWorkbook.Save
[COLOR="SeaGreen"]'If Application.StatusBar = "Admin" Then[/COLOR]
UserForm1.Show
[COLOR="seagreen"]'End If[/COLOR]
End Sub

NOT ; İlave edilecek komut StatusBar yerine ; "ANASAYFA" sayfasında B10="ADMİN" ise şeklinde de olabilir.

Teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
ThisWorkbook.Save
If UCase(Replace(Replace(Sheets("ANASAYFA").[B10], "ı", "I"), "i", "İ")) = "ADMİN" Then
UserForm1.Show
End If
End Sub

.

 

[1Al2Ver]

Sayın Ömer merhaba,

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

Saygılarımla.