Satır gizle göster

[M.ACAR]

İyi akşamlar;
Ekli dosya'da yazıdıdan çıktı almak istedğimde bazı sütunları gizliyorum,Fakat benim olasını istediğim,B12:b74 arasında boş olan sütunları gizlemek,Fakat sayfa'ya geri döndüğümde gizli sütunların tekrar görünür olması
Bu mümkün mü?

 

[uzmanamele]

merhaba

Cells.EntireRow.Hidden = False
bu satırı uygun yere monte ediniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "BORDRO" Then Exit Sub
Dim i As Long
For i = 2 To [B100].End(3).Row
    If Cells(i, "B") = "Yazıcıda görünmesin" Then Rows(i).Hidden = True
Next i
ActiveSheet.PrintOut

Cells.EntireRow.Hidden = False

End Sub

 

[M.ACAR]

Forum üyelerine iyi günler diyorum,Güzel bir gün olmasını diliyorum,
Sayın : Süleyman ÖZYÜKSEL verdiğiniz kod iin çok teşekkür ederim.
Fakat tek bir isteğim var aslında boş hücreleri gizlemek istiyorum,B1:B11 arasında boş hücreler olduğu için buralarıda gizliyor,sadece B12:B74 hücreleri arasında çalışsın,diğerlerini gizlemesin
bu mümkün mü acaba?

 

[mancubus]

aşağıdaki ifadeyi değiştirmeniz yeterli

For i = 12 To [B100].End(3).Row


100 satırdan fazla veri oluyorsa 100 de örneğin 5000 olabilir.

not: koddan anladığım kadarı ile sütunları değil, satırları gizlemek istiyorsunuz.

 

[M.ACAR]

Çok teşekkür ederim,sayın : Mancubus