[ÇÖZÜLDÜ] Birden fazla sütunu filtrelemek...

[enteresan]

Aşağıya yazdığım makro ile, 1:300 satırlar arasında 5 nci sütunda filtreleme yapıyorum. Kullandığım dosyada 1 nci satırda E:L arası hücreleri birleştirdim ve 2 nci satırdan itibaren E:L sütun aynı anda filtreleyebilmek için kodu nasıl değiştirmeliyim. Makro şu:

Sub bir()
Dim i As Integer
For i = 1 To 300
Application.ScreenUpdating = False
If Sheets("Sayfa1").Cells(i, 5).Value <> "" Then
Rows(i).Hidden = False
Range("A2").Select
Else
Sheets("Sayfa1").Rows(i).Hidden = True
End If
Next i
End Sub

Resim olarak ta göndermeye çalıştım ama umarım gönderebilmişimdir. Saygılar..

 

[Levent Menteşoğlu]

A&#351;a&#287;&#305;daki gibi deneyin.

Sub bir()
Dim i As Integer
For i = 1 To 7 '300
Application.ScreenUpdating = False
If WorksheetFunction.CountA(Range("e" & i & ":l" & i)) > 0 Then
Sheets("Sayfa1").Rows(i).EntireRow.Hidden = False
Else
Sheets("Sayfa1").Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub

 

[enteresan]

Aşağıdaki gibi deneyin.

Sub bir()
Dim i As Integer
For i = 1 To 7 '300
Application.ScreenUpdating = False
If WorksheetFunction.CountA(Range("e" & i & ":l" & i)) > 0 Then
Sheets("Sayfa1").Rows(i).EntireRow.Hidden = False
Else
Sheets("Sayfa1").Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub

Büyüksün Hocam. Hayırlı akşamlar...