Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
Witam. W pracy często korzystam z outlooka. Odsyłam (at) z dopiskiem Wykonano. W outlooku jest możliwość dopisania makra. Nie znam się na Visual Basic. Chciałbym uzyskać pomoc w napisaniu takiego makra, by po naciśnięciu klawiszy Ctrl + Q automatycznie wklejał się taki tekst. Czy mogę prosić o pomoc?
[syntax=vbscript]Sub DodajOsobe() osoba = InputBox("Podaj nazwisko i imię osoby", "UWAGA") nw = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(nw, 2) = Cells(nw - 1, 2) + 1 Cells(nw, 3) = osoba Cells(nw, 16).Formula = "=SUM(D" & nw & ":O" & nw & ")" End Sub [/syntax]
Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 Nie lepiej pod zdarzenie "podwójne kliknięcie" [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With Target .Value = "PRZ1" .Offset(1).Select End With End Sub[/syntax]
W czasie korzystania z makra doszedłem do wniosku iż jeszcze jedna rzecz źle działa. Mianowicie po tych operacjach tekstowych - jak nic nie jest zaznaczone - miejsce zaznaczenia się zmienia i zakładka wstawia się nie w tym miejscu w którym miała być. (przede wszystkim jak nic nie było zaznaczone to przemieszcza się na początek i obejmuje te 4 słowa,...
Witam, Ponieważ tworzę wiele pism które muszę zakończyć tą samą treścią (klika zdań na końcu dokumentu), poszukuję rozwiązania które wstawiało by tekst przypisanym wcześniej skrótem klawiszowym. Interesuje mnie makro które będzie działało trwale, treść którą będzie wstawiało musi zwierać w kodzie VB, tak żeby można było czasami zmienić datę lub treść....
Można np zarejestrować makro które wstawia tekst. Przypiąć to do jakiegoś przycisku i naciskać go kiedy chcemy wstawić tekst.
Chciałbym połączyć te dwa makra w jedno i umieścić pasek postępu wstawiania twardych spacji. Chcę aby twarde spacje wstawiały się po uruchomieniu jednego marka, i aby tekst w Wordzie "nie mrugał", a najlepiej wyświetlał się pasek postępu - jakiś wskaźnik procentowy, lub coś podobnego. Liczę na pomoc.
Witam, jestem początkujący jeśli chodzi o tworzenie makr w VBA pod excelem, potrzebuję Waszej pomocy w temacie makra wstawiającego w wybraną komórkę formułę, dowolną, chociażby sumę dwóch komórek znajdujących się powyżej. Po wstawieniu poniższego kodu makro wysypuje się, działa jedynie gdy nie wstawię znaku = przed jeżeli, czyli wstawia sam tekst. [syntax=VBA]Range("A5").Select...
To nie było pytanie, czy nie ma błędu, a czy znaleziono szukany tekst: [syntax=vbscript]a = Application.Match(Target, w.Range("A1:A" & ow), 0) If Not IsError(a) Then w.Rows(a).Delete[/syntax] Stąd taka negowana logika.:) Powyższy kod to przerobiony kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then...
Witam serdecznie Potrzebuję pomocy w napisaniu makra które by działało w następujący sposób: W kolumnie A mam powiedzmy 10 różnych tekstów pod sobą, w kolumnie B mam liczby całkowite przy nich. Potrzebuję powstawiać wiersze dla każdego tekstu o takiej liczbie wierszy jak w kolumnie B przy danym tekscie i żeby teksty były pod sobą. np: A1 / B1 Kot 5...
Witam Mam do was wielką prośbę dotyczącą makra. Posiadam Excel 2013 i 2016. Załóżmy że w komórce D1 mam tekst "Utworzenie sprawy"; Załóżmy że w komórce D14 mam tekst "Utworzenie sprawy Załóżmy że w komórce D41 mam tekst "Utworzenie sprawy" Załóżmy że w komórce D65 mam tekst "Utworzenie sprawy" W komórce d1 od tej komórki makro zaczyna pracę. Jeśli 1...
Przyszło mi do głowy że może tak jeszcze opisze mój problem, będzie łatwiej zrozumieć: 1.1. Makro wstawia wszystkie symbole z kolumny A arkusza "BAZA" do arkusza "DANE" do pierwszej wolnej komórki w kolumnie C i dla każdego symbolu wstawia tekst:"cccccccccccc cccccccccc" w kolumnie D arkusza "DANE; 1.2. Raz jeszcze raz makro wstawia wszystkie symbole...
CommandButton z napisem GRAJ!, Poszedłbym raczej w kierunku formatki użytkownika (UserForm), niż bawiłbym się w z przyciskami w arkuszu. Łatwiej zapanować nad aspektem wizualnym "zabawki", no i miejsca więcej w arkuszu na inne rzeczy. czy „CommandButton_SPRWDZ1” może weryfikować wszystkie 39 odpowiedzi Prosto odpowiadając - można - np....
Witam, mam ogromną prośbę o pomoc w napisaniu makra w VB, które mógłbym stosować w Wordzie lub Excelu. W Wordzie dysponowałbym listą, np: Arisaema yunnanense Buchet, Notul. Syst. (Paris) 1: 367 (1911). Arisaema zanlanscianense Pamp., Nuovo Giorn. Bot. Ital., n.s., 22: 262 (1915). Arisaema zebrinum G.Nicholson, Ill. Dict. Gard. 1: 112 (1884). Arisaema...
Myślę, że można to zrobić na przykładzie jaki jest w załączniku. Kolejne wstawiane obrazki będą mieć różne nazwy, więc trzeba sie odwołać do obrazka, który jest umieszczony w danej pozycji w arkuszu. W przykładzie odwołanie jest do obrazka umieszczonego w tym samym folderze co arkusz, ale oczywiście wszystko można sobie zmienić. Przyciski: Wstaw i Kasuj...
Witam Potrzebuje makra, a nie funkcji. W arkuszu "dane" w kolumnie D wystąpić tekst: "xxxx"; "yyyyyyy" ; "zzzzz" lub puste komórki. W arkuszu "dana" w kolumnie E mogą wystąpić następujące teksty, które są brane pod uwagę pod makro:"aaaaaaa";"yyyyyyy";"zzzzz", inne teksty lub cyfry, znaki specjalne lub puste komórki nie są brane pod uwagę. Podałam przykładowy...
Napisane mam dwa makra w visual basic w corelu 12. Przygotowuję zdjęcia do katalogu, wrzucam do folderu. Pierwszy skrypt wstawia zdjęcia z ww folderu (można ustawić rozmiar odstępy i marginesy) podpisuje je nazwą zdjęcia (kod towaru). Drugi skrypt korzystając z bibliotek excela szuka w pliku xls kodu (nazwa zdjęcia) i wstawia przygotowany wcześniej...
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
Wychodzi na to, że pdf nie obsługuje "footnote tooltip" stworzonych w WORD. Szukając informacji o tworzeniu okienek wyskakujących po najechaniu myszką natknąłem się na trochę informacji jak to robić RĘCZNIE w różnych programach. (może komuś się przyda): Floating Text on PDF Documents http://khkonsulting.com/2014/07/floating... Acrobat...
Najlepiej jeszcze aby procesor tekstu sam wypełnił za użytkowników paragrafy ;). Z tego co wiem to MS-Word nie kompiluje plików. Uważaj bo w informatyce ten termin ma trochę specyficzne znaczenie. Chodzi ci oczywiście o łączenie/scalanie plików, a to po angielsku "combining" lub "merging". Wydaje mi się, że za bardzo byś sobie chciał ułatwić/zautomatyzować...
Witam! Mam makro, które przenosi wartości wstawione w kolumnach H, I oraz J do karty której nazwa jest identyczna z wartością tekstu wstawionego w kolumnie C dla wiersza w którym w kolumnach H, I, J ma przenieść dane. Dodatkowo w momencie przenoszenia danych do odpowiednich kart, kopiują się również informacje z datą raportu, zmianą jakiej dotyczy wstawiany...
Zawsze tak bedzie? w Info 'wezicki adam'(ze szpacja), a w Dane Wezicki.Adam( z kropka i Litera)? Albo jakoś po ludzku? Dodano po 16 Sortowanie jest nadmierne. Wystarczy konwertowac tekst w daty:[syntax=vb]Sub wstaw_daty() Dim kol As Long, wrs As Long, ost As Long With Sheets("dane") For kol = 4 To 6 Step 2 ost = Cells(Rows.Count, kol).End(xlUp).Row...
Witam Co dzień utwierdzam się w przekonaniu, że exel z vba to wspaniałe narzędzie. Myślałem, że będe z niego korzystać tylko w pracy ale po kilku już zrealizowanych pomysłach w domu wpadłem na kolejny. Ale pomysł nie zawsze idzie w parze z jego realizacją i dlatego zwracam się do was maniacy vba o pomoc w realizacji mojego pomysłu. Przejdę do rzeczy....
To jeszcze co do AD2 Rozumiem że karta ma być wynikiem - będzie pobierać dane z grafiku - tak? Jeżeli tak to w grafiku mam tylko czas pracy a nie "start-stop". To będzie uzupełnione? Będziesz pracował na liczbach czy na czasie bo 8 to nie to samo co 8:00 ? Co do ad1 jeżeli nie będziemy chcieli korzystać z makr można to zrealizować za pomocą autofiltru...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Dzięki za pomoc. Mam teraz dwa nowe problemy/pytania: 1.Czy da się przerobić ten kod aby [syntax=vb]Private Sub CommandButton2_Click() Dim tekst As String tekst = InputBox("Nazwisko i imiê") Cells(19, 9) = tekst zerujszukaj szukaj1k szukaj1g szukaj1p szukaj1z End Sub[/syntax] aby: a) wyskakujące okienko msg box miało oprócz "Nazwisko i imię" dodatkowo...
Witam Mam pewien problem. Cyklicznie otrzymuję pliki, w których część polskich liter jest zastąpiona znakami graficznymi. Za każdym razem robię tak, że w polecenie "Znajdź" wklejam ten znak graficzny, a w polecenie "Zamień na" wstawiam literę jaka ma być wstawiona w tekście. Ponieważ tak jak pisałem, pliki dostaję cyklicznie, a więc czasochłonna jest...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
O kurde - dlaczego na to nie wpadłem... Przecież kolejny "print' będzie tam, gdzie skończył się poprzedni. A ja definiowałem miejsce wystąpienia 'C na nowo... Dokładnie tak :) Jeśli potrzebujesz przerwy, także ruchomej, to wstawiasz po prostu spację, czy dwie: lcd.print(" "); Nie musisz więc badać czy temperatura ma 1 cyfrę przed przecinkiem, czy 2....
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
Hej, nagrałem makro którym potrzebuję datę np 15.10.2021 rozdzielić na dzień 15 i miesiąc 10. Następnie połączyć dane z innej kolumny z dniem i miesiącem. Do rozdzielnia daty użyłem funkcji excella "Tekst jako kolumny" https://obrazki.elektroda.pl/9236122300_... https://obrazki.elektroda.pl/4510144100_... Dzień i miesiąc...
A czemu ta indeksacja nie działa? Czy może mieć na to wpływ fakt, że ten userform jest w Wordzie? Nie ma znaczenia. Po prostu podchodzisz do tego nie z tej strony ;) Najprościej (podepnij pod przycisk w uForm): [syntax=vba]Dim c As Control, tekst As String 'kontrolki w uForm to najzwyklejsza kolekcja, sprawdzimy wszystkie jej elementy For Each c In...
Nie do końca to rozwiązanie zaspokoi moje potrzeby. Ponieważ tabela zmienia się dynamicznie chciałbym aby w odpowiednich komórkach raportów nie były wstawiane wartości tylko formuły. Bardzo by mi w tym pomogło makro które zamieni tekst znajdujący się w komórce G15 arkusza Tabela na formułę. Jak to zrobić??
A dlaczego miałaby być jakakolwiek różnica w działaniu tych kodów, skoro one się tak naprawdę niczym nie różnią? Pierwszy z nich: 1) pomija typ , podajac tylko kwalifikator "unsigned". Kompilator w takim przypadku domyśla się, że chodzi o "int" (typ), więc w efekcie otrzymasz typu (czyli słówka "int") W drugim przypadku: u08 nie jest magią, tylko odpowiada...
Witam, kontynuując temat mam jeszcze zapytanie o takie makro: 1) w tych dodanych wierszach w kolumnie "A" wpisany byłby tekst "zrobione" 2) w kolumnie "B" ponumerowane tylko te dodane wiersze 3) w kolumnie "C" w miejsce wyczyszczonych danych wpisany tekst "ok" czy da się coś takiego zrobić? Będę bardzo wdzięczna
Witam Tak jak w temacie chciałbym wyciągnąć część tekstu z komórek z kolumnie X konkretniej wszystko to co jest przed ostatnim "-" przyrównać to do konkretnej warotości i jeżeli się pokrywają to wtedy w kolumnie O w odpowiedniej komórce będzie wstawiany jakiś tam tekst. Takich zależności będzie około 300. W zalączniku plik juz z makrem ktore do tej...
Witam! Mam pewnien problem z markem. Przez parę dni szukałam na różnych forach informacji jak go poprawić, ale niestety nic nie znalazłam. Problem wygląda następująco. Mam makro, które generuje mi plik Worda od podstaw tj. tekst plus wstawianie danych z komórek na podstawie aktualnie zaznaczonego wiersza. Wszystko działa kiedy zapisuje tylko dokument...
Niestety moje pomysły nie podziałały... Problem jest w tym, że .Columns(14 + i).Insert .Cells(2, 14 + i) = teksty(i) .Cells(3, 14 + i) = sumy1(i) działa normalnie, natomiast .Columns(27 + i * 2).Insert .Cells(2, 27 + i * 2) = teksty(i) .Cells(3, 27 + i * 2) = sumy2(i) już nie. Makro zamiast wstawiać te formuły sumy2 = Array("=SUM(S5:S100)", "=SUM(T5:T100)",...
Dziękuje, tak, ale nie całkiem o to mi chodziło. [1]ciotka [2]Danuta [3]swetry [4]zielone "Gruba (1) (2) Robi (3) na drutach. Już po pięciu minutach Dowiedziały się o tym jaskółki, Gwałt podniosły do spółki: "Jak to? (1) (2) Robi (3) na drutach? Na drutach siadają ptaki, Lecz (1)? Skąd pomysł taki? A lećcież do niej gromadnie, Bo wam (1) z drutów spadnie!"...
Staram się... OK, nagrałem sobie makro, usunąłem co niepotrzebne, dodałem co niezbędne i wyszło coś takiego Znalazłem taki kod ale nie wiem jak go pod siebie przerobić Nie mam pojęcia czy zakres dla procedury zdarzeniowej (określony argumentem: "Me.ListObjects("Lista1").Range.Columns(... ma u Ciebie zastosowanie, czy nie. Może bierzemy się za przerabianie...
Dzięki tam też wstawiłem. Chciałem zostawić ten msg :) wpisałem sobie komunikat. Dlatego spytałem.
Makra (bo to są tylko makra, wstawienie tekstu) #define są modnym a niebezpiecznym narzędziem. Tu znajdziesz wiele złych makr, niektóre wręcz cytowane (jako poprawne) jak biblia.
Witam. Ludziska pomocy. Pobrałam makro dotyczące zamiany cyfr na tekst ale teraz powiedzcie mi (jak blondynce) jak je wsadzić do mojego arkusza w excelu, żeby zadziałało??? jakoś je może zapętlić i ustawić żeby nie obliczać ciągle z palca ale żeby sie samo uruchamiało po otwarciu tego arkusza???? Sprawa wygląda tak że arkusz 1 jest polem edycji a na...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Witam Mam plik " Wzor" i z niego muszę dokonać drukowania określonych arkuszy. Makro ma zadanie wydrukować najpierw arkusz o nazwie "AAA"; potem arkusz "BBB". Drukowanie jest wysyłane na domyślną drukarkę i drukowanie dwustronne. :idea: Jak ja to bym widziała :D : W arkuszu "MENU" w komórce "F5" makro wstawia liczbę "1". Wtedy zadziałają funkcje Excel...
Jeśli w komórkach kolumny B koniecznie musi być wstawiona formuła łączenia tekstów to możesz użyć następującego makra: [syntax=vb]Dim lLstRw& Dim rngTmp As Excel.Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row Set rngTmp = Range(Cells(2, 2), Cells(lLstRw, 2)) rngTmp.FormulaR1C1 = "=RC3&RC7"[/syntax] Jeśli wystarczy wynik tej formuły to na końcu dodaj...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Witam serdecznie. Potrzebuje pomocy w stworzeniu makra w Excelu. Moj problem moze wydawac sie dla wielu bardzo banalny ale ja dopiero zaczynam swoja przygode z VBA :) Potrzebuje stworzyc makro aby po wypelniu komorki B1 jakim kolwiek tekstem wstawila sie aktualna data i godzina w komorce A1 i zeby data sie nie aktualizowala. Dalej to samo aby po wypelnieniu...
Dzięki za odpowiedzi! Ponieważ jeden dokument ma służyć przynajmniej dla całego roku (jak nie dłużej), to obliczenie H1 dla wszystkich arkuszy nie sprawdzi się. W załączeniu przesyłam przykładowy plik. W zakładce "lipiec - suma" w polu C2 podana jest dotychczasowa formuła - suma('lipiec - suma:lipiec (1)'!H1) wpisywana ręcznie. Formuła działa, w przypadku...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
Witam Mam bazę danych w Accessie, z której zaciągam dane do exela następującym makrem: [syntax=vb]Sub Zaciagnij() Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String Dim i As Long, n As Long, lFieldCount As Long Dim rng As Range Dim wartosc1 As String Dim adoRecSet As New ADODB.Recordset Dim connDB As New ADODB.Connection...
Prot, znowu proszę o pomoc :please: Formatowanie nagłówków działa doskonale :idea: Zabrałem się do numerowania i formatowania tych tabel i wykresów. W zakresie formatowania stylów pozwoliłem sobie skorzystać z Twoich doświadczeń i to mi działa ok. Ale ma problem z kolejnym numerowaniem tabel. Napisałem taki kod: [syntax=vbscript]Sub Change_Tabel() Dim...
Raczej wstawienie wpisanego tekstu między np. istnijące kropki. Nie działa u ciebie? Zwróć uwagę że kod jest w "bloku" Worksheet_BeforeDoubleClick a nie Worksheet_Change . Sprawdziłeś mój załącznik (przy włączonym makro)? Jaka masz wersję excela - choć to nie powinno mieć znaczenia? U mnie działa na 2003 i 2007. Makro po podwójnym kliknięciu w komórke...
Cześć, chciałbym zrobić warunkowy podział strony do wydruku w zależności od zakresu aby dany obszar mieścił się na jednej stronie. Niestety ilość tekstu jest różna i stąd moja prośba o pomoc. Aktualnie mam makro które wstawia mi podział co 60 wierszy ale to jest niewystarczające. Będę ogromnie wdzięczny za jakieś wskazówki. Dim xLastrow As Long Dim...
Znalazłem takie rozwiązanie. Wpierw trzeba ustawić czcionkę w której będziemy pracować i zmieniać znaki. Dla mnie Times New Roman. [syntax=vb] With Selection.Font .Name = "Times New Roman" [/syntax] Aby dowiedzieć się jak wstawić znak do okna dialogowego "Znajdź/Zamień" w Wordzie otwieramy: Wstaw->Symbol. Wybieramy czcionkę w której będziemy pracować,...
A mógłbyś mi trochę podpowiedzieć w którym miejscu mam umieścić dany kod? W Module czy w kodzie z UserForm - akcja po naciśnięciu przycisku? Sorry za takie "głupie' pytania ale jestem totalnie zielony. Modules-> Formularz: [syntax=vbscript]Sub Zapisywanie() ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym...
Trafiłeś idealnie z twierdzeniem że jak coś umiem to mam to zrobić w ramach obowiązków. Zastanawiasz skąd wzięło 600zl. Różnica między moimi zarobkami a osoba która ma najwięcej w moim dziale to 600zl. Napisze jak wygląda to dzieło w excelu Jest 20 skoroszytów, w każdym skoroszycie są następujące dane: Arkusz 3- jest milion fukcji, zakres danych od...
Częściowo dobrze. Jeszcze: - Po kolorowaniu składni na forum widać, że we fragmencie: Czy dobrze rozumiem, że w pewnym momencie w excelu będę musiał sam wstawić mu formuły? Jeżeli tak to odpada - z pliku będą korzystały też inne osoby No to już zależy od Ciebie - jeżeli w danej kolumnie nie musi być formuł, a tylko wartości po przeliczeniu, robisz:...
Witam, mam mały problem z ePlan electrical P8. Stworzyłem makro PLC s7-1200, które wstawiam na stronie z przeglądem. Wzorowałem się na makrach do s7-300. Mam użyty PLC Box i wewnątrz niego użyte przyłącza PLC(DI). Teraz na stronach ze schematem wstawiam wejścia(tak samo PLC box + przyłącze). We właściwościach przyłącza ustawiam tekst funkcyjny opisujący...
wstawianie makra wstawianie tekstu makro wstawianie tekstu
płyta indukcyjna schemat amica logitech wingman obsada wtryskiwacza
roleta zewnetrzna silnik czajnik naprawa
Opis kostek siedzenia BMW 6 Grand Coupe Schemat zasilacza impulsowego półmostek 230V/24V 4A na IR21531