Soru Formul Hk

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Formil fonksiyonunu yaptım ancak çalışmıyor, nerede hata yapmış olabailirim acaba yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

örneğin : a1. satırında 1.xlsm yazılı ise b1 satırına =kullanıcı(a1) yazdığımda sonucun Admin vermesi gerekiyor.

Function kullanıcı(a As Integer)
  
    If a = "1.xlsm" Then kullanıcı = "Admin"
    If a = "2.xlsm" And a = "2.xlsm" Then kullanıcı = "Bayram Kara"
    If a = "3.xlsm" And a = "3.xlsm" Then kullanıcı = "Berzan Güzel"
    If a = "4.xlsm" And a = "4.xlsm" Then kullanıcı = "Enis Göç"
 
    
 
    End Function

 

[ÖmerFaruk]

Function kullanıcı(a As Range)
Select Case a.Value
    Case "1.xlsm"
    kullanıcı = "admin"
    Case "2.xlsm"
    kullanıcı = "Bayram Kara"
    Case "3.xlsm"
    kullanıcı = "Berzan Güzel"
    Case Else
    kullanıcı = "Başkası"
End Select
End Function

 

[bulentkars]

Ömer Bey,
Elinize Sağlık Çok teşekkür ederim.