makroya boş satırları gizle ekleme

[byysmn]

arkadaşlar kolay gelsin.
aşağıdaki gibi makrom var bu makroya f sutünunda boş olan satırları gizle makrosu eklemek istiyorum.

ilginize teşekkürler.

Sub sifregirakdeniz() 'akdeniz
Dim alan As String
alan = InputBox("Şifrenizi giriniz")
If alan Like 146 Then
ActiveSheet.Unprotect 123
Range("a151:a158").EntireRow.Hidden = False
Range("a151:an158").Locked = False
ActiveSheet.Protect 123
Else
MsgBox "Yanlış şifre girdiniz"
End If
End Sub

 

[Orion1]

call makronuz

 

[mithatgokceli]

boş hücreleri gizlemek için ne yapabilirim.. nasıl bir kod yazmam gerekli? değerli cvplarınızı bekilyorum. iyi çalışmaar....