comboboxtaki veri sayfa isimleriyle aynı değilse uyarı ver

[orkuncan5]

Eğer comboboxtaki veri sayfa isimleriyle aynı değilse uyarı ver kodu aşağıdaki gibimi ?

If ComboBox1.Text <> "Sheets("" & ComboBox1.Text & "")" Then
MsgBox ("BU SAYFA YOK")

 

[Ömer]

Merhaba,

    Dim i As Integer, say As Integer
    
    For i = 1 To Worksheets.Count
        If ComboBox1.Value = Sheets(i).Name Then
            say = say + 1
        End If
    Next i
    
    If say = 0 Then
        MsgBox "hata"
    End If

İstediğiniz bu mu?
Not : Soru başlıklarınızı konunun içeriğini ifade edecek şekilde belirlemeye özen göstermenizi rica ederim.

.

 

[ynmcan]

Eğer comboboxtaki veri sayfa isimleriyle aynı değilse uyarı ver kodu aşağıdaki gibimi ?

If ComboBox1.Text <> "Sheets("" & ComboBox1.Text & "")" Then
MsgBox ("BU SAYFA YOK")

Syn. Orkuncan5;
Sayfa isimlerini combobox ta listelesen daha iyi olur diye düşünüyorum.
Ekteki linki nceleyin.http://www.excel.web.tr/f48/comboboxa-sayfa-simlerini-aldyrma-sayfaya-gitme-t92468.html

 

[orkuncan5]

Ömer Bey ve sayın ynmcany örnekleriniz işime yaradı.