veri kadar satır eklemek ve yazdırmak

Katılım
16 Ocak 2017
Mesajlar
32
Excel Vers. ve Dili
türkçe 2017
merhaba hocalar benim yapmak istediğim örnek 10 satır var ve bunlardan sadece 3 satırda değer var sadece değerlerin olduğu satırları fiş yazdırmak istiyorum yardımcı olursanınz sevinirm örnek ekliyorum şimdiden teşekkürler
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Sorunuzu tam anlayamadım ancak aşağıdaki kodları fiş sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız fiş sayfasını her açtığınızda ya da fiş sayfasında herhangi bir hücre seçtiğinizde yazdırma alanını H sütunundaki son dolu satıra göre ayarlar:

PHP:
Private Sub Worksheet_Activate()
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub
 
Katılım
16 Ocak 2017
Mesajlar
32
Excel Vers. ve Dili
türkçe 2017
Sorunuzu tam anlayamadım ancak aşağıdaki kodları fiş sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız fiş sayfasını her açtığınızda ya da fiş sayfasında herhangi bir hücre seçtiğinizde yazdırma alanını H sütunundaki son dolu satıra göre ayarlar:

PHP:
Private Sub Worksheet_Activate()
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    son = Cells(Rows.Count, "H").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$" & son
End Sub
teşekkürler hocam deneyeceğim
 
Üst