satır sıfır ise gizle

[otelci01]

Merhaba A1 den A10 kadar hücrelerde rakamlar olsun a6 ve a8 de sıfır olsun makroyu çalıştırdığım zaman a6 ve a8 i gizlesin. teşekkürler

 

[otelci01]

MErhaba, yapacağınız makroyu ağağıdaki makroya eklemek istiyorum ayrıca.şimdiden teşekkürler.

Sub maas()
If MsgBox("Maaş Listesi Yazdırılacak, Emin misiniz?", vbYesNo) = vbYes Then
Columns.Hidden = False
Columns("ı:l").Hidden = True
ActiveSheet.PrintOut
Columns.Hidden = False
End If
End Sub

 

[leumruk]

Merhaba
For x = 10 To 1 Step -1
If Cells(x,"a")= 0 Then Rows(x).EntireRow.Hidden = True
Next

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayın,

Sub Düğme1_Tıklat()
If MsgBox("Maaş Listesi Yazıdılacak", vbYesNo) = vbYes Then
[a6,a8].Rows.Hidden = 0
[a1:a10].PrintOut
[a6,a8].Rows.Hidden = 1
End If
End Sub

 

[otelci01]

merhaba, leumruk kodların işime yaradı çok teşekkürler.