Combobox ile farklı sayfalardan arayıp bulma

balanar

Altın Üye
Katılım
22 Şubat 2021
Mesajlar
347
Excel Vers. ve Dili
Excel 2007
Altın Üyelik Bitiş Tarihi
09-03-2027
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
İnceleyin lütfen.

C++:
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
 
Üst