Automatyczne usuwanie niepotrzebnych pustych wierszy

Automatyczne usuwanie niepotrzebnych pustych wierszy

W arkuszu prowadzisz ewidencję pracowników tymczasowych. Dane osób, które zakończyły współpracę z Twoją firmą, są usuwane z komórek. Niestety to powoduje nieporządek w zestawieniu i trudności w analizowaniu danych. Jeśli pustych wierszy byłoby kilka bądź kilkanaście, to mógłbyś je usunąć ręcznie. W przypadku gdy będzie ich dużo więcej, zadanie zrobi się niezwykle pracochłonne. Okazuje się, że wcale nie musi tak być, jeżeli zastosujesz proste makro.


Rys. 1. Przykładowy rejestr

Proponowane makro będzie sprawdzało, czy w komórce kolumny B znajduje się wpis. Jeżeli nie, cały wiersz zostanie usunięty.

=> Aby je przygotować:
1. Z menu Narzędzia wybierz polecenie Makro/Edytor Visual Basic. Możesz także skorzystać z kombinacji klawiszy lewy Alt + F11. Otworzy się Edytor VBA.
2. Z menu Insert wybierz polecenie Module.
3. Do okna kodu po prawej wpisz kod przedstawiony na rysunku 2.


Rys. 2. Makro usuwające niepotrzebne puste wiersze

4. Zapisz i zamknij Edytor VBA.

Makro jest gotowe i możesz je uruchomić.

=> W tym celu:
5. Z menu Narzędzia wybierz polecenie Makro/Makra lub wciśnij kombinację klawiszy lewy Alt + F8.
6. Na liście makr zaznacz usuwanie_pustych_wierszy i kliknij przycisk Uruchom.


Rys. 3. Puste wiersze zostały usunięte

Wskazówka
- Makro rozpoczyna poszukiwanie arkusza od 2. wiersza. Jeżeli przykładowo Twoje dane zaczynają się od 3. wiersza, zmodyfikuj pierwszą linię makra w następujący sposób:

For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1

- Jeśli chcesz, aby makro sprawdzało inną kolumnę, np. C, zmień drugą linię makra w taki sposób:

If Cells(i, "C").Value = "" Then

Zaprezentowane narzędzie może Ci oszczędzić mnóstwo czasu przy porządkowaniu zestawień. Jeśli znowu pojawią się w Twoim roboczym zestawieniu puste wiersze, po prostu ponownie uruchom makro. Możesz z niego korzystać dowolną liczbę razy.


Wyszukiwarka

Podobne podstrony:
Usuwanie niepotrzebnych apostrofów w komórkach
Koniec z ręcznym usuwaniem niepotrzebnych odstępów, excel
Usuwanie niepotrzebnych funkcji Windows Vista, KOMPUTER - SERWIS - EDUKACJA, 02 Windows Vista
Usuwanie niepotrzebnych czcionek w Windows Vista, KOMPUTER - SERWIS - EDUKACJA, 02 Windows Vista
Automatyczne usuwanie kłopotliwych spacji, excel
Automatyczne usuwanie kont, Sbs
Jak automatycznie pokolorować na przemian wiersze tabeli, PHP Skrypty
Usuwanie niepotrzebnych funkcji Windows Vista
V5R7 usuwanie Pytania Międzynarodowe Stosunki Polityczne sem 9 Fiszer By EOP (Automatycznie zapisany
Usuwanie z arkusza niepotrzebnych obiektów, Dokumenty(1)
Automatyczne numerowanie wierszy
Hurtowe usuwanie z arkusza niepotrzebnych obiektów, excel
5 Usuwanie wierszy
FESTO Podstawy automatyzacji
Automatyka (wyk 3i4) Przel zawory reg
Automatyzacja w KiC (w 2) Obiekty reg

więcej podobnych podstron