Kullanıcı Tanımlı(Sayfa Sayısı)

[Seyit Tiken]

Herkese Selamlar,
Aşağıdaki formülü "Kullanıcı Tanımlı" fonksiyon şeklinde yazılabilir mi?

=EĞER(B1=0;"Sayfa Boş";EĞER(B1<51;"Sayfa 1";EĞER(B1<101;"Sayfa 2";EĞER(B1<151;"Sayfa 3";""))))

Bu şekilde "Sayfa 10"a kadar gidiyor.

Teşekkür ve Saygılarımı sunuyorum...

 

[Haluk]

Function SayfaSec(Hucre As Range) As String
    Select Case Range("B1")
    Case 0
    SayfaSec = "Sayfa boş"
    Case 1 To 51
    SayfaSec = Sheets(1).Name
    Case 52 To 101
    SayfaSec = Sheets(2).Name
    '......
    '....
    '...
    
    
    End Select
End Function

 

[Haluk]

Veya normal fonksiyonlar ile;

="Sayfa " & nsat(B1/50)

 

[Seyit Tiken]

Teşekkür ediyorum. Allah razı olsun...