Makro'ya İlave

[1Al2Ver]

Merhaba,

Aşağıdaki kod, "ANASAYFA" B10 "ADMİN" ise aç, değilse açma işlevini gerçekleştiriyor,

Ben "ANASAYFA" B10 "ADMİN" yada "FARUK" ise aç demek istiyorum,

Kod'da nereye ilave yapmak gerekiyor ?

Teşekkür ederim.

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

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()

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

End Sub

Şu şekildi kısaltılırsa kodlar daha anlamlı olur.

Private Sub CommandButton1_Click()

    Dim Kullanan As String
    
    Kullanan = UCase(Replace(Replace(Sheets("ANASAYFA").[B10], "ı", "I"), "i", "İ"))
    ThisWorkbook.Save
    If Kullanan = "ADMİN" Or Kullanan = "FARUK" Then UserForm1.Show

End Sub

 

[1Al2Ver]

Necdet bey merhaba,

Duyarlığınız ve çözüm için çok teşekkür ederim,

Saygılarımla.

 

[Haluk]

Necdet Beyin müsaadesiyle, koddaki küçük/büyük ve Türkçe/İngilizce harf problemini biraz daha kısaltan bir alternatif eklemek istedim;

    Kullanan = [Upper(ANASAYFA!B10)]
    If Kullanan = "ADMİN" Or Kullanan = "FARUK" Then UserForm1.Show

.

 

[Necdet]

Necdet Beyin müsaadesiyle, koddaki küçük/büyük ve Türkçe/İngilizce harf problemini biraz daha kısaltan bir alternatif eklemek istedim;

    Kullanan = [Upper(ANASAYFA!B10)]
    If Kullanan = "ADMİN" Or Kullanan = "FARUK" Then UserForm1.Show

.

Müsade ne demek Haluk Bey,

Bu köşeli parantez çok şeye kaadirmiş onu hep birlikte öğrenmiş olduk

 

[1Al2Ver]

Sayın Haluk merhaba,

Alternatif kod ve ilginiz için teşekkür ederim.

Saygılarımla.

 

[Haluk]

Rica ederim beyler.

Saygı bizden, kolay gelsin ....

.