Gizle/Göster ve Yazdırma

[musaagac]

Arkadaşlar ekte göndermiş olduğum excel sayfamda bordro kısmında bir tane buton ekledim butonun görevi AA5:AA500 Arasındaki boş hücreleri gizleyip ve gösterme görevini yapacak. ayrıca bir tane daha buton ekleyip bu butonda sadece yazdırma görevini yapacak ama yazdırma yaparken sayfadaki renkli alanları renksiz olarak yazdıracak.

 

[musaagac]

ek dosya burada

Ek dosya burada

 

[Mahir64]

Merhaba,

Bir adet Değiştirme Düğmesi (ToggleButton1) ekleyin ve kodları deneyiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Göster"
For Each t In Range("AA5:AA500").Cells
    If t.Value = "" Then
    t.EntireRow.Hidden = True
  End If
  Next t
Else
ToggleButton1.Caption = "Gizle"
 Cells.EntireRow.Hidden = False
End If
End Sub

Yazdırmak için,

Sub yazdır()
Sheets("Bordro").PrintOut
End Sub

kodları butona atayınız.
siyah beyaz yazdırak için,
Dosya / Sayfa Yapısı / Çalışma Sayfası / Siyah Beyaz (işaretleyiniz)

 

[musaagac]

Office 2007 de çalışıyorum bu buton nerede ToggleButton1

 

[musaagac]

Gizle Göster Komutu ile aradaki AA5:AA500 arasındaki hücrelerde 0 olan hücreler var onuda gizlemesi gerekiyor. Nasıl yapabilirim