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?