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"

Örneğin sendeki son halini eklermisin...

Yazdırma ve çıkacak nusha problemini çözdüm.
Deftere aktarılan verileride düzelttim.excel kitabinda hangi sayfanın hücresinde kayıt yaptınız ise o sayfaya aktarma yapmakta imiş.
ama katmakta hala problem yaşıyorum.

Çok sayıda gizli Test Excel dosyası açıldı Excel çalışırken problemlere yol açıyor.
aynı zamanda bilgisayar kapanırken de.

Ek Dosyalar

Yeni.rar(351.61 KB)

Ek Dosyalar

Yeni.rar(351.61 KB)

End With den önce

.Workbooks.Close

yapınız.

Çoook teşekkür ederim . Emeğinize sağlık zahmet verdim hakkınızı helel edin.