yazdırma alanı belirleme hakkında

[gurbuzmeydan08]

üstadlarım gerekli açıklamayı ekteki dosyada yaptım yardımcı olursanız çok memnun olurum


indirme link
http://www.dosya.tc/server4/27i2eh/yazdirma_alani.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Hangi sütunun son satırına göre yazdırma alanı belirlemek istiyorsunuz.

. . .

 

[gurbuzmeydan08]

hocam yan da seç yazan satırlara göre

 

[Emir Hüseyin Çoban]

. . .

Seç yazan kısımda F sütunundaki hücrenin dolu olmasına bakiyor.
Kodları yazarken direk F sütununu baz alabiliriz.

Seç (J) kısmına göre;

Sub kod()
    f = Evaluate("LOOKUP(2,1/($J$1:$J$65536<>""""),ROW(J$1:J$65536))")
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & f
End Sub

. . .

 

[gurbuzmeydan08]

hocam Allah c.c. razı olsun çok teşekkür erderim kolay gelsin iyi çalışmalar ...