Skip to main content

AccessTr.neT


Excele Gönderilen Takvimin Hafta Sonu Kısımlarını Renkli Yapmak

Excele Gönderilen Takvimin Hafta Sonu Kısımlarını Renkli Yapmak

#13
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.
.rar PROGRAMIM.rar (Dosya Boyutu: 294,92 KB | İndirme Sayısı: 1)
Cevapla
#14
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.
Cevapla
#15
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?
Cevapla
#16
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.
.rar PROGRAMIM.rar (Dosya Boyutu: 315,78 KB | İndirme Sayısı: 4)
Son Düzenleme: 27/11/2021, 23:50, Düzenleyen: SeferŞANLI.
Cevapla
#17
aşağıdaki çalışmayı inceler misiniz?

bu çalışma sadece excele aktarmayla ilgili
eklediğiniz rapor kısmını inceleme imkanım olmadı
.rar Excele_Aktar_hy.rar (Dosya Boyutu: 227,75 KB | İndirme Sayısı: 3)
Cevapla
#18
Acaba yapmak istediğiniz bu mu emin olamadım. Bu kodu denermisin.

Kod:
Excl.Range("A2:I3000").ClearContents
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da