Burda sorun sadece A hücresine göre son satırı buluyor. Müdür onay kısmını bulduramadım. Birleştirilmiş hücre olduğu için.

son = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Address

Range("a9", son).Select

Range("a9", son).EntireRow.Delete

hocam bu kot excelde çalışıyor ama aceess ten evele gönderme butonunda hata veriyor.

sefer bey amacınız ne?
bu Excel dosyası ne işe yarayacak sadece yazıcı cıktısı almak için se neden rapor olarak hazırlamıyorsunuz?
bu Excel dosyasına verilerinizi aktardıktan sonra bu dosya ne olacak? eklenen sayfa bu dosyaya mı kaydedilecek yoksa bu dosya farklı bir adla mı kaydedilecek?
toplunbt dosyasında her zaman tek sayfa mı olacak?

Sayın Berduş. Biz bu çalışmayı daha önce sizlerin desteğiyle yapmıştım. Bir takım eksiklikleri var. Excele göndermemdeki kasıt rapora müdahele edilecek husularda, düzenlemelerde kolaylık olması. Aslında neticeye nerdeyse ulaştım. Sadece aşağıdaki kodda önceki verilerin silinerek yeniden yazılmasını sağlamak istedim. Excelde çalışan kod buton olayında hata verdi.  Buna çözüm arıyorum.

son = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Address

Range("a9", son).Select

Range("a9", son).EntireRow.Delete

* Birşeyleri öğrenmek için çalışıyorum.
* Evet raporunu Access de yaptım
* Raporun onayla birlikte bir sayfaya sığması yerinde olur. Zaten maksimum 20 personel nöbet tutuyor. Bu kapsamda başlık, liste,onay ve açıklamaların bir sayfaya sığması fadalı olur.

Çalışmamım son halinide ekliyorum. İnşallah formda bilgi kirliliğine yol açmamışımdır.

aşağıdaki çalışmayı inceler misiniz?

---

bu çalışma sadece excele aktarmayla ilgili
eklediğiniz rapor kısmını inceleme imkanım olmadı

Acaba yapmak istediğiniz bu mu emin olamadım. Bu kodu denermisin.