Kapalı Dosyadan Veri Alma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Kapalı Dosyadan Veri Alma konusunda elimdeki örneği dosyama uyarlayamadım. Yardımcı olursanız sevinirim. Su_Alacak.xlsm dosyası değerleri Su_2024_07.xlsx dosyasından alacak.
Saygılarımla

 

[tamer42]

Merhaba Arkadaşlar,
Kapalı Dosyadan Veri Alma konusunda elimdeki örneği dosyama uyarlayamadım. Yardımcı olursanız sevinirim. Su_Alacak.xlsm dosyası değerleri Su_2024_07.xlsx dosyasından alacak.
Saygılarımla

dosya adında ".xlsx" uzantısı 2 defa yazılı , dosya adını düzeltip tekrar denerseniz olacaktır.

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
Söylediğiniz gözümden kaçmış, düzelttim. Resimlerdeki hata geldi.
Saygılarımla

 

[tamer42]

Sayın Tamer42 Hocam,
Söylediğiniz gözümden kaçmış, düzelttim. Resimlerdeki hata geldi.
Saygılarımla

Tutar nümerik bir ifade olduğundan , sorgu değerinin önünde ve arkasında tek tırnak işareti olmaması gerekir.
aşağıdaki şeklide düzenleyebilirsiniz.

 WHERE Tutar=Range("F1").Value OR Tutar=Range("F2").Value

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

 

[tamer42]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

sorguyu bu şekilde düzenleyin

   Set Kayit_Seti = Baglanti.Execute("Select [TUTAR] From [Sayfa$] " & _
                        "WHERE Tutar=" & Range("F1").Value & " OR Tutar=" & Range("F2").Value)

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

 

[tamer42]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

sorgudaki sayfa adını: [Sayfa1$]
eksik yazmışım

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

 

[tamer42]

Sayın Tamer42 Hocam,
O satırı değiştirdiğimde resimlerdeki hata geldi.
Saygılarımla

sanırsam
Range("F1") ve Range("F2") hücreleri boş

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
Örnek dosya ilk mesajda zaten. Siz dosyada denediniz de ben mi yapamıyorum?
Saygılarımla

 

[tamer42]

Sayın Tamer42 Hocam,
Örnek dosya ilk mesajda zaten. Siz dosyada denediniz de ben mi yapamıyorum?
Saygılarımla

ben denemiştim,
("F1") ve ("F2") hücreleri dolu mudur?
ekran görüntüsü paylaşır mısınız

 

[Tevfik_Kursun]

Sayın Tamer42 Hocam,
Buyrun, Su_2024_07.xlsx dosyasındaki F2 den itibaren olan değerleri Su_Alacak.xlsm dosyasına F7 den itibaren alacağız.
Saygılarımla

 

[Korhan Ayhan]

@Tevfik_Kursun ,

Su_Alacak.xlsm isimli dosyada sorgu satırında WHERE bölümünde kullandığınız F1 ve F2 hücrelerinde veri olmadığı için hata alıyorsunuz..

Tam olarak hangi kritere göre neyi nereye aktarmak istediğinizi belirtirseniz cevap almanız kolaylaşacaktır.

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Nerede hata var bir türlü bulamadım. Sizin bir çalışmanızdan uyarlamaya çalışmıştım.
Saygılarımla

 

[Korhan Ayhan]

@Tevfik_Kursun ,

Ne nereye hangi kritere göre aktarılacak?

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Geciktim kusura bakmayın, lütfen. İlginize çok teşekkür ederim.
Su_Alacak.xlsm dosyasındaki C sütunundaki değerler, KAPALI.xlsx dosyasında A sütunundalar. Bunlara karşı gelen KAPALI.xlsx dosyasındaki F sütunundaki değerleri, Su_Alacak.xlsm dosyasında F sütununa almak istiyorum.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Veri_Al()
    Dim Baglanti As Object, Kayit_Seti As Object
    Dim WB1 As String, WB2 As String, Sorgu As String

    WB1 = ActiveWorkbook.FullName
    WB2 = ActiveWorkbook.Path & "\KAPALI.xlsx"

    Set Baglanti = CreateObject("AdoDb.Connection")

    Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
                   WB1 & "; Extended Properties=""Excel 12.0;Hdr=Yes"""
    
    Sorgu = "Select T2.[TUTAR] From [" & WB1 & "].[Sayfa1$B6:F] As T1 " & _
            "Left Join " & _
            "[" & WB2 & "].[Sayfa1$A:G] As T2 " & _
            "On T1.[Ortak No] = T2.[ORTAK_NO]"
    
    Set Kayit_Seti = Baglanti.Execute(Sorgu)
    
    Sheets("Sayfa1").Range("F7:F" & Rows.Count).ClearContents
    Sheets("Sayfa1").Range("F7").CopyFromRecordset Kayit_Seti

    Baglanti.Close
    
    Set Kayit_Seti = Nothing
    Set Baglanti = Nothing
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
İlginize çok teşekkür ederim. Düşeyara gibi çalışıyor. Denedim
Saygılarımla

 

[Korhan Ayhan]

Deneyebilirsiniz..