Makro Revize

[metin_0606]

Sub Veri_Aktar()
Sheets("Takip_Listesi").Select
Range("A5:Y65000").ClearContents
Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
"C:\PERSONEL1\deneme.xlsx" & ";extended properties=""excel 12.0;hdr=no;imex=1"""

ilktarih = CLng(CDate(Range("G3").Value))
sontarih = CLng(CDate(Range("H3").Value))
sorgu = "Select f1,f2,f3,f7 from [GRUPLAR$A2:Y65536] WHERE CLng(CDate(f9)) BETWEEN  '" & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f9)"

'f1 demek 1.sütundaki veri demek
rs.Open sorgu, con, 1, 1
Range("a5").CopyFromRecordset rs
rs.Close: con.Close
Set con = Nothing: Set rs = Nothing: sorgu = Empty
 Range("b3").Select
 End Sub

Yukarıdaki makro ile kapalı dosyadan iki tarih aralığındaki verileri çekiyorum. Tablom da F23 sütununda sadece Etkin yazan personelleri getirtmek istiyorum. Makrodaki sorgu satırına F23='Etkin' komutunu nasıl ekleyebiliriz. Yardımlarının için şimdiden teşekkürler

 

[Haluk]

Sorgunun sonuna "and" ile ilave edin ...

.

 

[metin_0606]

Sorgunun sonuna "and" ile ilave edin ...

.

Sorgunun sonuna and F23='Etkin' yaptım hata verdi Haluk bey

 

[Haluk]

Dosyayı ekleyin, duruma bakalım....

.

 

[metin_0606]

Dosyayı ekleyin, duruma bakalım....

.

 

[Haluk]

Dediğimi yapamadınız herhalde.....şöyle olması gerekiyor;

........... & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f9) and F23='Etkin'"

.

 

[metin_0606]

Dediğimi yapamadınız herhalde.....şöyle olması gerekiyor;

........... & ilktarih & "'  and '" & sontarih & "' and NOT isnull(f9) and F23='Etkin'"

.

Haluk hocam Çift tırnaktan sonra yazdığım için hata almışım şimdi oldu Teşekkür ederim Saygılar