Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

SeferŞANLI
SeferŞANLI
Access Cevaplanmış Soruları
24
1536

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

#7
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
Tamam bu oldu ama. excelde çok zaman harcıyor. Excele göndermemdeki sebep sayfa genişliği konusunda daha esnek olması.
Cevapla
#8
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,09:59
Yorumları: 8.499
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
Yalniz exceldeki surenin çoğu biçim ayarlarına gidiyor, şablon bir sayfa oluşturulup o sayfada ön ayarlamalar kaydedilebilir böylece biçimlendirme ile zaman kaydedilmez.
Yazıcıdan çıktı alacaksanız sayfa genişliği çok da önemli değil kaldi ki Access raporlarında da kagit boyutu değiştirilebiliyor diye biliyorum.
Cevapla
#9
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
Peki öğrenmek için soruyorum. Diyelimki ben biçimlendirmeyi yaptım. Tüm bu biçimlendirme kodlarını buton olayından kaldırdık. Tek bişey kalıyor. O da şu. Şimdi sabit bir personel olmadığı için tablonun çizgisinin ayarlanması esnek olmalı. Bunu nasıl hızlandırırz. Ayrıca kod yeni bir sayfa oluştutarak yapıyor. Varolan biçimli sayfaya nasıl atar bunu.
Örnek Excel dosyasını gönderiyorum. Biçim o şekilde olacak. Sadece alta müdür yardımcısı ve müdür onayları eklenecek
.rar toplunbt.rar (Dosya Boyutu: 10,59 KB | İndirme Sayısı: 2)
Son Düzenleme: 27/11/2021, 20:00, Düzenleyen: SeferŞANLI.
Cevapla
#10
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
(27/11/2021, 19:56)SeferŞANLI yazdı: Ayrıca kod yeni bir sayfa oluştutarak yapıyor. Varolan biçimli sayfaya nasıl atar bunu.


Kod:
SyfAdi = "ÖğrNöbetLis" & Me.DtDonem
SyfAdiTmp = SyfAdi
SyfNo = 0
Do While WorksheetExists(SyfAdiTmp, KTP1) = True
SyfNo = SyfNo + 1
SyfAdiTmp = SyfAdi & IIf(SyfNo = 0, "", "(" & SyfNo & ")")
Loop
Excl.Sheets.Add.Name = SyfAdiTmp
Excele Aktar Butonunuzdaki kod içerisinden bu bölümü silip Yerine

Kod:
Excl.Sheets("Excel Kitabınızdaki Sayfa Adını Buraya Yazınız").Select
Bu kodu yazarsanız seçtiğiniz kitabın içerisinde oluşturmuş olduğunuz sayfayı seçerek aktarımı yapar. Mevcut olan bir tablo tasarımı var ise sayfa üzerinden hiçbir tasarım düzenlemesini oluşturan kodları eklemeden sadece aktarımı yaptırtmak gerekiyor. Örneğin .Range("AI8").Font.Bold = True bu kod AI8 hücresinin içeriğini Kalın Harf yapmayı sağlıyor bu gibi kodları kaldırırsanız sadece verilerin aktarılması ile yapılır. Ancak Kitabınızın silinmesi veya sayfanızın silinmesi durumlarında oluşabilecek sorunların önüne geçmek için de bir kaç kontrol için kod eklemek gerekir.
Cevapla
#11
SeferŞANLI
Sefer ŞANLI
SeferŞANLI
Bul
Aktif Üye
Adı Soyadı: Se.... ŞA....
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 08/12/2024,10:12
Yorumları: 800
Konuları: 154
Kayıt Tarihi: 21/12/2014
Teşekkür Puanı: 12
Mesleğiniz: Öğretmen
Tamam kodları düzenledim. Yalnız önceki kayıtların temizlenmesi lazım. Yarım Excel kod bilgimle satırı şöyle sildiriyorum. Bu kodu daha hızlı yaptırabilirmiyiz.
Yani yukarıdaki başlıklardan aşağıda kalan verileri önce sildirmek gerekiyor.
son = Cells(Rows.Count, "A").End(3).Row

    For I = 9 To son

 

       Cells(9, son).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp

    Next
Cevapla
#12
lemoncher2
Destek Ekibi
lemoncher2
Bul
Destek
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 22/01/2023,00:30
Yorumları: 330
Konuları: 15
Kayıt Tarihi: 31/03/2020
Teşekkür Puanı: 90
Örneği gönderebilirmisin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task