Kritere Gore Suz Aktar

[Eser Gökay]

Arkadaslar merhabalar

Süzerek aktarma ile ilgili yardıma ihtiyacım var.

tesekkur eder iyi calismalar dilerim.

 

[Levent Menteşoğlu]

M sütunundaki başlığı "Fatura Bedeli1", N sütunundaki başlığıda "Fatura Bedeli2" olarak değiştirilerek ADO ile yapılan çözüm ektedir.

Sub verilerial()
Set s1 = Sheets("veriler")
Set s2 = Sheets("cariler")
s2.[B4:G20203].ClearContents
Set Baglanti = CreateObject("ADODB.Connection")
yol = "Driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName
Baglanti.Open yol
aranan = "SELECT [Alıcı/Satıcı],[Fatura Tarihi],[Fatura No'su],[Özel Açıklama],[Fatura Bedeli1],[Fatura Bedeli2] FROM [Veriler$B3:N20205] WHERE [Cari]='E'"
Set Rs = Baglanti.Execute(aranan)
s2.[b4].CopyFromRecordset Rs
Rs.Close
Baglanti.Close
End Sub

Not: Sorularınızı, cevaplayacak kişide tereddüt bırakmayacak kadar detaya girerek açıklamanız nedeniyle çok teşekkür ederim. Bu soru sorma şeklinizin tüm üyelere örnek olmasını dilerim.

 

[Eser Gökay]

üstadım cevabınız için çok tesekkur ederim. örnek dosyanızda kodlar gayet iyi çalışırken verilerimi yerlerine koyunca nedense calismadi. hucreleri değerleri yapıştırla aldım. dosyada gerekli açıklamayı yaptım.

Not:

Sorularınızı, cevaplayacak kişide tereddüt bırakmayacak kadar detaya girerek açıklamanız nedeniyle çok teşekkür ederim. Bu soru sorma şeklinizin tüm üyelere örnek olmasını dilerim.

bu nazik sözleriniz için asıl ben teşekkür ederim.

 

[Eser Gökay]

arkadaslar tum ugraslarıma olayı cozemedım. yardımlarınızı rica ederim.