arkadaşlar aşağıdaki makroya göster komutu nasıl eklenir... Yardımcı olabilirmisiniz??? kısayol olarak ctrl d ile gizliyo ama tekrar kısayolla göstermek istiyorum... nasıl olmalı lütfen yardım arkadaşlar....
Sub Gizle()
On Error Resume Next
Dim bul As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For Each bul In Range("a1:a308")
If bul.Value = Empty Then
Rows(bul.Row).Hidden = True
Else
Rows(bul.Row).Hidden = False
End If
Next bul
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Sub Gizle()
On Error Resume Next
Dim bul As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For Each bul In Range("a1:a308")
If bul.Value = Empty Then
Rows(bul.Row).Hidden = True
Else
Rows(bul.Row).Hidden = False
End If
Next bul
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub