Wątek przeniesiony 2021-01-28 13:31 z Inne języki programowania przez cerrato.

VBA - Usuń wiersz jeśli komórka spełni warunek

0

Dzień Dobry,

Pracuję na tabeli wyciągniętej z bazy danych. Tworze warunek dla jednej z kolumn z tabeli. Chciałbym usunąć wiersze z tej tabeli w których znajdują się komórki z Kolumny1 spełniające dany warunek.

Poniższy Kod zajduję się w Module1(musi tam raczej pozostać) , przed nim wykonuję się odświeżenie zapytań(połączenie z bazą danych) oraz trzy formuły po czym docelowo ma się wykonać poniższy kod ale nie działa , nie wyrzuca błędu ale pętla z warunkiem się nie wykonuję.

*Dim cell As Range

For Each cell In Range("Zapytanie1[Kolumna1]")
If cell.Value > 100 Then

cell.EntireRow.Delete

End If
Next cell*
0

A nie łatwiej dodać ci do Zapytanie1 dodatkowy warunek: AND CURRENT_DATE-a.DATAICZAS<=100?

1 użytkowników online, w tym zalogowanych: 0, gości: 1