- Katılım
- 18 Temmuz 2007
- Mesajlar
- 8
- Excel Vers. ve Dili
- 2010 TR
- Altın Üyelik Bitiş Tarihi
- 20.02.2020
Merhaba.
Yardım istediğim örnek dosya ektedir.
Aşağıdaki kodla istediğim koşullarda satırları gizle/göster yapabiliyorum.
Bu satırları "gizlemek" değilde "silmek" istiyorum.
Kodun özeti,
Toplamlar sütunlarının hangi satırda 0 dan büyük rakam varsa,
o satır en üstte ( 8.satırda ) kalmalı, diğer üstündekiler silinmeli.
Sonra altta satır 408 e kadar yine 0 olanlar silinmeli.
Şimdiden teşekkürler.
Gizle/göster kodu:
Sub gizle()
Dim sat As Long, i As Long
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "T").End(xlUp).Row
For i = 7 To sat
If Cells(i, "T").Value <> "" And Cells(i, "T").Value < 1 Then
Rows(i).Hidden = True
End If
If Cells(i, "Z").Value <> "" And Cells(i, "Z").Value >= 1 Then
Rows(i).Hidden = False
End If
If Cells(i, "AB").Value <> "" And Cells(i, "AB").Value >= 1 Then
Rows(i).Hidden = False
End If
If Cells(i, "AH").Value <> "" And Cells(i, "AH").Value >= 1 Then
Rows(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
Rows("409:415").Hidden = True
End Sub
Sub göster()
Application.ScreenUpdating = False
Rows("1:5000").Hidden = False
Rows("409:415").Hidden = True
Application.ScreenUpdating = True
End Sub
Yardım istediğim örnek dosya ektedir.
Aşağıdaki kodla istediğim koşullarda satırları gizle/göster yapabiliyorum.
Bu satırları "gizlemek" değilde "silmek" istiyorum.
Kodun özeti,
Toplamlar sütunlarının hangi satırda 0 dan büyük rakam varsa,
o satır en üstte ( 8.satırda ) kalmalı, diğer üstündekiler silinmeli.
Sonra altta satır 408 e kadar yine 0 olanlar silinmeli.
Şimdiden teşekkürler.
Gizle/göster kodu:
Sub gizle()
Dim sat As Long, i As Long
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "T").End(xlUp).Row
For i = 7 To sat
If Cells(i, "T").Value <> "" And Cells(i, "T").Value < 1 Then
Rows(i).Hidden = True
End If
If Cells(i, "Z").Value <> "" And Cells(i, "Z").Value >= 1 Then
Rows(i).Hidden = False
End If
If Cells(i, "AB").Value <> "" And Cells(i, "AB").Value >= 1 Then
Rows(i).Hidden = False
End If
If Cells(i, "AH").Value <> "" And Cells(i, "AH").Value >= 1 Then
Rows(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
Rows("409:415").Hidden = True
End Sub
Sub göster()
Application.ScreenUpdating = False
Rows("1:5000").Hidden = False
Rows("409:415").Hidden = True
Application.ScreenUpdating = True
End Sub
Ekli dosyalar
-
96.9 KB Görüntüleme: 8