kapalı dosyaya veri göndermek

[ozgurche]

Merhaba arkadaşlar. Sormak istediğim konu açık bir dosyadan kapalı bir dosyaya alt alta veri göndermek ile ilgili. Sormak istediğim şeyi dosyada kırmızı ile belirttim. Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Forumda daha önce işlenmiş...
http://www.excel.web.tr/f48/kapaly-dosyaya-veri-gonderimi-hk-t69520.html

 

[ozgurche]

Sayın hocam, dediğiniz forum sayfasını inceledim kendi soruma uyarlayamadım. Benim verdiğim örnekte D10 hücresindeki veri değiştikçe (dakikada bir)değişen bu veri, K sütununda alta yazdırılıyor. Benim sormak istediğim daha doğrusu yapamadığım şey ise; K sütununda alt alta yazdırılan bu değerler aynı şekilde örneğin veri.xlsx kapalı dosyasına alta alta yazdırabilmek.
İlginiz için teşekkür ederim.

 

[hamitcan]

Kaynak : http://www.excel.web.tr/f48/kapaly-dosyaya-veri-gondermek-t115213/sayfa2.html

Option Explicit
Sub kapalı_kayıt_1967()
'Konu       :   Kapalı Dosya Açıkda Olsa Kayıt Yap
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As String, kral As Worksheet, _
yol As String, kitap As String, hücre As Long
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\"
kitap = "denemex.xls"  ' Verinin Gideceği Dosya-Hedef
On Error GoTo asi
Workbooks(kitap).Close
asi:
Workbooks.Open (yol & kitap)
Workbooks("Deneme.xlsm").Activate ' Verinin Olduğu Dosya-Kaynak
Set kral = Workbooks(kitap).Sheets("Sayfa1")
'hücre = kral.Range("A" & Rows.Count).End(xlUp).Row
hücre = kral.[a65536].End(3).Row

'kral.Range("A" & hücre + 1) = "asi_kral_1967"
kral.Range("A" & hücre + 1) = Range("d10")
kral.Range("b" & hücre + 1) = Date
kral.Range("c" & hücre + 1) = Range("d11")
kral.Range("d" & hücre + 1) = Date

Workbooks(kitap).Save
Workbooks(kitap).Close
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[hımmmmmmmm]

slm

kusura bakmayın sormam gerek...
benim kapalı dosyadan anladığım dosyanın open la açılmadanki hali değilmidir...
yukardaki macroda dosya açılıp veri kaydediliyor sonra tekrar save edilip kapatılıyor...

 

[hamitcan]

benim kapalı dosyadan anladığım dosyanın open la açılmadanki hali değilmidir...

Evet, forumda örnekler mevcut ama zamanım olmadığı için; çözüm olarak, basit olan örneği tercih ettim.

yukardaki macroda dosya açılıp veri kaydediliyor sonra tekrar save edilip kapatılıyor...

Evet, aynen dediğiniz gibi.