- Katılım
- 11 Mart 2005
- Mesajlar
- 3,027
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Aşağıdaki kod ile bir alandaki 2 ve 3 değerlerini filtre ederek verileri çekebiliyoruz,
yalnız burada Havuz içinde kalan ilk 10 değeri alıp getirmekte;
burada arama yapılan 2 ve 3 değerleri için;
6 adet 3 değerinden, 4 adet 2 değerinden oalcak şekilde yine toplam 10 adet getirmesi sağlanabilir mi?
teşekkürler,
iyi hafta sonları.....
Aşağıdaki kod ile bir alandaki 2 ve 3 değerlerini filtre ederek verileri çekebiliyoruz,
yalnız burada Havuz içinde kalan ilk 10 değeri alıp getirmekte;
burada arama yapılan 2 ve 3 değerleri için;
6 adet 3 değerinden, 4 adet 2 değerinden oalcak şekilde yine toplam 10 adet getirmesi sağlanabilir mi?
teşekkürler,
iyi hafta sonları.....
Kod:
Sub sorguu()
Dim Con As Object
Dim RS As Object
Dim yol As String
Sayfa2.Cells.ClearContents
Set Con = VBA.CreateObject("adodb.Connection")
yol = ThisWorkbook.FullName
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""
sorgu = "select Top 10 * from [Data$] where [Alan1] =2 Or [Alan1] = 3"
Set RS = Con.Execute(sorgu)
Sayfa2.Range("A2").CopyFromRecordset RS
Set RS = Nothing
Set Con = Nothing
End Sub
/code]
Ekli dosyalar
-
16.8 KB Görüntüleme: 5