sütunların gizlenmesi

[Ali]

Verilen örnek için aşağıdaki gibi uygulayabilirsiniz

a7 ile G 13 arasındaki alan da G7:G13 sütunundaki veri 0 ya da boşsa o satırı saklasın

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Integer
For i = 7 To 13
If Cells(i, 7) = 0 Or Cells(i, 7) = "" Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

A7 ile G13 arasındaki alan içinde B13:G13 satırındaki verilerden hangisi boş veya 0 ise o sütunu gizlesin

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim t As Integer
Dim i As Integer
For t = 2 To 7
For i = 7 To 13
If Cells(i, t) = 0 Or Cells(i, t) = "" Then
Columns(t).Hidden = True
End If
Next i
Next t
Application.ScreenUpdating = True
End Sub

 

[gecemavisi]

Saygıdeğer Fructose. Sorumla ilgilendiğiniz için Teşekkür ederim. Satır kısmının mantığını çözdüm. Onun tersini kullanıp Sütun işinide hallettim. Yardımlarınız için teşekkür ederim. Sizinle tanışmak isterdim.