Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64409 Skopiuj do schowka Pomijane wiersze
Autor Wiadomość
gajus21
Exceloholic


Posty: 114
Wysłany: 13-03-2019, 10:20   Pomijane wiersze

Witam,
Mam pewien problem z pętlą:
Kod:
For i = 3 To LastRow
    If wrk1.Cells(i, "J") <> "0A" Then
    Rows(i).Select
    Selection.Delete
    i = i - 1
    End If
Next i

Ale po wykonaniu tej operacji program się zawiesza. Dodałem linijkę i=i-1 z uwagi na to że wiersze były pomijane jeżeli któryś został usunięty.
Próbowałem też z tym rozwiązaniem ale było bardzo podobnie jak wcześniej.
Kod:

Jump:
For i = 3 To LastRow
    If wrk1.Cells(i, "J") <> "0A" Then
    Rows(i).Select
    Selection.Delete
    GoTo Jump
    End If
Next i

Czy ktoś mógł by mi polecić lepsze rozwiązanie?
ID posta: 364087 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 273 razy
Posty: 778
Wysłany: 13-03-2019, 10:32   

Tak należy zrobić
Kod:

For i = LastRow To 3 step -1
    If wrk1.Cells(i, "J") <> "0A" Then
    Rows(i).Delete
    End If
Next i
ID posta: 364088 Skopiuj do schowka
 
 
gajus21
Exceloholic


Posty: 114
Wysłany: 13-03-2019, 10:37   

Faktycznie od dołu dziękuję.
ID posta: 364090 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe