• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yazdırma alanı

Katılım
9 Aralık 2009
Mesajlar
532
Excel Vers. ve Dili
2007,5
Sayenizde aldığım kodlarla, biraz ilevelerle ekledğim liste oldu..


sorum: Yazıcıya çıkarırken 5-10 sayfa boş alan veriyor..

yanlızca açık renkli alan çıksın, yandaki koyu renkli R S İ adlı stunları yazıcıya çıkmasın

(seçim yapıp, seçimi yazdır dışında bi öneri)

2 - 2. sayfayı yazdırıken başlıkları da ekliyerek yazdırsın istiyorum

nasıl yapılır

teşekkür
 

Ekli dosyalar

* Renk için;

Düğmeye fare ile sağ tıklayıp Denetimi Biçimlendirme menüsünden yapabilirsiniz.

* Satır başlıklarının yazdırmada yada önizlemden görünmesi için;

Dosya / Sayfa Yapısı / Çalışma Sayfası ekranından "Üstte yinelenecek satırlar" bölümüne,

$1:$11

yazıp tamam ile işlemi bitirin.

* Yazdırma butonu için;

Kod:
Sub Yazdir()
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$" & _
        Cells(Rows.Count, "C").End(xlUp).Row
    
        ActiveSheet.PrintOut
        
End Sub

.
 
Kendi değiştirmiyordan kastınız nedir.

Excel Dersanesi bölümünde ilgili konuları bulup incelemenizi tavsiye ederim.

.
 
yani butonun kendi rengi (yazı rengi değişiyor, buton rergi diğişmiyor)

buton eklemeyi 2003 de biyiyordum 2007 de bulamadım menüleri geziyom yok
 
Hocam önceki verdiğiniz exel deslerinde butonla ilgili 3 konu var buton ekleme yok

son verdiğinizdede 2003 anlatılıyo ,bildiğim yöntem , ben 2007 de bulamıyom..

birde eklediğim exelde yeni ay butonuna basınca sayfa adını kısaltılmış nasıl yaparız yeni sayfa adını ağustos2011 diye deyilde Ağ11 gibi ayları iki, yılı son iki olcak şekilde sayfa adı verdirme yapabilirmiyiz

exel sayfa sayısını kaça kadar çalıştırır ( yani 5 yıllık 5x12= 60 seyfa olsa silmesek kaldırırmı zorlarmı)

teşekkür
 
2007 de Geliştirici sekmesinin ekran üzerinde olması gerekir.

Bunun için :

  • Ofis Düğmesi
  • Excel Seçenekleri
  • Excelde çalışmak için üst seçeneklerde (ilk sıradadır)
  • Şeritte Geliştirici Sekmesini Göster i seçiniz
  • Herşeyi de bizden beklemeyiniz, bizde yardımdan gidip bulduk daa :)
 
Hocam Yardımı da Yardımdan bulmak bile Yardım gerektiriyo bağzen....

şu kodu anlıyamadım:
Cells(Rows.Count, "C").End(xlUp).Row
yazdırmada tavsiye edilmişti

yine tavsiye geregi makro kaydetten kodu öğren denilmişti, seçimi yazdırmanın koduna baktım..
bu kodu vermedi.
verilen bu kodu merek ettim.

2 - Exelde seyfa sayısının çokluğu ile ilgili soruma cevap alamadım Hocam
( sayfa seyesı 60 - 100 olursa kaldırırmı o eklediğim sayfa örneği , tavsiyaniz kaç sayfayı geçmemesi

3 - O eklediğim sayfadaki , yeni sayfa aç butonunda sayfa isimlerini kısaltılmış almayı sormuştum hocam

Vakit ayırdığınız için teşekkür ederim.
 
1)

Cells(Rows.Count, "C").End(xlUp).Row

C sütunundaki son dolu satırı bulur.

Kullanılmasındaki neden. Yazdırırken son dolu satır olan aralığı belirleyip yazdırmak içindir.

2)

Sayfa sayısı artıkça tabiki dosyanızda kasılmalar olacaktır. Yavaşlamanın diğer bir nedeni de sayfa yapılarınızdır. Sayfalar da formüller ve fazla veri varsa ve bunun üzerine sayfa sayısı 60 ı bulursa, dosyanızın yavaşlaması bence olasıdır.

Örnek dosyanızda deneme yapıp gözlemlemenizi öneririm.

3)

ActiveSheet.Name kodunu aşağıdakiyle değiştiriniz.

ActiveSheet.Name = Format([AK7], "mmmyy")

.
 
Teşekkür ederim...
Şöye bi sıkıntı oldu..

yeni ayda hafta sonları değişiyor haliyle..bizim hafta içine yazdığımğz rakamlar hafta sonuna kaymış oluyor (yeni ayda)

aynı rakamları hafta içine çekiyoz...
haftasonunu işaretliyo , acaba yeni aya aktarınca hafta sonuna gelen rakamı bir yan hücreye kaydır gibi kod varmı

teşekkür
 
Geri
Üst