Kapalı dosyaya veri aktarım yardım

[acetinnster]

Merhaba arkadaşlar
Uzun uzun araştırdım forum da da konu ile ilgili açıklamalar var ancak başaramadım
Yapmak istediğim şu
Açık dosyadan kapalı dosyaya veri yazdırma
Eğer yardımcı olabilecek var sa açıklamaya çalışayım
Çalışma sayfasından
AZ6 hücresi = diğer sayfada A2 ye
AZ7 hücresi = diğer sayfada B2 ye
B10 hücresi = diğer sayfada C2 ye
BF46 hücresi = diğer sayfada D2 ye

veri aktarımı ile ilgili yardım forum da bahsedilliyor açılıp kapanması gerekiyor diye inanın kafam çok karıştı.

Bir de aktarılan veri dosyasında da alt alta devam etmesi gerekiyor.

 

[askm]

Örnek dosyalarınızı eklerseniz yardımcı olmaya çalışalım.

 

[acetinnster]

Örnek dosya

Arkadaşlarım ustalarım örnek dosyam ek tedir.
Emeği geçen herkese teşekkür ederim.

 

[askm]

Aşağıdaki kodlar işinize yarar sanırım.

Option Explicit
Private Sub CommandButton1_Click()
Dim aktif_Ktp, SayfaAdi, Kayit_syf
Dim SonSatir
Dim dosya_yeri, dosya
aktif_Ktp = ThisWorkbook.Name
Kayit_syf = "PROFORMA"
dosya_yeri = ThisWorkbook.Path & "\"
dosya = "SİPARİŞLER.xlsm"
SayfaAdi = "AÇIK SİPARİŞLER"
Workbooks.Open (dosya_yeri & dosya)

Workbooks(dosya).Sheets(SayfaAdi).Range("A2") = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("AZ6")
Workbooks(dosya).Sheets(SayfaAdi).Range("B2") = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("AZ7")
Workbooks(dosya).Sheets(SayfaAdi).Range("C2") = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("B10")
Workbooks(dosya).Sheets(SayfaAdi).Range("D2") = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("BF46")

Workbooks(dosya).Save
Workbooks(dosya).Close
End Sub

 

[cems]

http://www.excel.web.tr/f59/acylan-konu-ba-lyoyny-duzeltmek-t81476.html

cevap gelse de soru " forum kurallarına uymayan başlık " yuzünden kaldırılabilir , mümkünse soru başlığını daha sonra arandığında başka arkadaşların da bulacağı kelimelerle değiştiriniz.

 

[acetinnster]

Sayın askm hocam elinize sağlık mükemmel çalışma
Ancak alt alta gelecek şekilde bir uyarlama yapabilirmiyiz sürekli ilk satıra aktarım yapmakta
Ayrıca diğer ricam SİPARİŞLER klasöründe bir kaç açıklamam var ona da eğer değerli vaktiniz var ise bakabilirmisiniz.
Her şey çok teşekkür ederim Allah razı olsun Allah her konuda yardımcınız olsun.

 

[askm]

Private Sub CommandButton1_Click()
Dim aktif_Ktp, SayfaAdi, Kayit_syf
Dim SonSatir
Dim dosya_yeri, dosya
aktif_Ktp = ThisWorkbook.Name
Kayit_syf = "PROFORMA"
dosya_yeri = ThisWorkbook.Path & "\"
dosya = "SİPARİŞLER.xlsm"
SayfaAdi = "AÇIK SİPARİŞLER"
Workbooks.Open (dosya_yeri & dosya)
SonSatir = Workbooks(dosya).Sheets(SayfaAdi).Range("A" & Rows.Count).End(xlUp).Row+1
Workbooks(dosya).Sheets(SayfaAdi).Range("A" & SonSatir) = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("AZ6")
Workbooks(dosya).Sheets(SayfaAdi).Range("B" & SonSatir) = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("AZ7")
Workbooks(dosya).Sheets(SayfaAdi).Range("C" & SonSatir) = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("B10")
Workbooks(dosya).Sheets(SayfaAdi).Range("D" & SonSatir) = Workbooks(aktif_Ktp).Sheets("PROFORMA").Range("BF46")

Workbooks(dosya).Save
Workbooks(dosya).Close
End Sub