Dünkü gönderdiğinizde Excel dosyası açılmıyor ve veriler aktarılmadan yazıyordu. ayrıca bilgisayar kapanırken açılan her Excel dosyasının tek tek kapatılmasını istedi. o nedenle kodu değiştirme ihtiyacı hissettim.
FOR I=1 to 5 Eklediğimde End With kodunda hata verdi .defter sayfasını 5 nusha çıkmasını istedim.
Ayrıca defter sayfasına veri aktarmakta bu neden kaynaklandı anlayamadım.
Yazdırma işlemini tamamladıktan sonra şu kodu eklemem doğru olurmu
.Workbooks.Undo Filename:=CurrentProject.Path & "\test.xlsx"