Kitaptaki objenin tipi?

[hsayar]

Merhabalar,
Aşağıdaki kod ile Kodun bulunduğu çalışma kitabında metine sahip Çalışma sayfası, grafik vs... isminde obje olup olmadığını kontrol edebiliyorum...
Peki tip değişkenine Objenin grafik sayfasımı, çalışma sayfasımı, makro sayfası mı olduğunu belirtir değeri nasıl eklerim type denedim ama istediğim sonucu alamadım

Sub Sayfa_Varmı()
'Aktif Çalışma Kitabında istenilen metne sahip dosya varsa 1, yoksa 0 döndürür
'            For Each sayfa In ThisWorkbook.Worksheets
Dim Var As Byte
Dim metin$
metin = "Sayfa1"
For Each clsObj In ActiveWorkbook.Sheets
    If clsObj.Name = metin Then
        Var = Var + 1
        [B][COLOR=Red]Tip = 0[/COLOR][/B]
    End If
    If clsObj.Name <> metin Then Var = Var + 0
Next
Set clsObj = Nothing
MsgBox Var & " " & Tip
End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi deneyiniz.

Dim obj As Object
For Each obj In ThisWorkbook.Sheets
    MsgBox TypeName(obj)
Next

 

[hsayar]

Teşekkürler Hocam

Sub Sayfa_Varmı()
'Aktif Çalışma Kitabında istenilen metne sahip dosya varsa 1, yoksa 0 döndürür
'            For Each sayfa In ThisWorkbook.Worksheets
Dim Var As Byte
Dim metin$
metin = "İletişim Kutusu1"
For Each clsObj In ActiveWorkbook.Sheets
    If clsObj.Name = metin Then
        Var = Var + 1
        Tip = TypeName(clsObj)
    End If
    If clsObj.Name <> metin Then Var = Var + 0
Next
Set clsObj = Nothing
MsgBox Var & " " & Tip
End Sub

 

[veyselemre]

Aşağıdaki kodla da Makro Sayfası (makro sayfasının ne işe yaradığını bilmiyorum, Ctrl+F11 le eklenebiliyor) ve Worksheet ayrımını da yapabilirsiniz.

Sub Sayfa_Varmı()
Dim Var As Byte
Dim metin$
    'metin = "Makro1"
    'metin = "Grafik1"
    'metin = "Sayfa1"
    metin = "olmayanSayfa1"
    Tip = 0
    For Each clsObj In ActiveWorkbook.Sheets
        If clsObj.Name = metin Then
            If TypeName(clsObj) = "Chart" Then
                    Tip = 2
            ElseIf TypeName(clsObj) = "Worksheet" Then
                On Error Resume Next
                If clsObj.CodeName = "" Then
                        Tip = 3
                Else
                     Tip = 1
                End If
                On Error GoTo 0
            End If
        End If
    Next
    Set clsObj = Nothing
    MsgBox "SheetAdı : " & metin & vbCr & "tip (0=Sayfa Yok, 1=Worksheet, 2=Chart, 3=Makro) : " & Tip
End Sub

 

[hsayar]

evet hocam bende farkettim ama fazla kullanmadığım için üzerine düşmemiştim bir de iletişim sayfası var ve makro sayfalarıda iki çeşit bunların arasında eklenebilen
Alakanız için teeşkkürler