Güncelleme Dosyası

[Barons]

Merhaba

Belgelerim içindeki taslak dosyasındaki Sayfa1'deki verileri C sürücüsünün altındaki Güncelleme dosyasına kopyalamak istiyorum.Kodlarda bir sıralama hatası yapıyorum ama nerede bulamadım.

Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunar forumdaki herkese başarılar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:99412c6947]Sub güncelle()
On Error Resume Next
Sheets("sayfa1").Select
Cells.Copy
Workbooks.Open Filename:="C:\Güncelleme.xls"
ActiveSheet.Paste
Workbooks("Güncelleme.xls").Save
Workbooks("Güncelleme.xls").Close
End Sub
[/vb:1:99412c6947]

 

[Barons]

Sn LeventM çok teşekkürler

Harika çalışıyor...Burada ek olarak şöyle bir şey yapılabilirmi?Ã?rnek olarak : Taslak dosyasına taslak1 desek ve bu dosya güncelleme dosyasına verileri ikinci kez attığında mesaj kutusunda "dosyanız günceldir.Tekrarmı güncellemek istiyorsunuz?" gibi bir uyarı olabilirmi? Yani ileride taslak2,taslak3...gibi dosya lar oluştukça güncellemelerin hangisinde olduğunu anlamak bakımından diyorum.

Teşekkürler

 

[Barons]

Tekrar merhaba

Taslak dosyasından güncelleme dosyasına veri aktarırken istediğimiz sayfaya veri niye gitmiyor...Sheets("Veriler").Select sayfasına göndermek istiyorum ama olmuyor. Kod aşağıdadır.

Tşk.

Sub güncelle()
On Error Resume Next
Sheets("sayfa1").Select
Cells.Copy
Workbooks.Open Filename:="C:\Güncelleme.xls"
Sheets("Veriler").Select
ActiveSheet.Paste
Workbooks("Güncelleme.xls").Save
Workbooks("Güncelleme.xls").Close
End Sub

 

[Levent Menteşoğlu]

Bu kod ile olması gerekir di, birde aşağıdaki gibi deneyin.

[vb:1:37b931ecbc]Sub güncelle()
On Error Resume Next
Sheets("sayfa1").Select
Cells.Copy
Workbooks.Open Filename:="C:\Güncelleme.xls"
Workbooks("Güncelleme.xls").activate
Sheets("Veriler").Select
ActiveSheet.Paste
Workbooks("Güncelleme.xls").Save
Workbooks("Güncelleme.xls").Close
End Sub
[/vb:1:37b931ecbc]

 

[Barons]

Sn LeventM

Çok teşekkürler...Sistem çalışıyor.

Elinize sağlık