sayfa adı varmı yokmu

[yucel baygul]

ekli dosyada bir liste var bu listede sayfa isimleri varmı yokmu ona bakmak istiyorum. bunu yapabilirimiyim? nasıl yapabilirim?
ilgilenenlere teşekkürler.

 

[fedeal]

Dosyanız ekte,

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kullanıcı tanımlı fonksiyonuda kullanabilirsiniz.

Kodu boş bir modüle ekleyin.

Sayfada kullanım şekli ;

= SAYFA_VARMI(A2)

Option Explicit
 
Function SAYFA_VARMI(SAYFA_ADI As String) As String
    
    Dim SAYFA As Worksheet, KONTROL As Boolean
    
    Application.Volatile
    
    For Each SAYFA In Worksheets
        If SAYFA.Name = SAYFA_ADI Then
        KONTROL = True
        Exit For
        End If
    Next
    
    If KONTROL = True Then
        SAYFA_VARMI = "VAR"
        Else
        SAYFA_VARMI = "YOK"
    End If
    
End Function

 

[Necdet]

Merhaba,

Sayın yurttaş'tan aldığım fonksiyonu ekleyim.

Sub SayfaKontrol()
Dim i As Integer
For i = 2 To [A65536].End(3).Row
    If Not SayfaVarMi(Cells(i, "A")) Then
        Cells(i, "C") = "Yok"
    Else
        Cells(i, "C") = "Var"
    End If
Next i
End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[yucel baygul]

sn fedeal, sn Korhan Ayhan, Necdet Yeşertener ilginize bilginize teşekkürler. yardımcı oldunuz.