yanlış workbooka kayıt

[pınarım]

Aşağıdaki makro ile listboxa getirdiğim verileri günlük adlı bir dosyaya yazdırıyorum ancak bazen .günlük dosyasını açık unutursam kaydı günlük dosyası yerine verileri aldığım dosyanın içine yazıyor.Nasıl bir çözüm önerebilirsiniz acaba bana oysa her hücreye yazdırmadan önce çalışma kitabını ve sayfayı seç dediğim halde bu oluyor.İyi çalışmalar diliyorum.


Private Sub CommandButton3_Click()
On Error Resume Next
Workbooks.Open ("C:\günlük.xls")
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("ac1") = CDate(DTPicker1)
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("j4") = ListBox1.List(0, 0)
Workbooks("günlük.xls").Sheets("sayfa1").Select
Range("a4") = ListBox1.List(0, 1)
MsgBox "KAYIT İŞLEMİNİZ TAMAMLANDI ", vbInformation
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[ceyrek]

Private Sub CommandButton3_Click()
On Error Resume Next
Workbooks.Open ("C:\günlük.xls")
Workbooks("günlük.xls").Activate
Sheets("sayfa1").Range("ac1") = CDate(DTPicker1)
Sheets("sayfa1").Range("j4") = ListBox1.List(0, 0)
Sheets("sayfa1").Range("a4") = ListBox1.List(0, 1)
MsgBox "KAYIT İŞLEMİNİZ TAMAMLANDI ", vbInformation
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Şeklinde denermisiniz?

 

[pınarım]

TŞk Edİyorum

Denedİm Bu Kez Herhangİ Bİr Olumsuzluk GÖremedİm.tŞk Edİyorum.hoŞÇakalin.

 

[pınarım]

TŞk Edİyorum

Denedİm Bu Kez Herhangİ Bİr Olumsuzluk GÖremedİm.tŞk Edİyorum.hoŞÇakalin.