Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
ale "Jelczan" prosił o makro Aaa, to najprościej oprogramować zdarzenie (co sugerował już kolega PRL ), Np [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:a100")) Is Nothing Then If Target = "" And Target.Offset(0, 1) <> "" Then Range(Target, Target.Offset(0, 10)).Interior.ColorIndex = 6...
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
automatycznie drukować mi wybrane strony wybranego arkusza po czym będzie zaznaczać następną komórkę w wybranej kolumnie i będzie drukować te same strony :crazyeyes: Załącz przykładowy plik z opisem: wyboru strony, wyboru arkusza i wyboru kolumny, oraz co to znaczy "te same strony" :cunning: Plik w załączeniu. Chodzi mi oto aby w karcie "Do wypełnienia"...
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
Wiele przycisków w arkuszu to kiepski pomysł, żeby je obsłużyć musisz mieć tyle samo procedur. U mnie sprawdza się inny sposób: mała formatka z przyciskiem (taki asystent, można go potem rozbudowywać). Zaznaczasz komórkę w arkuszu a potem klikasz przycisk. Wiersz i kolumnę masz z obiektu ActiveCell. Formatkę masz zawsze na ekranie, więc jej nie musisz...
https://obrazki.elektroda.pl/2598050500_... Witajcie, chciałabym napisać makro, które będzie łączyć komórki tak jak zrobiłam to ręcznie w przypadku E01 i E02. Z pomocą formuł wypełniają mi się pewne komórki, a następnie komórki zawierające jakiś tekst kolorują się na wybrane kolory. Ostatnim etapem jest złączenie ich w jedną całość...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Zachowanie odniesien w samym checkboxem skutkuje tym ze przy kopiowaniu pojawia sie kilka takich samych checkboxów i jak jeden zaznaczysz, inne zaznaczają się również. Musze to wyeliminować
Zawsze będą tylko te 3 komórki? Skąd te dane importujesz - jakaś kwerenda, makro, manualnie z pliku? Jak i kiedy chcesz to makro uruchamiać? Może wystarczy po prostu posortować po wartościach malejąco i zaznaczyć na żółto pierwszy wiersz /ew. zarejestrować makro z tego/?
Witam, Proszę o pomoc, Potrzebuję makro w Arkuszu Google które usuwa lub ukrywa wiersz, w którym pole wyboru jest zaznaczone. W wierszach mam pole wyboru, zaznaczam niektóre z nich i wciskam button, który ukrywa lub usuwa zaznaczone wiersze. Fajnie jakby wyskoczył komunikat "czy na pewno chcesz ukryć/usunąć zaznaczone wiersze" Tabela jest w załaczonym...
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,...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
Witam, Napisałem makro, które z 3 podanych komórek szuka maksymalnej wartości w wierszu 1 i zaznacza kolorem. Chciałbym żeby to makro przeszukiwało wiersz po wierszu aż do 43 wiersza izaznaczało maks wartość w każdym kolejnym wierszu, czyli w wierszu 2 szukałoby po A2, D2, F1. [syntax=vb]Sub Color() Dim MaxValue Dim Cell As Range MaxValue = Application.WorksheetFunction.Max(Range(...
Przetestuj [syntax=vb]Sub y() Dim rRng As Range 'definicja przetwarzanego zakresu Set rRng = Range(Cells(7, 3), Cells(19, 15)) 'wpisanie wartości z nagłówków kolumn 'najpierw formuły odnoszące się do wiersza 4 rRng.SpecialCells(xlCellTypeConstants).F... = "=R4C" 'wklejenie jako wartości For Each cl In rRng.SpecialCells(xlCellTypeFormulas) cl.Value...
Ok to muszę odszukać ta zamiana ręczna. Tak po wstawieuniu nowego wiersza będzie pusta komórka bez formuły to makrem myślałem o tym by zaznaczać komórkę A5 i w dół tak jak zaproponowałem. Zastanawia mnie najbardziej jak stworzyć kod by usuwalo mi wiersz jak cały zakres jest pusty. Bo teraz usuwa tylko wtedy jak coś w jakimś wierszu zakresu jest to usuwa...
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Jestem pełna podziwu - piękna robota. Nie pomyślałabym, ze można ten kod napisać w taki sposób,a uwierz mi próbowałam wielu. Pierwsza faza - super. Jedyne co mogłabym zmienić to to, aby najpierw porównywał kolumny ABC( bo daty zmieniają się najczęściej, a ilości znacznie rzadziej)a póżniej daty i aby w kolumnie M w ark dane pojawiały się zmienione daty....
Wielkie dzięki. Udało się :) Makro wygląda tak [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "D:\Test\" plik = Dir(katalog & "*.xls")...
(at)PRL już tłumaczę 1. W arkusz BAZA wklejam dane. 2. Uruchamiam makro 2.1 Makro ma zadanie sprawdzić kolejność liczb 2.2 Jeżeli znajdzie brakującą liczbę/liczby to wstawia w ten arkusz "BAZA" nowy wiersz/wiersze i w ten nowy wiersz/wiersze wstawia brakującą liczbę/liczby i zaznacza na kolor zielony 2.3 wstawione liczby przenosi do arkusza"brakujące"...
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
Dzięki za odpowiedź ale.. chodziło mi o coś innego: Np. mam kolejno w wierszu (niezależnie czy to wiersz 10 czy 50) : B A ‘ Aktywna komórka A B B C ‘ Koniec zaznaczania A A C C Ustawiam się na pierwszej komórce A, włączam makro i chcę żeby zaznaczyło mi komórki od A (w dół) do danego słowa - w tym wypadku np. do C. *Czyli zaznacza wiersze...
adams jestem zielony jeszcze jeśli chodzi o VBA gdzie dokładnie dopisać wykrzacza tzn mając to VBA w innym zakresie komórek wypełniałem serię danych i makro się chciało debugowac nie rozumiem czemu skoro nie używałem listy rozwijalnej. skopiowałem to makro chcąc usunąć problem drugiej listy rozwijalnej która miała być pusta w przypadku kiedy nastąpiły...
Witam! Potrzebuję pomocy bardziej zaawansowanych użytkowników. W skoroszycie „Plik1” mam takie makro: [syntax=vbscript] Sub przeniesienie() Worksheets("arkusz1").Select path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set fileName = Workbooks.Open(path) For wiersz = 2 To 5000 sheetName = Range("M" & wiersz) If sheetName <>...
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko działa. Zaznaczam że umowy E/2121... i podobne wylądują...
Mam problem dotyczący excela. Piszę makro, które ma usprawnić przeszukiwanie dokumentu. Każdy wiersz to jeden rekord. W kolumnie F mam różne wpisy: książka, film, muzyka itp. Jeśli znajdzie w tej kolumnie wpis film to ma zaznaczyć z tego wiersza komórki A,B, E, ,H, I, J oraz Z(nie wszystkie informacje są mi potrzebne i skopiować do innego dokumentu....
witam, mam problem z makrem. Męczę się meczę i nic :/// Chcę, żeby makro zaznaczało kolumnę, sortowało ją rosnąco Np: a a a b b b b c c ... a następnie podawało mi zapisywało mi zmienne w ten sposób, żeby każda ze zmiennych definiowała pierwszy wiersz, w którym jest "wartość", a następnie ostatni wiersz, który zawiera wartość "a" i tak ze wszystkimi...
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Hmmm... nie wiem jak to zrobić inaczej [syntax=vb] Sub bombon() Dim zakr10 As Range 'definujeme zakres, ktore zawiera 10 pierwszych bombonierek, kolumny od F do O Set zakr10 = ThisWorkbook.Sheets("Bombonierki").Range... 'wierszy w zakresie r = 2 'zacziname od 2 wiersza, zmienna r je numer wiersza While Cells(r, 1) <> vbNullString 'tak...
Proszę. :) W poprzednim makro usuń wiersz [syntax=vb]Range("c2:c" & p) = "1" 'dopisanie 1 jako sztuka pierwsza w obliczeniach[/syntax] Natomiast w wierszach: [syntax=vb]Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie[/syntax] zamień literkę b na c [syntax=vb]Range("a2:c" & p).Select ' tu zaznacza...
Mam stworzony dość rozbudowany kod, opierający się na zmianach przeprowadzanych w arkuszu. Po wykonaniu kodu, zaznaczony zostaje edytowany ostatnio wiersz (zgodnie z instrukcją w kodzie, która zaznacza wiersz i odkreśla bądź nie cały wiersz). Początkowo pomysł był taki, żeby zatwierdzenie wprowadzonej wartości powodowało wykonanie marka, a następnie...
ldir31, high((at)xlat) ld x,(at)wiersz loop: ld r30,x lpmr30,z ld x+,r30 or r30,r30 brneloop Na atmelku cały kod może wyglądać tak. I co powiesz o "lpm", czy nie działa dokładnie jak xlat ;) Podobnie, ale nie dokładnie, tablice muszą zaczynać się pod określonym adresem (podzielnym bez reszty przez 256), a w xlat jest dowolność. I tak trzeba...
Witajcie Szukam sposobu by skanując produkt, zaznaczyć komórkę w odpowiednim rzędzie i kolumnie. Rozkład jest taki: A1 - zeskanowany numer z "Numer porządkowy" (A4:A10) B1 - zeskanowana waga C1 - ilość tabel F1 - wierszu z porównanego kodu (A1 z zeskanowanym) Schemat przebiega tak: zaznaczam komórkę (np: A1) -> skanuje (wkleja skan) w zaznaczoną komórkę...
nie rozumię tych funkcji podaj pozycje i index ! konkretnie =PODAJ.POZYCJĘ(N1;{dane!B:B;0)} wiadomo tyczy się n1 dalej dotyczy arkusza dane no i tu B:B;0 ! =PODAJ.POZYCJĘ(B4;dane!B:B;0) to samo =INDEKS(dane!C:AG;$B$3;WIERSZ()-5) tu zrozumiale do momentu WIERSZ()-5) problem jest w tym ze tam gdzie zmieniasz system zmianowy N1 chcę aby jednocześnie zaznaczało...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Witam, Ponawiam prośbę o pomoc w napisaniu tego makra. Poniżej zamieszczam kawałek kodu, który zaznacza w wierszu wszystkie wypełnione komórki poza kolumną H, pozostaje napisać pętle, która by w przypadku wypełnienia wiersza poza kolumnę H automatycznie wstawiła nowy wiersz i przeniosła do niego tą zawartość itd. [syntax=vb][/syntax] Sub zaznacz_przenieś()...
A gdzie jest ten plik FV wzór.xlsm :?: A gdzie jest ten kod testowany przez Ciebie :?: (at)Prot zamiast pomagać piszesz ciągle jakieś uwagi, które nie mają znaczenia... jeśli nie możesz lub nie chcesz pomóc to proszę zakończ te komentarze. Sprawa jest banalna (jestem jednak laikiem więc dla mnie nie). W sumie z wszystkim sobie poradziłem, moje makra...
Dziękuje ThomasGP tak wlaśnie o to mi chodziło tylko że jak uruchamiam to mi błąd pojawia sie o treści: Run-time error '5': Invalid procedure call or argument , w kodzie zaznacza wiersz: Cells(i, 2) = Right(Cells(i, 1), Len(Cells(i, 1)) - 3) i nie wiem o co w tym chodzi? Czy jakaś zmienna musi być zadeklarowana czy co? Na marginesie to VBA to fajna...
Cześć, obecnie przygotowuję finalną wersję makro na potrzeby pracy, jednakże napotkałem pewien problem. Otóż potrzebuje aby dzięki VBA kolorowały się wiersze na podstawie dwóch komórek. Problem jest taki, iż ilość danych jest spora (różnorodność wierszy), zmienia się ilość wierszy oraz danych, a samo makro musi kolorować co drugi obszar (wierszami),...
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Witam, Tak worksheet to to samo co ws - dzięki za zwrócenie uwagi, po prostu po czasie dopisywałem ten fragment i jakoś pominąłem, że ws został juz określony przez DIM. W załączniku wrzucam plik, po ściągnięciu trzeba zmienić rozszerzenie z *.jpg na *.xlsm - wyskakiwał błąd poczas dodawania pliku z roszerzeniem excela, że nie można załączać plików z...
Witam, tworzę plik excela do wydań produktów z magazynu do poszczególnych działów. W arkuszu 1 mam nazwy działów, w których każdy jest połączony hiperłączem do osobnego arkusza do ostatniego wolnego wiersza: =HIPERŁĄCZE("#magazyn1!A"&(MAX(JEŻELI.BŁ...
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...
Witam po dłuższej przerwie. Mianowicie jestem nadal w tym samym punkcie i mam ten kod: [syntax=vbscript] Dim Y As Integer, R As Range Y = 2 Do While Cells(Y, "A") <> "" With Sheets("XXX" & Cells(Y, "B")) Set R = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Range("A" & Y & ":E" & Y).Copy Destination:=R End With Y = Y + 1 Loop...
Witam, (at) JRV – dziękuje za pomoc! Kod działa super, gdy zmienna to tylko „rok”. (at) adamas_nt – bardzo dziękuję za pomoc! „Chylę czoła ” – _SERIO_ - ja bym czegoś takiego nie dał rady napisać! (nie jestem programistą!!! i do Twojej wiedzy to mi brakuje „lat świetlnych” !!!) Zaproponowany przez...
zaznaczać wiersz wiersz makro makro zaznaczać pusty
wgrywanie error easun schemat wzmacniaczem pierdzi
samochód nikoli tesli samochód nikoli tesli
Skuter chiński 4T GY6 – migające światła mijania podczas jazdy, regulator napięcia, masa, stator Inkscape, Adobe Illustrator, Vector Magic – konwersja JPG do SVG/DXF dla PCB, CNC, druku