Combobox ile farklı sayfalardan arayıp bulma

[balanar]

Dim imar, emlak As Worksheet

Set imar = Sheets("imar")
Set alan = imar.Range("a3:a100")
Set bul = alan.Find(ComboBox1.Value, Lookat:=xlWhole)

For i = 4 To 31
If bul.Offset(1, i - 1) > 0 Then
ComboBox2.AddItem imar.Cells(2, i) & "(" & bul.Offset(1, i - 1) & ")"
End If
Next i

bu kod combobox1 de seçtiğim veriye göre imar adlı sayfada aradığım varsa bulup veriyi getiriyor. Fakat benim birden fazla sayfam var. Örnek olarak imar emlak fen vs gibi.. Çoklu aramasını nasıl sağlayabilirim?

yani atıyorum combobox1 de aradığım veri sonucu, imar sayfasında değilde emlak sayfasında var bunuda bulabilmesini istiyorum gibi..

 

[ÖmerFaruk]

İnceleyin lütfen.

Sub İsimsiz1()
Dim Sayfam As Worksheet
'Kodun çalıştığı aktif sayfa haricindeki tüm sayfaları kontrol eder
For k = 1 To Sheets.Count
    If Worksheets(k).Name = ActiveSheet.Name Then GoTo Devam
    Set Sayfam = Worksheets(k)
    Set Alan = Sayfam.Range("a3:a100")
    Set bul = Alan.Find(ComboBox1.Value, Lookat:=xlWhole)
    For i = 4 To 31
        If bul.Offset(1, i - 1) > 0 Then ComboBox2.AddItem Sayfam.Cells(2, i) & "(" & bul.Offset(1, i - 1) & ")"

    Next i
Devam:
Next k
End Sub

Sub İsimsiz2()
Dim Sayfam As Worksheet
'Sadece imar, emlak, fen isimli sayfalarda çalışır
'arzu ederseniz eklediğim IF satırına benzer şekide diğer sayfaları ekleyebilirsiniz.
For k = 1 To Sheets.Count
    Set Sayfam = Worksheets(k)
    If Sayfam.Name = "imar" Or Sayfam.Name = "emlak" Or Sayfam.Name = "fen" Then
        Set Alan = Sayfam.Range("a3:a100")
        Set bul = Alan.Find(ComboBox1.Value, Lookat:=xlWhole)
        For i = 4 To 31
            If bul.Offset(1, i - 1) > 0 Then ComboBox2.AddItem Sayfam.Cells(2, i) & "(" & bul.Offset(1, i - 1) & ")"
    
        Next i
    End If
Next k
End Sub