Şartlı Satır gizleme ve gösterme

[alirizapekbilir]

merhaba ustalarım.

ekte göndermiş olduğum dosyanın ohal cetveli sayfasında bulunan satır gizle düğmesine bastığımda sadece 3. sutundakinleri sabit bırakıyor. gerisini gizliyor. benim istediğim tamamen boş olan satırların gizlenmesi. makro konusunda çok bir bilgim de yok. yardımlarınızı bekliyorum.

 

[askm]

Kodları aşağıdaki şekilde güncelleyin.

Sub Dikdörtgen1_Tıklat()
Dim i As Integer
For i = 8 To 15
If Application.WorksheetFunction.CountIf(Range(Cells(i, 3), Cells(i, 7)), "<>") > 0 Then
Rows(i).Hidden = False
Else
Sheets("OHAL CETVELİ").Rows(i).Hidden = True
End If
Next i
End Sub