Soru Sayfa adında belirli kelime olan sayfayı Comboboxa almak mümkün mü?

[Hakan ERDOST]

For s = 1 To Sheets.Count
If Sheets(s).Name = "Sınav" Then
              ComboBox4.AddItem Sheets(s).Name
    End If
Next

Kodu ile Comboboxa Sınav adlı sayfayı alıyoruz. İstediğim ise birden çok sınav sayfam olduğu için örneğin Sınav_Matematik_1,Sınav_Matematik_2,Sınav_Matematik_3 ... şeklinde; adında Sınav sözcüğü olan sayfaları almak mümkün mü? Nasıl?
Doğal olarak, bunları bu isimle eklemek mümkün, ancak her sayfa eklemem de kodu açıp ilave etmek program mantığı açısından verimli olmuyor.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

If InStr(1, Sheets(s).Name, "Sınav") > 0 Then

Ya da

If Sheets(s).Name Like "Sınav*" Then

 

[Hakan ERDOST]

Her iki kodda sonuç verdi. Teşekkürler Ömer Bey.

 

[ÖmerBey]

Rica ederim Hakan Bey,
İyi çalışmalar...