Makroda Sheet kontrolu

[yozdemir]

Sayın Ustalar

Bir excel sayfasında bulunabilecek birden cok "sheet" oldugunu dusunelim.

Örnek olarak bir sayfada "main 1","main 2", şeklinde isimlendirilmiş 2 adet sheet bulunma ihtimali olsun.

Makroda nasıl bir kod ile;

"Main 1" sheetine bak,eger "Main 1" sheeti varsa ... islemlerini yap.
"Main 2" ye bak.Varsa ... islemlerini yap

biciminde bir mantık kurabilir?

Yani önceden belirledigimiz "sheet" isimlerinin olup - olmadığı kontrolunu nasıl yapabiliriz?

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Orion1]

Bu sheet isimleri hangi sütunda?
Hangi sütuna bakılacak?
Yani belirsizlikler var.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SAYFA_ADI_KONTROL()
    For X = 1 To Sheets.Count
    If Sheets(X).Name = "main 1" Then
    MsgBox "ARADIĞINIZ İSİMDE SAYFA BULUNMAKTADIR.", vbInformation
    Exit For
    End If
    Next
End Sub

 

[Zeki Gürsoy]

Sub Test()
Const sh1 As String = "Main 1"
Const sh2 As String = "Main 2"

If Varmi(sh1) Then MsgBox sh1 & " mevcut"
If Varmi(sh2) Then MsgBox sh2 & " mevcut"

End Sub

Private Function Varmi(Txt As String) As Boolean

Varmi = False

For Each sh In ThisWorkbook.Sheets
    If sh.Name = Txt Then
        Varmi = True
        Exit For
    End If
Next

End Function

 

[yozdemir]

Korhan Bey ve Zeki Bey

Yardımlarınız için çok tesekkur ederim