Chciałbym zwrócić uwagę na jedno zdanie z dokumentacji metody GetSaveAsFilename: When InitialFilename is used with an extension and a filter is applied, this extension must match the filter extension, otherwise the effective InitialFilename displayed in the dialog box will be an empty string. Według tego, jeżeli 'initialfilename' jest używane z rozszerzeniem...
Hmm, ja mam 2007. Może Environ źle zwraca. A co pokaże w msgbox Environ("USERPROFILE") Może spróbuj ze sztywną ścieżką. U mnie: "C:\Users\Adam\Desktop\Zeszyt1.pdf" podstawiam "C:\Users\Adam\Desktop\" & Range("e5") & ".pdf" PeDeEfa masz zamkniętego oczywiście?
W pełni zgadzam się z kolegą adamas_nt co do znaków, które może zawierać nazwa pliku. Chcę tylko zwrócić uwagę na drobny błąd, który zakradł się do jego kodu: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... Aby to działało prawidłowo wystarczy zamienić "Value" na "Text". Różnica...
pliku nadzwyczajnej nie ma Funkcja nie zapisuje, tylko zwraca nazwe pliku( gets a file name from the user without actually saving any files.) Dalej trzeba Workbooks(nazwa lub indeks).SaveAs ZapiszJako
Witam ,chociaż już po Świetach to życzę zdrówka wszystkim. A co do problemu z jakim się zwracam to potrzebuję do pliku załączonego aby dołożył ktoś makro lub formułe, w zależności czym będzie lepiej uzyskać efekt ,który przydałby mi się na co dzień. Mianowicie w skoroszycie mam kilka arkuszy z nazwą powtarzającą się w kolumnach "B". Po otwarciu skoroszytu...
A można zmienna i zamienić na nazwę arkusza a nie wartość liczbową to by rozwiązało problem. Po lewej stronie znaku "=" zmienna i to indeks arkusza. Wyrażenie "Sheets(i).Name" zwraca wartość tekstową (nazwę). Nie ma to znaczenia dla prawej strony. W nowym (standardowym) pliku "Arkusz1" i "Sheets(1).Name" to ten sam string. Kluczową sprawą w tym przypadku...
To powinno ci pomóc: Sub cos() a = Now() b = Year(a) c = Month(a) d = Day(a) MsgBox ("Teraz jest: " & a & Chr(10) & Chr(10) & "Rok:" & b & ", Miesiąc:" & c & ", Dzień:" & d) nazwa = "plik_" & b & "-" & c & "-"...
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
Witam, Zaciągam plik excel do mojego programu i próbuję pobrać z niego odpowiednie dane. Ponieważ plik excel nie posiada nazw kolumn tylko od razu zwraca jakieś dane, pierwszą kolumnę muszę iterować osobno aby zostały dodane odpowiednie dane do mojego obiektu. I napotkałam problem z pobraniem daty. W excelu kolumna ta posiada formatowanie niestandardowe...
Ja bym najpierw sprawdził funkcją Len() czy długość nazwy pliku jest zgodna z oczekiwaną. To nie zawsze musi być prawdą, bo użytkownik mógł zmienić nazwę pliku, ale wtedy całe to zabezpieczenie jest nieprzydatne. Potem funkcją Mid() wyciął z nazwy fragmenty daty i sprawdził, czy funkcja IsDate() dla tego fragmentu zwraca true (może się okazać, że konieczne...
Witam! Jak w temacie, na dwóch komputerach wszystko pokazywało ok, na jednym listopad, na drugim november bo System angielski, po przeniesieniu pliku do pracy przy zmianie daty w komórce E2 zamiast nazwy miesiąca wyskakuje 00 - bardzo proszę o pomoc potrzebuję koniecznie aby na podstawie daty zwracało wartość miesiąca tekstowo. Plik obecnie używany...
dzień dobry, w związku z tym, że jestem słaby w VBA, mam prośbę czy ktoś może pokazać mi przykładowy/ podobny lub fragment kodu w vba , który wykonywałby następujące zadanie : - makro w danym folderze i podfolderach przeszukuje wybrane pliki excel (pliki wybierane są wg nazw , która zawiera oznaczony fragment tekstu) , - w tych wybranych plikach przeszukuje...
Chętnie bym poczytał na temat kolekcji Control i innych. Możesz coś podrzucić? Na forum nie mogę znaleźć. Poniżej kod programu. Załączyłem również plik. [syntax=vb] Private Sub UserForm_Initialize() Dim liczba_wierszy As Integer ' zawiera liczbę niepustych wierszy w pliku excel liczba_wierszy = 0 For Each c In Arkusz2.Range("A2:A35") ' pętla zwraca...
Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej przez operator Like w VBA, to znaczy w tym przypadku:...
Faktycznie działa - bardzo dziękuję za odpowiedź i pomoc :-) Makro prawidłowo dodaje z każdego nowego pliku ostatni arkusz. Potrzebuję jeszcze aby z każdego pliku źródłowego poza skopiowaniem całego ostatniego arkusza "wyniki" dodatkowo z pierwszego arkusza "Dane" kopiowało A18:B18 i wklejało w "Lista plików" w arkuszu "podsumowanie" w kolumnie F w...
Witam mam dosyć sporą bazę w Excel'u i 2 problemy których ogarnięcie ręcznie zajęło by pewnie tygodnie, dlatego zwracam się o pomoc :). (Baza Zielone) 1 - Jak w przykładzie. Są produkty matki (pusta niebieska komórka "id_kombinacji") - mają one uzupełnione 5 zielonych kolumn. Chodzi o przekopiowane danych z tych 5 zielonych niżej odpowiednio do produktów...
Dla tego konkretnego pliku: w komórce E7: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;2;0) w komórce E8: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;3;0) w komórce E9: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;4;0) Pierwszy parametr formuły (E6) to komórka, która zawiera szukaną średnicę, drugi (Arkusz2.C9:F19), to zestaw przeszukiwanych danych ("Arkusz2" to nazwa arkusza),...
Wystarczy minimalnie przerobić metodę OLEDBConnection(), tak żeby przyjmowała parametr string filePath i zwracała string (wartość z komórki). Nazwy plików możesz pobrać za pomocą Directory.GetFiles(string path). Dla każdego pliku uruchamiasz moją metodę i masz wartość pola. Zapisanie wyników do pliku też nie jest trudne, tym bardziej, że jest masa przykładów....
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
Czy mógłby prosić o odpowiedź przynajmniej na następujące pytanie? Wróciłem do koncepcji sprawdzenia ile razy uruchomiony jest Excel, kod podany przez "czeles" działa, to znaczy podaje ile razy jest uruchomiony Excel (link do strony nie). Jak tą informację wykorzystać? Funkcja zwraca ilość uruchomionych Excel-ów, teraz jeśli jest więcej niż 1 to chciałbym...
Jeżeli funkcja AnalizujDebiut(k, NazwaArkusza) zwraca tablicę, to możesz zrobić coś takiego: Dim nowa as Variant nowa = AnalizujDebiut(k, NazwaArkusza) Wtedy w zmiennej nowa będzie zwrócona tablica
Dzień dobry drodzy użytkownicy, zwracam się do Was z uprzejmą prośbą o pomoc w następującym problemie. Posiadam plik word scalony z bazą danych excel. Wszystko działa doskonale, jednakże chciałbym ulepszyć plik word poprzez dodanie funkcji, gdzie wpisuję nazwę produktu (korespondencja dotyczy etykiet) i po wpisaniu nazwy produktu word zaciąga z excela...
Na zakładce Pliki w komórce C4 masz podaną ścieżkę. Jaką wartość tam zwraca funkcja? Jak długa jest jej nazwa, nie przekracza ok. 220-230 znaków? Wygląda to na poprawną ścieżkę, która istnieje? Upewnij się, że nie kończy się znakiem \. Skopiuj testowo cały katalog (a najlepiej użyj świeżej, pustej kopii ze strony) do jakiejś krótkiej lokalizacji, np....
Hej, Mam taki problem i zapytanie. Mam plik, w którym mam dane w formie takiej jak poniżej. TYDZIEN/NAZWA/WARTOŚĆ 35BRAK DOKUMENTACJI0 35PRACA ZE ZMNIEJSZONĄ WYDAJNOŚCIĄ55,00035 35REGULACJE PROCESOWE0 35BRAK OBSADY0 35BRAK PLANU PRODUKCYJNEGO0 Tydzień i wartość są tutaj zmienne, po każdym tygodniu są one dodawane jako kolejne wiersze przy zachowaniu...
Witam, bardzo proszę o pomoc.W zakładce suma mam imiona osób. Chcę posortować całość po innych arkuszach tak aby każda osoba miała swój arkusz. Jeżeli w arkuszu suma w kolumnie A jest wpisane imię Dariusz to ta linia powinna zostać przekopiowana do arkusza o nazwie Dariusz. Aktualnie robię to funkcją Jezeli i Komórka. Gdy nazwa arkusza równa jest wartości...
Tak, jak napisał clubs. wskazując myszką dowolny plik excel- arkusz i zakres komórek Tutaj by trzeba wstrzyknąć kod do otwieranego pliku. Forumowicze - dziękuje za pomoc acz jak się okazało metoda i InputBox przy ustawieniu TYPE=:8 zwraca wybrany myszką zakres jak zmienną typu Range i jest niemal idealna. Mając obiekt Range mogę pobrać Zakres komórek...
Zapisywanie i odczytywanie zawartości obiektu StringGrid. Często w e-mail'ach różni - jak sadzę - początkujący programiści zwracają się do mnie z prośbą o podanie sposobu na zapisywanie i odczytywanie zawartości StringGrid. Niektórzy próbują wykorzystywać do tego celu struktury, co jest dobrym pomysłem, ale nie zawsze odpowiednim, ponieważ struktury...
Drodzy, Upraszczając opis. Mam kilka osobnych plików z drobnymi projektami. Lista jest dynamiczna bo projekty się kończą i zaczynają następne. Zawsze numeruję je wg standardu Projekt1, Projekt2, Projekt3 itd. Wszystko zachowane na serwerze w jednej lokalizacji. Chciałbym mieć jeden plik zbiorczy w którym po wpisaniu nazwy projektu dostawałbym dane z...
Cześć, Zwracam się z prośbą o pomoc, ponieważ potrzebuję napisać makro, które kopiowałoby wybrany wiersz, od pola B2 w Arkuszu1 (to wiem jak to zrobić) a następnie wklejałoby go w następne. Tu zaczynają się schody, ponieważ nie chcę na sztywno wpisywać zakresu wklejania. Warunek ma być następujący, jeżeli w kolumnie A (NAZWA DOSTAWCY), nie ma żadnej...
Dzień dobry, Czy da to się zrobić za pomocą funkcji - jeśli tak to jak? Jeśli nie to makro to ugryzie? Coś takiego przychodzi mi do głowy =WYSZUKAJ.POZIOMO(.....PODAJ.POZYCJE())? W wierszach (nazwy grup) są wartości: A,B,C1,C2.., D (przypisane do dat) W kolumnach są daty czynności. Czy w danym wierszu (nazwie grupy) da się ustawić funkcje, która będzie...
Witam Uprzedzam. To będzie dłuuuuuuuuugi wpis :D Problem główny. Otrzymałem w Excelu bazę zawierającą 1642 rekordów, zawierającą m.in. adresy zapisane wg schematu: miejscowość (kolumna D), ulica (kolumna H), bez kodów pocztowych. Baza tworzona była „spod palca” i zawiera mnóstwo błędów (ortograficzne, literówki w nazwach miejscowości, ulic,...
Ale co ma ci sie aktualizować jeżeli makro "przeplywy" zwraca ci cyfrę a nie formułę do komórki G7. Mylę się? Co masz po uruchomieniu makra w komórce G7? Jeśli chcesz aby ci zaktualizowało uruchom jeszcze raz makro "przeplywy" lub zmień jego kod. Z tym że obawiam sie że wprowadzenie w jednej formule 50 nazw plików z ich ścieżkami dostępu przekroczy...
Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....
Witam, chciabym stworzyc dynamiczny link do obszarow w innych plikach excela ktore sa zamkniete. Cos w stylu: a+b &""\ c &""nazwapliku.xls]Arkusz1- 2013'!$B$4:$H$40""),7,FALSE),0)" [/syntax] a1= to formula zwracajaca lokalizacje pliku zapisanego gdzies na dysku[syntax=vb]="'"&LEFT(CELL("filename... b1=formula...
Jeszcze prościej. Masz dwa otwarte pliki o znanych (przynajmniej maska) nazwach. Więc poszukaj otwartych Exceli pasujących do tej maski. Ja do tego używałem (obecnie przechodzę na inne metody wyboru) takiej funkcji: [syntax=vbnet] Private Function GetExcel(Na As String) As String Dim S As String, Wb As Workbook S = "" For Each Wb In Workbooks If InStr(1,...
Ta dam. Działa! Tak, ten skoroszyt, źle wcześniej to napisałem. Poprawiłem Front Page na nazwę arkusza i jeszcze miałem w głównym module dwukrotnie End Sub, i to też krzyczało. Teraz mi zwraca nazwę po odpaleniu. :-D Dziękuję bardzo (at)maciejgonet Dodano po 10 (at)maciejgonet A tak idąc za ciosem... żeby jeszcze mi zwracał nazwę pliku? Co jakiś czas...
Cześć Zwracam się do was z prośbą o pomoc w konfiguracji USB FTP dla użytkowników spoza lokalnej sieci. Konfiguracja ASUS RT-N56U + huawei HG8040H Internet: JMDI 300 Mb/s (światłowód) IPv4: 185.93.xx.xxx Local IP : 192.xxx.x.xxx WAN IP: 10.110.xx.xxx Cel: utworzenie z usb zasobu FTP dostępnego poza siecią lokalną. Głównie na kilku plików excel, word,...
Ja pisząc makra w VBA zawsze sobie deklaruję odwołanie do poszczególnych arkuszy, dzięki czemu łatwo można się później po nich poruszać. Robi się to w ten sposób: Set wssg = ThisWorkbook.Worksheets("Strona główna") gdzie ThisWorkbook oznacza - jakże by inaczej ;), bieżący dokument Excela. Jeżeli otworzysz plik w ten sposób: Set wb...
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
Nie może być "=" bo zazwyczaj ta funkcja (Application.GetSaveAsFilename) zwraca nazwę pliku wraz z ścieżką, które wybierasz dialogiem. Natomiast FALSE jest zwracane tylko jeżeli anulujesz dialog.
Cześć Mam ogromną prośbę o pomoc w napisaniu Makra które wyszukiwałoby mi w kilkunastu pliakch xls dane z listy umieszczonej w pliku Excela. Lista zawiera listę z nagłówkami: numer(id) imię i nazwisko. Makro przeszukiwałoby mi pliki w których jest id oraz kwota, pliki znajdują się w folderze z listą, wyszukiwanie zwracałoby informację nazwa pliku w...
Dziękuję Ci bardzo. Działa Dodano po 1 Załóżmy, że mam dwa excele gdzie kolumna A jest taka sama natomiast mogą się różnić nazwy w kolumnie B i chciałbym porównać te wartości w kolumnie B do siebie dla tych dwóch exceli. Oczywiście tylko sprawdzam nazwy które są przypisane do liczby z kolumny A, którą wybieramy. Ogólnie miałem takie makro: [syntax=vbscript]Sub...
Może być odpowiedź zamiast pomocy? Trochę mi ręce opadły przy tym kodzie. [syntax=vb]Sub Hyperlink(ByVal nr As String, Optional ByVal path As String = "C:\Users\XX\Desktop\test\") Dim name As String name = Dir(path & "*" & nr & "*") ActiveCell.Formula = "=HYPERLINK(""" & path & """,""" & name & """)" End Sub[/syntax] 1. Przypisywanie wartości do zmiennej...
Teraz jest ok. Scieżka nie jest wymagana więc uruchomienie makra na komputerze przy innej sciezce pliku nie jest tez problemem. Co mi jednak wyskoczylo jeszcze to dwie rzeczy. Plik lista.xls zmodyfikowalem tak, aby dostosować go do własnych potrzeb. Przykładowy plik wrzuciłem w załącznik. Powstają dwa problemy: Pierwszy to fakt, że raport zwrotu pobierany...
Nie wiem czy dobrze rozumiem problem, bo autor postu mówi tylko o arkuszu z jednego miesiąca, a chce mieć dane tygodniowe, więc chyba chodzi o tygodnie w roku, a nie w miesiącu. A zatem plików powinno być tyle ile miesięcy, otwarte te z których chcemy odczytać dane. Trzeba też ustalić sposób numerowania tygodni i określić od jakiego dnia zaczyna się...
I czy powinienem dodać jeszcze z menu "project -> addreference->OleDb?? Oledb jest z biblioteki System.Data, to ją musisz dodać przez AddReference, chociaż dla domyślnego projektu już jest dodana. Ty musisz jedynie zadeklarować przestrzeń nazw: wiesniak wspomniał - jako że wyświetla ona tylko jedno pole z tekstem. W takim wypadku można zastosować prostszą...
Witam! Mam taką oto formułkę służącą do wyciągania danych z zamkniętego pliku, bez potrzeby otwierania go =SUMA.ILOCZYNÓW('[Wyniki Tygodniowe.xlsx]T8'!$H$3:$H$7;--... Tygodniowe.xlsx]T8'!$G$3:$G$7=$B... Jedyną zmienną jest nazwa arkusza - w tym przypadku mam T8 - jak zrobić aby zamiast T8 wstawiło mi...
https://obrazki.elektroda.pl/4780071900_... Podstawy GOOGLETRANSLATE i wpisujemy w A1 jakieś przykładowe słowo - "Przekaźnik": https://obrazki.elektroda.pl/2211472500_... W B1 wpisujemy znak równości a potem zaczynamy pisać GOOGLE, podpowiedź powinna się już pojawić: https://obrazki.elektroda.pl/2939205100_...
Chciałbym w programie dodać możliwość eksportowania danych przez użytkowników bezpośrednio do ich własnych plików excela. Z wysyłaniem danych do pliku o znanej nazwie i do znanej lokalizacji nie mam problemu, ale w jaki sposób mogę przesłać dane do wybranej przez użytkownika komórki? Nie znam nazwy pliku, arkusza oraz adresu komórki. Próbowałem klasycznie...
Robiłem kiedyś dokładnie taki plik jak piszesz - nie ma potrzeby nawet stosować makr. Skaner konfigurujesz tak, żeby po sczytaniu kodu wysyłał znak ENTER - co w Excelu powoduje przejście do kolejnej komórki - to w kolumnie A. W kolumnie B funkcją WYSZUKAJ.PIONOWO wyszukujesz po kodzie dane w arkuszu-bazie i zwracasz potrzebną kolumnę. Oczywiście kod...
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
Witam ponownie. Tym razem zwracam się z prośbą o pomoc w uruchomieniu kodu który nazwałem "Uruchom jako Administrator". W załączonym pliku zaprojektowałem tabelkę "UserForms" i dodałem do niej kod (szczerze przyznam że skopiowany z innego pliku) niestety nie potrafię uruchomić tego kodu. O co mi chodzi: Chcę aby po uruchomieniu pliku niezależnie od...
No właśnie wychodzi brak jakiejkolwiek teori dotyczącej budowy języka VB. Zostawmy na razie ostati wiersz bo to "specyficzny" przypadek. W twoim przypdaku kopiowanie (metodą copy) nie ma za bardzo ma sens wystarczy zwykłe przepisanie wartości danej komórki do innej komórki. Ale jeszcze raz od adresowania powoli przeczytaj ze zrozumieniem: Sheets(nazwa_arkusza_w...
Dobry wieczór, Po pierwsze data, jeśli ma być wykorzystana do znalezienia ostatniego wystąpienia musi być zapisana w formacie, w którym Excel rozpozna ją jako datę. Pierwszą część zadania można rozwiązać z wykorzystaniem funkcji CZĘSTOŚĆ, druga jest znacznie prostsza, chociaż komplikuje ją ten przypadek z "brakiem". Propozycja rozwiązania w załączonym...
No a jak to w pakować Szczerze mówiąc nie wiem :cry: bo nie znam całego Twojego kodu i userforma :?: Zwracam tylko uwagę na konieczność uchwycenia SelectedItems(1) z pola dialogu, żeby ustalić nazwę wybranego pliku i go skutecznie otworzyć.
Czyli najpierw musisz znaleźć te nieznane nazwy. Spróbuj Dir, powinien się nadać a jest prosty. Piszesz np. S=Dir"prd_PO Details Report (c)_*" i zwraca ci nazwę znalezionego pliku lub "", jeżeli nie znajdzie.
Witam W związku z tym, że jestem zielony w tworzeniu kodów pod VB zwracam się z prośbą o pomoc w rozwiązaniu problemu. Pod Excelem utworzyłem Kartę opisową usługi, do której pobierane są przy pomocy funkcji WYSZUKAJ.PIONOWO dane z pliku wzorcowego zawierającego czasy SLA różnych usług. W zależności od wpisanego kodu usługi pobierana jest nazwa usługi,...
Jest sporo błędów ale to już jest coś :-). Może teraz będzie mi łatwiej samemu coś pokombinować. A swoją drogą to może jest jakiś inny sposób na konwersję, jakiś program gotowy albo trick. Szukałem w necie ale nie mogę nic znaleźć konkretnego. Znalazłem w prawdzie coś takiego http://kanjidict.stc.cx/recode.php ale albo to nie działa jak trzeba albo...
Cześć Wszystkim, Zwracam się z prośbą o pomoc w przygotowaniu makra, które będzie zaciągac pełny zakres danych z danego Arkusza (plików źródłowych będzie ok. 10). Każdy plik źródłowy zawiera 5 arkuszy, a dane które mnie interesują znajdują sie w trzech z nich (arkusze w plikach źródlowych zawsze mają te same nazwy: 01_*; 02_*; 03_*; 04_*; 06_* ). Makro...
excel nazwa pliku nazwa pliku excel nazwa pliku nazwa katalogu
kierunkowskazów citroen berlingo elektromagnes furtka centralka alarmu samochodowego
skrzynia biegów kosiarka traktorek traktorek husqvarna
Zamiennik tranzystora J13009-2 w myjce ultradźwiękowej Piec Beretta Junior: Cykliczne podawanie zimnej wody