Merhaba arkadaşlar makroyu çok bilmemekle birlikte:
Aşağıdaki makroyu korumalı sayfada çalıştırmak istiyorum
Sub Yazdır()
For Each t In Range("C11:C114").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
End If
Next t
ActiveWindow.SelectedSheets.PrintPreview
For Each t In Range("C11:C114").Cells
If t.Value = "" Then
t.EntireRow.Hidden = False
End If
Next t
End Sub
Aşağıdaki makroyu korumalı sayfada çalıştırmak istiyorum
Sub Yazdır()
For Each t In Range("C11:C114").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
End If
Next t
ActiveWindow.SelectedSheets.PrintPreview
For Each t In Range("C11:C114").Cells
If t.Value = "" Then
t.EntireRow.Hidden = False
End If
Next t
End Sub