Jak użyć pętli For Each do iteracji do ostatniego rekordu w VBA?

Question

Witam.
Mam napisany kod, w którym jest pętla działająca w danym zakresie.
Jednakże zakres często się zmienia i raz jest 30 wierszy a raz 500.
Proszę o pomoc jak uwzględnić w moim kodzie pętlę, która działała by tylko do ostatniego rekordu (myślę, że chodzi to o pętle for each lecz nie wiem dokładnie jak ją zastosować)

Zaloguj się, aby zobaczyć kod

Proszę pamiętać o używaniu znaczników syntax. Opcja Listing kodu. - arnoldziq

marcinj12 · Accepted Answer

Kod jest dobry i powinien działać. Trzy rzeczy:
1. Jak deklarujesz zmienną ENERGADR? Czy jest tak arkusz?
2. Wstawiłeś ten kod po tym, jak zmienna ENERGADR została przypisana?
3. Możliwe że masz włączone automatyczne sprawdzanie czy zmienna została zdefiniowana, spróbuj tak zadeklarować (jeżeli wierszy będzie mniej niż 32767, a przeciwnym wypadku zamiast Integer użyj Long):

Zaloguj się, aby zobaczyć kod

Jeżeli to żaden z tych to najlepiej jakbyś wstawił plik albo wyślij go do mnie na PW.

marcinj12 · Answer

Jeżeli wiesz że wierszy będzie mniej niż 65536 (kompatybilne z Excelem 2003), to wstaw przed pętlą fragment:

Zaloguj się, aby zobaczyć kod

gdzie A65536 - ustala ostatni wiersz w kolumnie A.
Potem w pętli użyj For i = 1 To ost_wiersz ...

kodzku · Answer

rozumiem, że ost_wiersz to zmienna range? Czy możesz bardziej rozwinąć Potem w pętli użyj For i = 1 To ost_wiersz ... nie bardzo łapię(nie wiem jak to zastosować u mnie)

marcinj12 · Answer

Po wstawieniu tego przed pętlę w zmiennej ost_wiersz będziesz miał numer ostatniego niepustego wiersza w wybranej kolumnie.
Masz w kodzie dwie pętle, a nie napisałeś w której z nich "zakres często się zmienia i raz jest 30 wierszy a raz 500", stąd nie wiem co rozwijać.
Generalnie:

Zaloguj się, aby zobaczyć kod

kodzku · Answer

faktycznie moje niedopatrzenie:D, chodzi mi o pierwszą pętle. Ale czy można to też zastosować również dla drugiej pętli. (chodzi o to że są to dwie listy(za każdym razem inne) które po spełnieniu warunku uzupełniają dane.

marcinj12 · Answer

Można, czemu nie?
Dodaj drugą zmienną, ost_wiersz2 czy coś w tym stylu, podaj nazwę tego drugiego arkusza w którym ma szukać wiersza, a w drugiej pętli For użyj - analogicznie - zmiennej ost_wiersz2 zamiast ost_wiersz.

PS. Jeżeli masz przypisane arkusze do zmiennych ENERGADR i RBH, to możesz użyć:

Zaloguj się, aby zobaczyć kod

i

Zaloguj się, aby zobaczyć kod

kodzku · Answer

Kod: textZaloguj się, aby zobaczyć kod Wprowadziłem tak jak mi napisałeś ( zamieniłem A65536 na B65536 ale debuger ciągle wyrzuca mi błąd w kodzie Kod: textZaloguj się, aby zobaczyć kod

kodzku · Answer

sprawdziłem i działa. Zle określiłem zmienną i to był powód. Dzięki za pomoc.

Jak użyć pętli For Each do iteracji do ostatniego rekordu w VBA?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Podsumowanie tematu