- 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
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
