DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
Cells.EntireRow.Hidden = False
For X = 8 To [A65536].End(3).Row
If Cells(X, 1) = 0 Then Rows(X).EntireRow.Hidden = True
Next
End Sub