Przetestuj makro z załączonego pliku. Arkusze 1 - 4 to arkusze z danymi źródłowymi Arkusz5 - arkusz na wiersze wytłuszczone
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby kopiowało z pliku DANE tylko te pozycje które mają taką samą datę jak ta wcześniej wymieniona. Makro miałoby przenosić z jednego pliku do drugiego dane żeby przyspieszyć pracę i nie dublować...
Dzięki wielkie. Makro działa. Super.
Witam serdecznie: Probuje napisac makro z przenoszeniem wierszy, lecz mam spory problem z tym. Przedstawiam sytuacje i prosze o pomoc Mam 3 arkusze z danymi : Arkusz1 ( tabela, ponad 2tys. pozycji ) Arkusz2 ( tzw. Transfer ) Arkusz3 ( Archiwum ) 777 737 747 Wprowadzam dany kod np. ( 747 ) Tabelka w ktorej znajduja sie wszystkie usuniete wiersze z Arkusza1...
Nie wiem... To makro na Excel2003 już 11 tysięcy wierszy zrobić. Baza w 65 tysięcy, wszystkich formuł złożonych formuł w bazie danych?
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
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...
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...
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Witam! Potrzebuję ustawić w załączonym pliku w karcie "dostawca B" formuły lub makro w taki sposób , aby automatycznie kolejno kopiowało wartości z odpowiednich komórek w kartach T-31, następnie z T-32... T-33, T-34 i T-35 ale tylko dla wierszy w których jako producent elementów wybrany jest Dostawca B. Dodatkowo w karcie "dostawca B" nie ma wszystkich...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
Jakoś nie widzę zastosowania makra do przenoszenia z Arkusz1 do Arkusz2 niepustych wierszy. Wygląda na to, że coś się zmieniło... Opisz wiec proszę co i jak ma być.
Cześć, mam pytanie. Potrzebuję makra, które będzie przerzucało odpowiednie wiersze do 2 arkusza, żeby potem zrobić z nich tabele przestawna- i to jest ok. Ale warunki do przerzucenia wierszy to : np mamy w kolumnie b nazwy projektów a w kolumnie c ich status potrzebuję makra, które wybierze tylko te cząstki projektów które są otwarte lub otwarte i zamknięte...
Witam! Mam taki problem z formatowaniem tekstu w Word, chce do pewnego tekstu, który liczy kilka stron (treść tekstu za kazdym razem może być rożnej wielkości) dołączyć na jego końcu pewną regułkę która liczy np 25 wierszy i jeżeli jest za mało miejsca chcę aby ta cała regułka była przenoszona na następna stronę. Jęzeli ktoś mógłby pomóc byłbym bardzo...
Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
zamieszczać oryginalnego pliku, bo w rzeczywistości te tabele są dużo większe (ok 90 wierszy i 40 kolumn) To na pewno ci się zmieni 'step' jak i ten drugi x+ :)
Usuń dane i wstaw arkusz z makrem. Będzie łatwiej pomóc
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Dziękuje. Problem rozwiązano, makro działa idealnie.
Temat do zamknięcia
Bardzo szybko robi się to ręcznie. Filtr, zaznaczasz, Ctrl+c, Ctrl+v (możesz nawet nagrać makro i je wykorzystać). Klasycznie: w pętli + instrukcja warunkowa (If) oraz licznik wiersza zakresu docelowego.
Dziękuje bardzo za szybką odpowiedz :) Super makro przenosi i zmienia nazwę, czy jest możliwość aby makro zmieniło nazwę w wszystkich wierszach, a nie tylko w jednym.
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa = Worksheets("Arkusz1")....
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
To chyba masz rację ;). Zacznij od podstaw. End Sub kończy całe makro, więc powinno być ostatnim wierszem. [syntax=vb] Sub Przenies() Dim Wzorzec, Przebieg Wzorzec = " " Przebieg = 2 Do While Wzorzec <> "" Wzorzec = Cells(Przebieg, 5).Value If Wzorzec = "Wstrzymany" Then (tu działanie) End If Przebieg = Przebieg + 1 Loop End Sub [/syntax] Z grubsza...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
[syntax=vb]'1.xls Arkusz1 z wiersza 9 z kolumn E, H, L, O, R, U, W do pliku 2.xls Arkusz1 do tych samych kolumn w wierszu 6 'z wiersza 6 w pliku 2.xls z kolumn F, J, N P, T, V, X, Z do wiersza 9 w pliku 1.xls Arkusz1 Sub swap_walue() Dim ark1 As Worksheet Dim ark2 As Worksheet Set ark1 = Workbooks("1.xls").Sheets("Arkusz1") Set ark2 = Workbooks("2.xls").Sheets("Arkusz1")...
Ok, dziękuję - właśnie o to mi chodziło. Mam jeszcze pytanie jak zrobić, aby po naciśnięciu na "tak" nie przechodził mi kursor automatycznie do zakładki podsumowanie tylko zostawał na swoim miejscu w arkuszu info? W tym makrze co napisałeś niestety mi się przenosi.
No więc tak. Nagałam sobie makro, aby zobaczyć jak przeniść samą wartość. Sęk w tym, że na początku przenosiło wartości, tyle że do innej komórki. Potem się zorientowałam, że moją zmienną nie są kolumny, tylko wiersze. Po poprawieniu tego makro przenosi mnie do drugiego arkusza, ale nie wyrzuca wartości. Podsyłam plik.
Witam. Jestem laikiem jeśli chodzi o makra a chciałabym trochę ułatwić sobie pracę. Mam w arkuszu1 listę wyboru w trzech wierszach jeśli chodzi o klasę i wpisuję odpowiednią powierzchnię: Klasa: (lista wyboru) np. RIIpowierzchnia:25,0000 Klasa: RVpowierzchnia:2,0214 Klasa: RVIpowierzchnia:1,6690 Chciałabym aby makro wyszukało odpowiednią klasę w nagłówkach...
może wydać się dziwne, ale w jaki sposób aktywować makro, jak podpiąć pod przycisk?
No cóż, opis nie jest bardzo czytelny, ale jeśli taki miał być efekt: https://obrazki.elektroda.pl/4588789900_... to kod, który to zrealizuje może wyglądać następująco: [syntax=vbscript] Sub FZ() r = 1 'kolejny sprawdzany wiersz (row) rstart = 0 'numer pierwszego w serii wiersza do którego wklejam wartości, jednocześnie numer wiersza...
Czyli są to listy, a przecież one "same z siebie" dodają sobie wiersze ... ? Planujesz wstawiać coś tylko ręcznie, czy może "jakimś mechanizmem" przenosić do listy/list coś z innego miejsca arkusza/zeszytu ?
Witam, Czy znalazła by się osoba pomocna w napisaniu makra? Chodzi o makro rozbijające komórki "etapy pracy" na kilka po napotkaniu znaku ";". Jeśli pomiędzy kolejnymi znakami jest pusta przestrzeń ("; ;") taka wartość nie powinna być przenoszona. Dodatkowo makro miało by "przesuwać" kolejne wiersze w dół. Przykład jak to ma wyglądać umieściłem w załączniku....
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
Pokaże moment, który nie działa na przykładzie. Pomino tego, ze mam na liście słowo ZUS to nie przenosi mi tego wiersza. Wiesz co może być zle?
Dla mnie ten kod jest troszeczkę pogmatwany i też jestem za tym aby na wstępie stworzyć poszczególne kroki procedury. I tu jeszcze się zapytam co ma być jak ta sama osoba występuje parę razy. Rozumiem, że wtedy w Arkuszu2 będzie lista danych (parę wierszy) -zaczynając od 13 wiersza. Ale jeżeli procedura później usunie tylko jeden wiersz w arkusz1 (tylko...
Witam. Mam prośbę odnośnie stworzenia makro. W arkuszu "dane" potrzebuje wyszukać wartości powyżej 9 i poniżej -9 w kolumnie "cena". Tych kolumn "cena" jest kilka w arkuszu "dane". Gdy znajdzie takie wartości zaznaczy je kolorem na czerwono i wytnie cały wiersz i przeniesie na początek kolumny. Nie potrafię stworzyć makro z wyszukaniem takich wartości....
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
Witam, Chciałbym prosić o pomoc w stworzeniu makra dzielącego dane z jednego dużego arkusza na kilka według daty w pierwszej kolumnie. Makro po uruchomieniu powinno przenosić dane (całe wiersze) do kolejno tworzonych nowych arkuszy w zależności od miesiąca (najlepiej nadając im nazwę miesiąca). Następnie sortowało dane w każdym arkuszu według popularności...
jeśli chodzi o zmienne to tam nie ma znaku $ (dolara) tylko § (paragraf) (można zrobić za pomocą kombinacji klawiszy ALT+21) pliki powinny się tworzyć do wszystkich wierszy które w polu "P" mają wartość "1"
A nie prościej zrobić formatowanie warunkowe. Wówczas mamy sprawdzanie przez excela wartości i makro nie obciąża go dodatkowo...Piszę już jakiś czas makra i np jak robi się kopię dużych arkuszy, to makro jest zbyt wolne - lepiej zamiast przenoszenia Rows(A) użyć zaznaczenia i polecenia kopiuj excela wpisując formuły poprzez makro niż kopiować fizyczną...
Witam, jestem początkującym w pisaniu makr. Walczyłem cały dzień aby napisać makro i nie wyszło dlatego proszę o wzór. Z arkusza „dane”, aby przenosiło komórki wszystkie z wiersza oprócz komórek z nagłówkiem „Ilość etykiet” do arkusza „widok” i skopiowało tyle razy, jaka jest wartość w komórce z nagłówka „ilość...
makro przenoszenie kolumn makro usuwanie wierszy makro dodawanie wierszy
awaria ekspresu philips schemat sterowania pompa falownikiem uszkodzona płyta instalacyjna
Głośnik Omnitronic DS-Series 500W do Radmor 5102 Spasowanie koła i cewki w silnikach i prądnicach
