Soru Vb Macro

[ddidem]

Merhaba herkese sağlıklı günler! Şirket icin yapmam gereken bir dosya var ve ben stajyerim :/ Yardim eder, fikir verebilirseniz cok sevinirim.

Yapmam gereken A1.xlsx dosyasının Export sheetindeki sutunları, A3.xlsm dosyasındaki Tabelle1'e aktarmak. Aktarıldıktan sonra ise kullanıcı icin bir refresh butonu ile son kaydedileni update etmek. Bunun icin yazdigim kod şu şekilde;

Sub Copy_Method()

Workbooks("A1.xlsx").Worksheets("Export").Range("A1:F21").Copy_
Workbooks("A3.xlsm").Worksheets("Tabelle1").Range ("A1")

End Sub

Bunu bir türlü calistiramadim. Daha baska ne olur aklima da gelmiyor. Refresh kismi ile ilgili bir fikrim yok. Makro record ederek yapmak gelmisti aklima. Yardim ederseniz cok mutlu olurum.. Şimdiden teşekkür ederim.

https://hizliresim.com/xUY0vP (Tablo snapshot'ı eklidir)

 

[hmtstc]

merhaba,

aşağıdaki kodu a3 kitabında çalıştırır mısınız

Sub sorgulama()

Dim son As Long

Dim target1 As String

eski = WorksheetFunction.Max(3, Cells(Rows.Count, "A").End(3).Row)

yol = ThisWorkbook.Path                       ' A1 kitap yolu

hedefkitap = "A1.xlsm"

tümü = yol & "\" & hedefkitap

son = "1048576"

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & tümü & ";extended properties=""Excel 12.0;hdr=No"""


            sorgu = "select F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16,F17,F18,F19,F20,F21" & _

              "from[Export1$A1:U" & son & "] where F1>0"

             Set rs = con.Execute(sorgu)

            Range("A1").CopyFromRecordset rs

    

End Sub

 

[ddidem]

Merhaba, oncelikle teşekkür ederim! Kodu calistirdim ancak "variable not defined" hatası cikiyor. Diger kodda da object not find cikiyordu. Yazdiginiz kodu anlamaya calisiyorum :/

 

[hmtstc]

linkteki dosyayı indirip inceleyiniz.

SORGU.rar dosyasını indir - download

SORGU.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ddidem]

Merhaba, tekrar yaziyorum. Bilgisayarim sirket bilgisayari oldugu icin paylaştıgınız dosyaya erişemiyorum guvenlik sebebiyle. Yardiminiz icin cok tesekkur ederim. Alternatif mail adresim: ineedmatchalove@gmail.com e ilgili dosyayı paylasırsaniz cok harika olur. Çok tesekkur ederim!!

 

[hmtstc]

mail attım