Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
Spróbuj: [syntax=vbnet]Sub d() Application.ScreenUpdating = False For Each s In ThisWorkbook.Sheets s.Cells.FormatConditions.Delete Next s Application.ScreenUpdating = True End Sub[/syntax]
[syntax=vbscript]Sub Kasuj() Dim k As Variant For Each k In Sheets("Arkusz1").Range("TerminyGORNIK") If k <= Date Then Sheets("Arkusz1").Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Spróbuj [syntax=vb]Sub Usundane() ' ' Usundane Makro ' Makro zarejestrowane 2012-05-22, autor XYZ ' If MsgBox("Czy na pewno chcesz usunąć dane osobowe z tej tabeli? Pamiętaj, że stracisz je bezpowrotnie!!!", vbOKCancel + vbCritical + vbDefaultButton2, "UWAGA! Usuwanie danych") = vbOK Then Range("C11:AC50").ClearContents End If End Sub[/syntax]
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
Witam, Szukam makra, do excela, które będzie przeszukiwało daną kolumnę i usuwało podane frazy z komórek np. faktura vat. Znalazłem coś takiego: Proszę pamiętać o używaniu znaczników code . Proszę poprawić błędy w poście. - arnoldziq
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
Witam, poszukuje makra które w przypadku gdy wartość w kolumnie e=0 usunie komorki z kolum a-e w danym wierszu i przesunie dane do góry byłabym wdzięczna za pomoc
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Dzień dobry, Proszę o pomoc w zmodyfikowaniu makra. W arkuszu Dane w zakresie F10:F500 wpisywane są ręcznie dane, które wykorzystywane są w innych arkuszach pliku. Do kasowania wpisanych danych jest używane proste makro jak niżej: Sheets("Dane").Select Range("F10:F500").... Selection.ClearContents Range("F10").Select...
Cześć, potrzebuję szybkiej porady jak stworzyć makro w VBA, rozzrysowałam sobie schemat 2 torowy z pętli, ale nie mam pojęcia jak przkesształcić go na ten język.... Dodano po 5 mam tabelę gdzie dane są wielkości 7x100 w przedziale i20:o119 i tam będę wpisywać różne rzeczy, chciałabym, żeby puste komórki, które pominę, same się uzupełniły wpisując np....
Witam, chcę stworzyć makro które po wprowadzeniu zmiany wartości w komórce np. c4 będzie automatycznie usuwać wartość komórki D4 czyli przesunięcie o 1 kolumnę . Makro ma działać tylko po zmianie wartości w komórkach (c4:c35) nie aktywuje się przy innych komórkach. stworzyłem coś takiego ale nie działa proszę o pomoc. [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
Witam, uruchomiłem w arkuszu makro, które po wpisaniu wartości w kolumnach 5,6,7,8 wpisuje automatycznie Datę w kolumnie "B" i Godzinę w kolumnie "C": Private Sub WorkSheet_Change(ByVal Target As Range) Dim i As Integer i = Target.Row If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then If Target.Cells <> a...
Hej Chcialbym napisac makro ktore z 22 arkuszy jakie mam (kazdy ma inna nazwe) usunely mi sie wszystkie ktore w komorce c7 maja pusta wartosc tzn nie ma tam nic. napisalem cos takiego For arkusz = 2 To 22 If Range("c7") = "" Then ActiveWindow.SelectedSheets.Delete End If arkusz = arkusz + 1 Next ... ale nie dziala tak jakbym chcial. Dacie jakas podpowiedz??
Hej, jest to mój pierwszy post na tym forum, dlatego z góry przepraszam za ewentualne błędy. Generalnie od niedawna uczę się pracować z VBA i obecnie staram się napisać program, który porówna dane z dwóch tabel ( liczba kolumn to zawsze od A DO AD), liczba wierszy zmienna. Chciałabym, żeby moje makro porównywało dane z tych tabel, a następnie usunęło...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Witam. Napisałem proste makro kopiujące kilka komórek. Maklro działa mi bez problemu. Chciałbym jednak troszkę zmienić wygląd arkusza. Jak za pomocą makr ukryć paski przewijania, paski narzędziowe, menu i obramowania wierszy i kolumn widoczne w excelu. Próbowałem troszkę pokombinować, udało mi już po uruchomieniu wyłączyć paski narzędziowe, lecz gdy...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 otwiera nowy skoroszyt i wkleja do określonego arkusza zakres komórek A1:Sn+1 lub całe wiersze 1:n+1. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Udało mi się stworzyć coś takiego, ale niestety wyrzuca mi błąd :( [syntax=vbscript]Sub...
Chcę usprawnić sobie pracę, dlatego pomyślałem o makro. 1) zaznaczam 2 lub więcej komórek w kolumnie A (dla przykładu A14 i A15). 2) klikam scal i wyśrodkuj 3) zaznaczam tyle samo komórek w kolumnie B, C i D (oczywiście zaczynam od tego samego wiersza co w pkt 1, czyli idąc za przykładem wiersz nr 14 i 15) 4) czyszczę komórki z obramowania (w arkuszu,...
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Dołącz przykladowy plik
no to musisz pobrać listę plików ze szczegółami, wyłuskać z nazw (lub właściwości pliku) datę/godzinę i w pętli wydać rozkazy kasowania tych, co spełniają kryteria. (at)ElektrodaBot daj program / makro w VBA które odczyta listę plików w katalogu, porówna które były starsze niż tydzień i je skasuje. Bezpośrednia odpowiedź Poniżej masz gotowe makro VBA,...
W przykładowym pliku nie widzę średników. Nie widzę też makra, które miałoby źle zapisywać. Generalna zasada jest taka, że jeśli plik zawiera separator w polu danych lub jakiś inny znak niedozwolony, to zawartość komórki ujmuje się w cudzysłów. Mechanizm Excela robi to prawidłowo, więc dlaczego makro nie miałoby?
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Witaj [syntax=vb]Sub usuwanie_pustych_wierszy() For Each sh In ThisWorkbook.Sheets For i = sh.Cells(65536, "A").End(xlUp).Row To 2 Step -1 If sh.Cells(i, "B").Value = "" Then sh.Rows(i).Delete shift:=xlUp End If Next Next End Sub[/syntax]
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
Witam, Mam problem który może mi rozwiązać tylko makro, otrzymałem excel z danymi w którym mam w jednej kolumnie nazwy odbiorców w kolejnych dane sprzedażowe. Problem polega na tym że zawsze pierwszy wiersz dla danego odbiorcy jest sumą wszystkich pozostałych (taki wiersz sumujący sprzedaż dla danego klienta). Potrzebuje makro które automatycznie usunie...
Super! Makro działa tak jak sobie założyłem, okazuje się jednak że mam problem z analizą tak zebranych danych. Ładuje do 100 plików na raz każdy ma nawet kilkaset linijek i analiza jest utrudniona przez to że każdy jest w osobnym arkuszu, wcześniej tego nie przewidziałem... Co trzeba by przerobić żeby pliki txt ładowało wszystkie do jednego arkusza...
Prosiłem o plik Excela, a nie o obrazek. Pytałem, jak to ma działać? Czy to makro ma reagować każdorazowo jak zmieni się kolor (rozumiem, że sprawdzana ma być kolumna C), czy ma być wywoływane okresowo (np. przyciskiem) i ma sprawdzać całą kolumnę pod kątem pokolorowanych duplikatów? Czy może wystąpić taka sytuacja, że jakiś wpis ma już kolor i ten...
Witam Wszystkich Serdecznie, Jest to mój pierwszy post na elektroda więc proszę o wyrozumiałość. Opis sytuacji: 1. Pracuje na excelu i tworzę DashBoarda związnego z urlopami. 2. W danym excelu jest wyświetlana lista osób oraz kto ile ma urlopów; 3. Wyświetlany excel zaciąga dane z innego pliku za pomocą Query; 4. Tabela Query wyświetla wszystkie daty...
Witam! To mój pierwszy post w tej części forum. Natrafiłem na problem, znalazłem rozwiązanie, może komuś to się przyda. Zarejestrowałem proste makro, które w pierwszej części (tylko ta jest istotna) miało u dołu tabeli, ale przed wierszem podsumowania tworzyć dodatkowy wiersz będący kopią jednego z wierszy powyżej. Wydawało się, że sprawa jest prosta,...
Proponuję po numerze działki, po komunikacie typu, np.: a) Dodawanie - "Wpisz nr działki poniżej której ma zostać dodany wiersz" b) Usuwanie - "Podaj nr wiersza, który ma zostać usunięty" Nr działki podawałbym przy każdej uprawie w jej obrębie, po co "dziurawe" dane ?
Witam. Mój problem wygląda następująco: Dostaje plik excela w którym są dane z kilku plików pdf. Dane wyglądają następująco: Nagłówek - kilka linijek Dane - tabela numerowana od 1 do różnie czasem do 100 czasem ponad 1000 pozycji. Stopka - kilka linijek Nagłówek itd. Chodzi mi o takie makro które sprawdzi które wiersze mają w kolumnie A liczbę, natomiast...
To wersja makro, które wrzuciłem dokładnie to robi. Po przemieleniu Twoich przykładowych danych pozostało dokładnie 100 wierszy, z czego zostały tylko wiersze z "invoice" w opisie a także wiersze z kwotą 5.00 niezależnie od reszty opisu.
Witam Potrzebuje pomocy przy napisaniu makra excel W kolumnie M mam 10 typów wartości liczbowych powtarzających się, pomieszanych. Chciał bym aby makro znalozło wiersze w kolumnie M zaierające wartości 1224, 1228 i 1232 Po czym usunęło całe wiersze, czyli wszystkie dane we wszystkich kolumnach w tym wierszu który zawiera te liczby. Ale tak było nie...
Np dla kolumn A:C On Error Resume Next 'nie zatrzymuje się na pustych i słowach For k = 1 To 3 For w = 1 To ActiveSheet.UsedRange.Rows.Count Cells(w, k) = Replace(Trim(Cells(w, k)), ".", "") * 1 Next Next Dla pewności dodałem usuwanie spacji gdyby się jakieś zaplątały...
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
jednym zdaniem? hmm... popatrz na ramkę w przykładzie jak dodaje kolejną to nadają im się numery: pierwsza ta kopiowana ma nr 1, a dodawane nr 2 itd. więc jest to numerowanie ramek. P.s. A przy okazji ta ramka, którą pokazuję jest przykładowa - oficjalna (nie do pokazania na formum ;-)) jest już mega rozbudowana i nagrywanie makra kopiowania robi się...
Witam, Próbuję napisać makro do poniższej tabeli (numerom porządkowym przypisane są dwa wiersze), takie aby w momencie kiedy data wpisana przy danym numerze porządkowym jest o 30 dni starsza od daty aktualnej, automatycznie usuwało zawartość dwóch ostatnich komórek z danego rzędu (zaznaczone na zielono), niestety moje umiejętności pozwalają tylko na...
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą. Dzięki za podpowiedź, ale to makro które aktualizuje komórkę A1 jest zahasłowane i nie da rady nic dopisać. Trzeba by zrobić nowe tylko do przesówania komórek. Mogłbyś napisać...
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
jak próbuję przypisać osobę do zadania To dziwne. U mnie działa poprawnie. Jedynie dodałem teraz obsługę błędu przy usuwaniu osoby.
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Potrzebuję czegoś cgyba podobnego, ale jednak nie mogę dopasować... Potrzebuję makro, które usunie mi wszystkie wiersze nie zawierające w kolumnie K słowa "bio" ... Pomożecie? W tej kolumnie są ciągi znaków i super jakby makro szukało tylko słowa "bio", a nie np. " bio grafia" czy "przedsię bio rstwo" Wydzieliłem jako nowy temat z https://www.elektroda.pl/rtvforum/topic3...
Witam serdecznie Na początku zaznaczam, że jestem na początku swojej drogi z makrami w Ecxcel'u. Potrzebuje napisać makro, które które automatycznie usunie z całego arkusza rekordy z opisem kolumn w środku pliku, tzn pozostawi nagłówek na początku, ale tylko jeden. Załóżmy dla bezpieczeństwa, że liczba rekordów pomiędzy nagłówkami nie jest stała. Dlatego...
Trzeba lecieć od dołu: [syntax=vbscript]Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 1 Step -1 If Cells(x, 1) = "DELETE" Then Rows(x).Delete Next End Sub [/syntax]
Spróbuj na początku Twojego makra do usuwania danych wyłączyć zdarzenia arkusza [syntax=vbscript]Application.EnableEvent... = False[/syntax] a na końcu makra ponownie je włączyć [syntax=vbscript]Application.EnableEvent... = True[/syntax]
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Dziękuję za odpowiedz. Dobrze kolega zrozumiał. Jak jest zero to odejmnij. Jak nie ma zera to dodaj zero. Tak sama z druga wartością. Juz tlumacze sens. Codziennie dostaje raporty w których występują wartości z zerem lub bez zera. Żeby makro moglo uzupełnić dane(wartości duplikujące) to musze miec dane jednakowe. Jak nie mam jednakowych danych to musze...
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
excel makro usuwanie wierszy excel makro usuwanie komórek makro usuwanie wierszy excel
iveco daily ciśnienie oleju impulsator elektroniczny robotyk wymagać
pilot zgemma bateria parkside styki
Przyczyny problemów z automatycznym strojeniem tunera Czyszczenie pralki tabletkami do zmywarki - czy to bezpieczne?