Ali
Uzman
- Katılım
- 21 Temmuz 2005
- Mesajlar
- 7,897
- Excel Vers. ve Dili
- İş:Excel 2016-Türkçe
Verilen örnek için aşağıdaki gibi uygulayabilirsiniz
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
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
Private Sub CommandButton1_Click()a7 ile G 13 arasındaki alan da G7:G13 sütunundaki veri 0 ya da boşsa o satırı saklasın
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