• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelde sorgulama hk.

Katılım
13 Aralık 2011
Mesajlar
1
Excel Vers. ve Dili
cetin
sayfa 1 de A1:AZ1500 bilgi bulunuyor.
sayfa 2 de aşağıdaki sorguyu çalıştırıp sonuç alıyorum.
sorum; sayfa 2 ye çıkan sonuca bir sorgu daha ekleyebilirmiyim?
yani çıkan sonuçtanda filtreleme yapacam ama başka bir sorgu çalıştırabilirmiyim?

*******
Sub deneme2()
Application.ScreenUpdating = False
Dim aranan$, satir&, bul As Range, ilk_adres$
With Sayfa2
.Range("A4:Z" & .Rows.Count).ClearContents
aranan = .TextBox1.Text
If aranan <> Empty Then
Set bul = Sayfa1.Range("A:BZ").Find(aranan, Lookat:=xlPart)
If Not bul Is Nothing Then
satir = .Cells(.Rows.Count, 2).End(3).Row + 1
ilk_adres = bul.Address
Do
.Range("A" & satir & ":BZ" & satir).Value = Sayfa1.Range("A" & bul.Row & ":BZ" & bul.Row).Value
satir = satir + 1
Set bul = Sayfa1.Range("A:BZ").FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> ilk_adres
End If
End If
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİ"
aranan = Empty: satir = Empty: Set bul = Nothing: ilk_adres = Empty
End Sub

***

teşekkür ederim şimdiden
 
Geri
Üst