yazdır butonuna basınca boş hücreleri gizle

[cobanoglu]

yazdır butonuna bastığım zaman ayniyat sayfamdaki b9:b38 hücreleri boş ise boş olan satırları gizlesin.daha sonra yazdırsın.tekrar formum aktif olduğun da ise hepsini göstersin.bın biraz uğraştım ama yapamadım hehsini gizliyor. yardımcı olursanız sevinirim.yalnız c , d ,e hücrelerinde veriler var.b sütününda ki hücrelerde veri yoksa gizleyecek.

 

[Mahmut Kök]

siz kodu, kendinize göre geliştirebilirsiniz.

Sub Makro1()
'
For a = 1 To 100
If Cells(a, "a") = Empty Then
Rows(a).EntireRow.Hidden = True
End If
If Cells(a, 1) = Empty And Cells(a + 1, 1) = Empty And Cells(a + 2, 1) = Empty Then GoTo 2
Next

2
MsgBox "gizlendi"
Cells.Select

Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub

 

[cobanoglu]

üstad sadece bir sonraki hücreyi gizliyor
ben halledemedim bu işi

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub yazdir()
[b9:b38].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PrintOut
[b9:b38].EntireRow.Hidden = False
End Sub

 

[SanaLSukuL]

peki hocam sadece 3 satırlık değilde 7 satırlık bir taplo olsa
ama 2. satırda ve 5.satırda veri olmazsa nasıl gizleteceğiz acaba
1 satırı gizletebiliyoruz ama aralıklı olarak veri olmayan satırları bir türlü gizleyip yazdıramadım.

 

[Kemal Demir]

Sn.SanaLSukuL

Ek'teki örneği inceleyiniz.

 

[veyselemre]

Sub yazdir()
For a = 4 To 10
If WorksheetFunction.CountA(Range(Cells(a, "B"), Cells(a, "F"))) = 0 Then Rows(a).Hidden = True
Next
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview
Rows.EntireRow.Hidden = False
End Sub

 

[SanaLSukuL]

çok tşk ler ilginiz ve verdiğiniz bilgi için

 

[SanaLSukuL]

veyselemre bey baskı önizlemeye gitmeden hemen yazdırmak istersek nasıl olurdu makro

 

[SanaLSukuL]

çok tşk ler baskı önizlemeden seçeneğini yapabildim.
Uğraşınca oluyormuş

 

[SanaLSukuL]

göster-gizle

eski forumda geçen sene görmüştüm ama dosyaların linleri gitmiş
şöyle bir makro vardı

boş satırları göster - gizle diye
tuşa tıklıyorduk gösteriyor ikinci tıklamamızda gizliyor ve ona göre sayfamızı kontrol edip yazdırıyorduk.
bu işlemi ToggleButton1 tuşu ile yapabilirmiyiz.
ama baya bi arattırdım bulamadım yardımcı olurmusunuz.
ekli dosya üst mesajımdadır

 

[SanaLSukuL]

Sn.SanaLSukuL

Ek'teki örneği inceleyiniz.

örneği inceledim ilk tıklayışta gizliyor ama ikinci tıklama yasak yani gizlenenleri göstermiyor.
Şu mesajımdaki gibi yapamazmıyız veya ikinci tıklama yasak olmasın ve gizlenenleri göstersin olayı nasıl oluyor.

eski forumda geçen sene görmüştüm ama dosyaların linleri gitmiş
şöyle bir makro vardı

boş satırları göster - gizle diye
tuşa tıklıyorduk gösteriyor ikinci tıklamamızda gizliyor ve ona göre sayfamızı kontrol edip yazdırıyorduk.
bu işlemi ToggleButton1 tuşu ile yapabilirmiyiz.
ama baya bi arattırdım bulamadım yardımcı olurmusunuz.
ekli dosya üst mesajımdadır

 

[veyselemre]

Toggle buton için eki inceleyin.

 

[SanaLSukuL]

veyselemre bey çoook teşekkürler ellerin ve klavyen dert görmesin