FİLTRE İLE GİZLENEN SATIRLARI SİLMEK

[meslek5]

Merhaba, Filtreleme sonrası görünür satırlar haricindeki yani süzülerek gizlenen satırları komple silmek istiyorum. Makro ile yapılabilir mi?

 

[PLİNT]

Merhaba
Döngü ile

Private Sub CommandButton1_Click()
For a = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
If Rows(a).Hidden = True Then Rows(a).Delete
Next
end sub

veya aşağıdaki gibi yardımcı sütun kullanarak yapabilirsiniz;
Kodlarda "Z" sütunun kullanılmadığını varsayılıyor

Private Sub CommandButton1_Click()
'Application.Calculation = xlCalculationManual
Range("Z1:Z" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Cells.Value = 1
Columns("Z:Z").ColumnDifferences([Z1]).EntireRow.Delete
[Z:Z].ClearContents
 'Application.Calculation = xlCalculationAutomatic
End Sub