Witold Sobków

Witold Sobków Problem Analyst

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

Imię Nazwisko
4 Michal Kowalski
17 Iwona Nowak
45 Monika Polak
200 Jan Matejko
256 Agata Kaczyńska

Egzekując kod krok po kroku w pewnym momencie mam coś na kształt stanu powyżej. Odfiltrowane są stałe osoby, które chcę usunąć. Problem polega na tym, że chcę usunąć te osoby jako cale rzędy przy czym przy każdym uruchomieniu makra liczby porządkowe dla osób są różne zatem nie mogę zaznaczyć stałych. Czy można oznaczyć każdy odfiltrowany z osobna i usunąć? Gdy zaznaczę zakres (jak w tym przypadku) 4:256 to usunie wszystkie rzędy ukryte.

Dziękuję z góry za pomoc.

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów


ActiveSheet.cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
Witold Sobków

Witold Sobków Problem Analyst

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

Jest to czego potrzebuję ale dodam jeszcze, że kod ten usuwa wszyskie wiersze wraz Nagłówkami kolumn na które założone są filtry oraz dwa wiersze, które w ramach estetycznej wrażliwości dodałem. Czy można to zrobić począwszy od n-tego wiersza w dół?

Jeśli nie to nie problem będzie to obejść, ale tak z ciekawości :)

Dziękuję.

Pozdrawiam,
Witek

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

jasne, wybacz, wrzuciłem to tak na szybko


ActiveSheet.rows("4:256").SpecialCells(xlCellTypeVisible).EntireRow.Delete
Witold Sobków

Witold Sobków Problem Analyst

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

Super, dziękuję :)
Patrycja Jesionek

Patrycja Jesionek Analityk Logistyczny

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

a jeżeli nie znajdzie komórek do usunięcia wywala błąd czy mogę prosić o kod który gdy nie znajdzie komórek poprostu zdejmie filtr ?
Bogdan Gilarski

Bogdan Gilarski www.excelperfect.pl
Perfect And
Practical

Temat: [VBA] - usunięcie wyłącznie odfiltrowanych rzędów

Bardzo ogólnie (i niebezpiecznie) można napisać, że pomijamy występujący błąd poprzez
On Error Resume Next
..... jakiś kod generujący potencjalny błąd ....
On Error Goto 0

Kod (polecenie) do rozwinięcia Filtra to
ShowAllData
na ogół również połączone z w/w obsługą błędów.Ten post został edytowany przez Autora dnia 06.08.14 o godzinie 22:15



Wyślij zaproszenie do