satır Gizleme

[yuzun23]

İyi günler. Tek bir butona basarak, GİZLE ve GÖSTER butonu makrosu,
A10 ile A104 değer yok ise gizlesin ve göstersin.

şimdiden teşekkür ederim.

 

[nihatkr]

Gizli satır varsa gösterir. Boş Hücre varsa Gizler

Sub Gizle_Goster()
Dim ws As Worksheet
Dim i As Long
Dim gizliVar As Boolean

Set ws = ActiveSheet

For i = 10 To 104
If ws.Rows(i).Hidden = True Then
gizliVar = True
Exit For
End If
Next i

If gizliVar Then
ws.Rows("10:104").Hidden = False
MsgBox "Gizli satırlar gösterildi.", vbInformation
Exit Sub
End If

For i = 10 To 104
If Trim(ws.Cells(i, "A").Value) = "" Then
ws.Rows(i).Hidden = True
Else
ws.Rows(i).Hidden = False
End If
Next i

MsgBox "Boş hücreli satırlar gizlendi.", vbInformation
End Sub

 

[Korhan Ayhan]

Bunlarda faydalı olabilir...

Google Search

www.google.com