Excel makro Birden fazla sayfada sorgulama hk.

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 ile sadece imar sayfasını tarıyor. Amacım imar, emlak, fen vb. birden çok sayfada taratmak.. Yardımcı olabilir misiniz?

Bakalım örnek tablo üzerinden var ise

halledildi.

ilk önce sayfa isimlerini liste haline getirin. Sonrasında bu sayfa adlarını bir for döngüsü ile sıra ile yazdığınız koda işlem yaptırın.

Sub Listele()
Dim ws As Worksheet
Dim x As Integer
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next ws

End Sub