ID tematu: 75897
 |
usywanie niepotrzebny wierszy |
Autor |
Wiadomość |
robek
Exceloholic

Wersja: Win Office 365
Posty: 133
|
Wysłany: 05-06-2024, 08:44 usywanie niepotrzebny wierszy
|
|
|
Witam
Potrzebuje jakieś proste makro które usunie wszystkie wiersze które w kolumnie S (zakładka VAT) maja zapis : IN_PROGRESS lub CANCELLED.
Z góry dziękuje.
TEST.xlsm
|
Pobierz Plik ściągnięto 30 raz(y) 83.17 KB |
|
|
 | ID posta:
435709
|
|
|
 |
|
|
|
kuma
Excel Expert

Wersja: Win Office 2010
Pomógł: 1549 razy Posty: 4421
|
Wysłany: 05-06-2024, 09:19
|
|
|
Przetestuj moją propozycję.
Kod: | Sub test_kuma()
With Sheets("VAT").Cells(1).CurrentRegion
.AutoFilter 19, Array("IN_PROGRESS", "CANCELLED"), xlFilterValues
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub |
|
_________________ Pozdrawiam. |
|
 | ID posta:
435711
|
|
|
 |
|
|
hurgadion
ExcelSpec


Wersja: Win Office 2021
Pomógł: 1217 razy Posty: 2810
|
Wysłany: 05-06-2024, 09:26
|
|
|
Hej,
przetestuj może takie makro (ciut inaczej niż kuma, ale chyba wolniej):
Kod: |
Sub Usun_wiersze()
Dim i&
For i = Cells(Rows.Count, "S").End(xlUp).Row To 2 Step -1
If Cells(i, "S").Value = "IN_PROGRESS" Or Cells(i, "S").Value = "CANCELLED" Then Rows(i).Delete
Next i
End Sub
|
Pozdrawiam. |
|
 | ID posta:
435712
|
|
|
 |
|
|
robek
Exceloholic

Wersja: Win Office 365
Posty: 133
|
Wysłany: 05-06-2024, 11:44
|
|
|
Działa elegancko,
Bardzo dziękuje |
|
 | ID posta:
435722
|
|
|
 |
|
|
|
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
|
|
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
|