excelde formül olan ama veri gelmemiş olan hücreleri yazdırma alanına almak istemiyorum

[BÜŞRA SALMAN]

Merhabalar :
ben farklı bir sayfadan formülle veri getirdim. ve sayfamda bir hücreye arka plandaki tablo numaramı yazdığımda o tablodaki verileri getiyor. yazdığım numradan gelen veriler bana 1 tablo oluştururken 7 tabloda oluşturabiliyor. ama 1 tablo geldiğinde sanki 7 tablo gelmiş gibi bana 3 sayfalık bir yazdırma alanı geliyor. formül olan hücreleri dolu olarak görüyor ama ben o hücrelere veri gelmediyse yazdırma alanına girmesin istiyorum. Yazdırmak istediğim veriler C,D,E sütunlarından aşağı doğru oluşuyor. Sadece bu sütunlarda veri gelen hücreleri yazdırma alanına alsın istiyorum. Yardımcı olur musunuz?

 

[Korhan Ayhan]

Merhaba,

İnceleyiniz.

Formüllü hücrelerdeki kılavuz çizgileri

Çalışmamda Formül var 75 satır ama 4 satırında veri var geri kalan 7 ssatırda formül olduğundan klavuz çizgileri de görünüyor ben bu klavuz çizgilerini formüllü boş hücrelerde değil dolu hücrelerde gözükmesini istiytorum yazdırırken nasıl yapabilirim sayfa 2 önizleme de çıkan klavuz çizgilerini

www.excel.web.tr

 

[BÜŞRA SALMAN]

Merhaba ;

yönledirdiğiniz mesajı inceledim fakat kendi excelime uyarlarken hata yapıyorum sanırım çalışmıyor.

 

[Korhan Ayhan]

O zaman örnek dosyanızı paylaşınız.

 

[BÜŞRA SALMAN]

https://dosya.co/cls9p0posymj/KURBANLIK_TAKİP.xlsm.html
excel bu koruma şifresini 3425 ile açabilirsiniz. paketleme sticker isimli sayfada sarıyla boyanmış hücre numarasını değştirdikçe oluşan tablo sayısı değişecek oluşan tabloya görede yazdırma alanı oluştursun istiyorum

 

[Korhan Ayhan]

"PAKETLEME STİCKER" sayfasında yazdırma alanınız nedir? Hangi sütun aralığını yazdırıyorsunuz?

 

[BÜŞRA SALMAN]

c,d,e sütunlarını sadece yazdırmak istiyorum

 

[Korhan Ayhan]

Bir önce paylaştığım linkteki açıklamada belirtilen YAZDIMA ALANI bölümündeki formülü aşağıdaki gibi uygulayıp deneyiniz.

=KAYDIR('PAKETLEME STİCKER'!$C$1;;;ARA(2;1/('PAKETLEME STİCKER'!$C$1:$C$1000<>"");SATIR('PAKETLEME STİCKER'!$C$1:$C$1000));3)

 

[YUSUF44]

Dosyanızı biraz karışık hazırlamışsınız. Aşağıdaki kodları Sticker sayfasının kod bölümüne yapıştırırsanız H2 hücresine yazdığınız kesim sıra numarası Sayfa2'de kaç taneyse ona göre yazdırma alanı belirler:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H2]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set s2 = Sheets("Sayfa2")
son = s2.Cells(Rows.Count, "C").End(3).Row
If WorksheetFunction.CountIf(s2.Range("C1:C" & son), Target) = 0 Then
    MsgBox Target & " nolu kesim kaydı bulunamadı!", vbInformation
Else
    ortak = WorksheetFunction.CountIf(s2.Range("C1:C" & son), Target)
    ActiveSheet.PageSetup.PrintArea = "$B$1:$F$" & 14 + (ortak - 1) * 17
End If
End Sub

 

[BÜŞRA SALMAN]

Bir önce paylaştığım linkteki açıklamada belirtilen YAZDIMA ALANI bölümündeki formülü aşağıdaki gibi uygulayıp deneyiniz.

=KAYDIR('PAKETLEME STİCKER'!$C$1;;;ARA(2;1/('PAKETLEME STİCKER'!$C$1:$C$1000<>"");SATIR('PAKETLEME STİCKER'!$C$1:$C$1000));3)

Çok teşekkür ederim gerçekten bir sürü makro falan denedim bi türlü yapamamıştım çok saolun

 

[BÜŞRA SALMAN]

Dosyanızı biraz karışık hazırlamışsınız. Aşağıdaki kodları Sticker sayfasının kod bölümüne yapıştırırsanız H2 hücresine yazdığınız kesim sıra numarası Sayfa2'de kaç taneyse ona göre yazdırma alanı belirler:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H2]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set s2 = Sheets("Sayfa2")
son = s2.Cells(Rows.Count, "C").End(3).Row
If WorksheetFunction.CountIf(s2.Range("C1:C" & son), Target) = 0 Then
    MsgBox Target & " nolu kesim kaydı bulunamadı!", vbInformation
Else
    ortak = WorksheetFunction.CountIf(s2.Range("C1:C" & son), Target)
    ActiveSheet.PageSetup.PrintArea = "$B$1:$F$" & 14 + (ortak - 1) * 17
End If
End Sub

teşekkür ederim yardımınız saolun