Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Jak skopiować wartość komórki do schowka w VBA? Użyj obiektu DataObject z Microsoft Forms lub Clipboard. Sprawdź przykładowe kody i wybierz najlepsze rozwiązanie.
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
No to pewnie arkusz "XXX" & Cells(Y, "B") nie istnieje. Stojąc mniej więcej tam napisz w oknie poleceń (Immediate, jak nie mam to sobie włącz: View, Immediate Window) coś takiego: ? "XXX" & Cells(Y, "B") Napisałem, że muszą być przygotowane wszystkie potrzebne arkusze z nagłówkami, makro ich nie tworzy.
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
ma nadzieję że zrozumiale jest napisane Niezupełnie. po zliczeniu wszystkich wartości z kol. H ( arkusz1) Chyba chodziło o Arkusz2, a Arkusz1 jest skoroszytem, w którym ma być podsumowanie (?) Założyłem, że nazwy i stawki VAT będą wprowadzone w arkuszu1. Przetestuj takie makro. [syntax=vbscript]Sub Podsumuj() Dim A1 As Worksheet: Set A1 = Workbooks("Arkusz1").Sheets("dok...
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...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Dzięki PRL za pomoc! Już jest prawie dobrze. Jest tylko jeszcze jeden mankament. Otóż jeżeli np. w wierszu G2 mam wartość 5 to makro kopiuje wiersz 2 pięć razy a powinno kopiować 4 razy. Ilość skopiowanych wierszy razem z tym, który pozostaje powinna być taka jak wartość w komórce w kolumnie G jeszcze przed uruchomieniem makra. Czyli suma wierszy po...
Makro w tym przypadku mogłoby być takie: [syntax=vbscript]Sub Kopiowanie() ' zakres źródłowy Worksheets("Arkusz2").Activate Dim ostw As Long, src As Range ostw = Cells(Rows.Count, "L").End(xlUp).Row Set src = Range("L2:L" & ostw) ' zakres docelowy Dim dest As Range Set dest = Range("AB2") ' kopiowanie Dim i As Long, n As Long Dim rw As Range For Each...
Hej, Mam 2 arkusze, w 1-generuje się raport pozycji na podstawie innego makra, w 2-uzyskany raport 1 ma zostać przeniesiony do ostatniego wiersza, niezapisanego i stworzyć 1 wspólną listę, poszperałam tu na forum i znalazłam makro, dopisałam jeszcze, by przed kopiowaniem wyfiltrował wartości puste i kopiował bez nich. Makro to działa, ale w związku...
Cześć, mam taki problem. Chciałabym zarejestrować makro, które będzie kopiowało komórkę i przenosiło do innego arkusza. Jednak wartości tej komórki będą się zmieniać, a jak rejestruje zwyczajnie kopiując i wklejając, to potem makro wkleja mi tę wartość, którą skopiowałam przy rejestracji, zamiast nowej, która pojawiła się w tej komórce kopiowanej. Proszę...
Witam. Mam za zadanie napisać makro kopiujące wartości z jednego arkusza do drugiego. Jak dotąd nie było z tym problemu ale teraz są to dość obszerne arkusze więc nagranie makra trochę mija się z celem bo dużo wartości musi zostać skopiowane. Najbardziej zastanawia mnie dlaczego wartości z komórek AF54 i AG54 usuwają się za każdym razem jak odpalę to...
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ć...
Witam mam mały problem z makrem, a mianowicie chciałbym żeby to makro kopiowało tylko wartości komórek, a nie całe komórki nawet z ramką i kolorem czcionki, da się je jakoś przerobić.[syntax=vb]Option Explicit Sub CopyMultipleSelection() Dim SelAreas() As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim...
Witam. Prosiłbym o pomoc w edycji mojego kodu, który przenosi dane z jednego arkusza do drugiego. Potrzebuję przenosić wartości z wybranych kolumn G, L i M, dopóki są wypełnione danymi, do osobnego arkusza, a następnie sumować te wartości zaraz pod danymi. Sumowanie działa tak, jak trzeba, lecz chciałbym, aby makro wstawiało formułę, a nie gotowy wynik. Makro...
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka Może nie doprecyzowałem chciałbym aby kopiował dla n kolumn tzn a1,b,1c1....=Tak nie tylko gdy w A1=Tak Dodano po 10 Jeszcze inaczej, chciałbym skopiować do nowego arkusza te kolumny dla których w pierwszym wierszu kolumny było słowo Tak Kopiowanie do nowego arkusza bez...
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Cześć, Chciałbym utworzyć makro które skopiowaloby wybrane arkusze np 4 arkusze o konkretnej nazwie (kopiowanie wartości i formatu z całego arkusza) do nowo utworzonego pliku o określonej ścieżce (this.workbook.path & ”/” ) i o nazwie w komórce C11 z akrusza o nazwie “informacje”. Z góry dzięki za pomoc ! Rafał
Zachęcony pomocą , jaką otrzymałem ostatnio, zwracam się ponownie do szanownej społeczności ekspertów. Potrzebuję utworzyć makro , które wyciągnie nazwiska z kolumny A na podstawie wartości w kolumnie B. Tzn, jeżeli Jurek Mazurek ma liczbę "1" w kolumnie B, to chciałbym, żeby makro wyciągało to nazwisko w tabelę z kolumną "1"; ogółem mam grupy zaszeregowania...
1) czy wszystkie wartości w kolumnie A występują parami, czy mogą też być single albo większe grupy? W przypadku większej liczby powtórzeń co ma być skopiowane? Wartości w kolumnie A mogą występować pojedynczo, parami lub w większych grupach 2) Czy istotna jest kolejność danych? Czy można je posortować i szukać par w zbiorze sortowanym? Kolejność danych...
witam wszystkich, Mam prawie skończoną część swojego projektu, jednak brakuje mi małej modyfikacji makra. Otóż makro nie do końca prawidłowo kopiuje zawartość bloku. Potrzeba mi, żeby po wypełnieniu całego pierwszego bloku danych, makro kopiowało poniżej następny blok, ale w skopiowanym bloku przenosiły się tylko wartości nagłówków oraz wartości z komórek...
Po pierwsze dzięki za szybką reakcję i pomoc. Aczkolwiek makro nie działa wg mojej instrukcji powyżej. W twoim makro kopiuje i rozdziela same ścieżki, czyli tylko kolumne T. A powinno kopiować wszystkie kolumny, czyli cała strukture tabeli.
Dokładnie jak to PRL zrobił... Tylko w jaki sposób uruchomić to makro... Jestem naprawdę laikiem. najlepiej powiedzcie w jaki sposób j połączyć z innym makrem, a mianowicie: [syntax=vbscript]Sub KArtaKontroli() ' ' KArtaKontroli Makro ' ' Klawisz skrótu: Ctrl+q ' Range("E4").Select Selection.Copy Sheets("Arkusz3").Select ActiveSheet.Range("$A$1:$D$479").AutoFil...
Cześć, staram się zrobić makro które po skopiowaniu wartości z jednego arkusza do drugiego poza skopiowaniem treści zmieni również kolor czcionki. Makro, które mam: [syntax=vbscript]Sub aaa() Dim Ark As Worksheet Set Ark = ThisWorkbook.Worksheets("1") With Ark If .[A1] = "" Then Sheets("1").Range("B1").Copy Destination:=Sheets("2").Range("C1") Sheets("1").Range("B2").Copy...
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
No tak, umknął mi ten wsB. Częściowo się udało ale mam kilka pytań. Dlaczego z With wbA(1) wyrzuca mi błąd? Dopiero gdy usunąłem With to makro zaczęło działać. No i drugie pytanie, jak skopiować kilka wartości do jednej komórki po przecinku? Teraz kod wygląda tak: [syntax=vbscript]Sub first() Dim wbA As Workbook Dim wsB As Worksheet Dim file As Variant...
Ma być Workbooks a nie Worksheet! Oba skoroszyty otwarte, jak rozumiem. I jeszcze powinno być rozszerzenie nazwy pliku np. stary.xlsx Jeśli wykonujesz kopiowanie z poziomu pliku nowy, to tam odwołanie może być uproszczone.
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Witam, Od pewnego czasu próbuje znaleźć rozwiązanie do bardzo czasochłonnego procesu kopiowania.. Przejdę do rzeczy. Mam plik (Excel), w którym posiadam indeks kolumn, oraz wierszy, niech: A2: PH1, A3: PH2 . . itd aż do np. . A1013: PH1012 oraz (indeks wierszy) B1: c01 ; C1: c02 ... itd aż do... CZ: c... Adresy poszczególnych indeksów np. C14 jest równe...
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Do pliku xls, tak jak na poniższym zdjęciu. Mam stworzone makro które kopiuje same wartości do nowego arkusza, tam wszystko porządkuje, a następnie kopiuje do pliku który jest już stworzony, na którym będą działy się wszystkie operacje. Dzieje się to w optymalnym czasie(około 2 minuty) W tą stronę wszystko pasuje, tylko ten plik eksportowany będzie...
Witam serdecznie Jestem nowy na tym forum. Potrzebował bym pomocy przy makrze, które by kopiowało komórki z jednego głównego arkusza gdzie codziennie wpisuję dane do kilku innych arkuszy. Poszperałem troszkę w necie i znalazłem makro napisane przez pana Tomasza Gawęda które prawie odpowiada moim oczekiwaniom. [syntax=actionscript] Option Explicit Sub...
Niestety nie mogę wrzucić tutaj pliku. Jako N miałem na myśli liczby zawsze powiększone o +1 np. A2 potem A3 itd. Znalazłem rozwiązanie które powinno mi pomóc. Mianowicie jest to pętla, której niestety po wielu próbach nie potrafię wykonać. Więc na ten moment moje makro jest "ręcznym" odpowiednikiem pętli czyli wszystko napisane krok po kroku a chciałbym...
Dziękuję za uwagi. Muszę nieco doprecyzować: nie jest konieczne użycie formatowania specjalnego, przenosi się też formatowanie walutowe. Przy okazji, formatowanie specjalne nie zostaje zachowane w swojej oryginalnej wersji, tylko komórki docelowe zostają sformatowane formatem walutowym. Zapewne Excel uznał formatowanie specjalne użyte w moim pliku za...
Przenosić wartości komórek z wybranego pliku w zdefiniowane wcześniej komórki w pliku z aktywowanym makrem :) Przykład: Z pliku o nazwie 1234.xlsx (plik chce dowolnie wybrać Application.GetOpenFileName) przenieść wartość komórek "b2, b82, c41, e75" itd. do pliku 4321.xlsxm w którym aktywowałem makro do komórek o tym samym położeniu "b2, b82, c41, e75"....
O ile zrozumiałem to są dwa rozwiązania: 1. Wyszukanie danych dla pojedynczego, wskazanego (jak?) wiersza. Należy albo zaznaczyć odpowiednią komórkę i uruchomić makro, albo makro odpyta o komórkę. Czyli klawisz w zasadzie odpada, a wszystko jest takie "toporne". 2. Wyszukanie klawiszem danych dla wszystkich wierszy (nieuzupełnionych?), zdecydowanie...
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym aby pętla kopiowała mi te wartości określoną ilość...
Witam, formuła nie wystarczy gdyż arkusz "wydruk" jest generowany każdego dnia, a następnego czyszczony i generowany nowy, a formuła nie zapamiętuje wartości pobranych...
Hej, zwracam honor i już dodaje spakowany plik. Odnośnie "bazy danych" - dlaczego to nienajlepszy pomysł? Plik docelowo w mojej głowie robi raport z np. 2 miesięcy, a każdy kolejny dzień jest tabelką niżej - codziennie wartości wpisywane w te kolumny się różnią, a potrzebne są do rozplanowania zmiany. Wcześniej miałem ten plik z macro, które kopiowało...
Witam. Sprawa pojawiała się już kilkukrotnie na forum elektrody. Szukałem rozwiązania również w innych serwisach. Zacząłem naukę VBA, ale nie zdążę opanować go na takim poziomie, aby rozwiązać ten bieżący problem. Sprawa dotyczy arkusza z kilkoma setkami rekordów. Podział wg kategorii w kolumnach i wiele wierszy z danymi. Interesują mnie wartości z...
Witam! temat wałkowany po tysiąckroć ale cóż począć skoro im więcej czytam tym mniej rozumiem. Proszę więc o idiotoodporną podpowiedź jak skonstruować makro przenoszące wiersz zawierający 17 wartości (17 kolumn) do nowego arkusza w tym samym układzie wg kryterium z kolumny A, wybieranego z listy rozwijanej ( pusta i dwie pozycje tekstowe). Warunkiem...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
Witam, interesuje mnie kopiowanie duplikatów wartości z kolumny A (usunięcie tych wartości w kolumnie A) oraz przekopiowanie tylko wartości zdublowanych do kolumny E. Szczegóły w załączniku. Z góry dziękuję za pomoc.[/quote]
Witajcie, Mam taki przykład. Handlowcy, region, punkty. Potrzebuję aby z arkusza "dane" kopiowały się wiersze w zależności od regionu. Tj wszyscy handlowcy z południa do arkusza "południe", ci we wschodu do "wschód" itd. Mam takie makro. Sub CopyWhenConditionMet() a = Worksheets("dane").Cells(Rows.Count, 6).End(xlUp).Row For i = 2 To a If Worksheets("dane").Cells(i,...
Witam Potrzebuje pomocy w napisanie makro. Wytłumaczę to na przykładzie, a więc mam trzy tabele. W pierwszej są trzy kolumny- pierwsza to nazwa miasta, druga to adres szkoły a trzecia wysokość czesnego. Może zdarzyć się że w jednym mieście jest kilka szkół. druga tabela zawiera kryteria wyszukiwania, a w trzecią tabele trzeba odpowiednio wpisać wartość...
Dzień Dobry, zakładam temat bo w sieci to co znalazłem nie potrafiłem wykorzystać. W załączniku plik. Piszę makro, które będzie kopiowało mi z Arkusz2 do Arkusz1 wtedy, gdy będzie spełniony warunek. W Arkusz1 mam nazwy kontrahentów według wykazu alfabetycznego, w Arkusz2 są kontrahenci w różnej kolejności. Pętlą For w Arkusz1 schodzę po wierszach w...
Cześć, Jestem tutaj pierwszy raz i będę wdzięczny za pomoc. Mój problem polega na tym, że szukam marka, które zrobi tak: 1. W arkuszu 2 mam komórkę w której będę wpisywał wartość odpowiadającą liczbą w arkuszu 1, kolumna A. Obok komórki będzie przycisk do makra. 2. Po wpisaniu liczby, makro musi pobrać dane odpowiadajace poszczególnym komórką z wiersza...
Bardzo proszę o pomoc w rozwiązaniu następującego problemu. W załączonym pliku mam pięć arkuszy. W arkuszach 2-5 w komórkach A1 są jakieś wartości. Potrzebuję napisać makro, które skopiuje mi wartości z komórek A1 Arkuszy od 2 do 5 do komórki A1 Arkusza1. Obecnie mam makro które: Wartość kom A1 z Arkusza 2 kopiuje mi do kom. A1 Arkusza1 Wartość kom...
Poniewaz w wierszu 29 jest poziom 1 , makro ma kopiowac tylko poziomy wyzsze od znalezionego poziomu M
Witam, potrzebuję makro do Excela w VBA. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to ciężki temat, gdyż jestem nowy w programowaniu i tak jakbym potrafił napisać na kopiowanie komórek makro tak w tym wypadku jest to troche trudniejsze i nie potrafie...
Witam serdecznie! Potrzebuję stworzyć makro, które kopiuje zawartość kolumny do wierszy, które nie są obok siebie. Na ten moment stworzyłem makro dla 10 ciu wartości z kolumny A2. Kopiuję jedno po drugim i wklejam do wybranych wierszy jednak sprawa dotyczy 1000 wartości. Czy można ten kod skrócić? [syntax=vbscript] Sub kopianum() ' ' kopianum Makro...
Witam, potrzebuję makro, które sprawdzałoby komórkę, w której jest wpisana data i kopiowała inną w tym samym wierszu, w której znajduje się jakaś wartość. Chodzi o to, żeby użytkownik zaznaczył/wpisał datę, albo zakres od jakiegoś dnia do innego - wtedy makro sprawdzałoby czy w kolumnie B znajdują się takie daty, jeśli tak, to wartość z kolumny G w...
Dzień dobry, proszę o pomoc w napisaniu makro, które wykonuje poniższe czynności: 1. Zaznacz całą widoczną tabelę (tabela może mieć różną ilość wierszy). 2. Skopiuj zaznaczoną tabelę do kolejnego arkusza. 3. Dodaj kolumnę z lewej strony tabeli, która będzie częścią tej tabeli. 4. W nowo dodanej kolumnie wypełnij wartości do końca tabeli (tabela może...
Mam takie proste makro do przenoszenia między arkuszami wartości. Potrzebuję do tego dorzucić sprawdzanie wartości w kolumnie E jeżeli większa niż zero to kopiuje jeżeli zero pomija kopiowanie z danego wiersza. Jakoś nie mogę tego ogarnąć proszę o pomoc. Sub A_Przenies_ok() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("lista").Cells(Sheets("lista").Ro...
Kopiowanie przypisane jest do A1 w dół w aktywnym arkuszu. Przejdź makro krok po kroku [wspomniane F8], obserwuj co się dzieje (jakie wartości przypisywane są do zmiennych). Czy nie lepiej byłoby zamapować lokalizację sieciową i odnosić się do skrótu?
Cześć, ,mam problem jak napisać makro które skopiuje tylko wybrane kolumny w zależnosci od danych wpisanych w wierszu 6, jest tam zawsze numer miesiaca i występuje kilka razy, (raz w 6 kolumnach raz w 12, zawsze jedna po drugiej) . Marko miałoby znaleźć własciwy miesiąc (czyli liczbę z zakresu 1-12) podany np w inputbox a potem skopiować wszytskie właściwe...
Witam, jestem początkujący w temacie VBA a mam następujący problem: 1) plik .xlsx zawiera ok. 30 tys. rekordów 2) w kolumnie K jest ok. 100 unikatowych wartości 3) chciałbym, aby makro vs. ww. kolumny otworzyło ok. 100 plików w wybranym w kodzie folderze - w nazwie każdego pliku powinny znaleźć się poszczególne 100 unikatowe wartości z kolumny K, dane...
chciałbym żeby w razie czego można było edytować ręcznie wszystkie pobrane wymiar tj. wys szer i gleb. Zrobilem makro ale to dziala ze trzeba wcisnac przycisk zeby wywolac procedure kopiowania i to mi nie odpowiada. Dlatego temat zalozylem bo moze jakos da rade to zrobic? Moze jakąś funkcę napisać i dodać do formuły w arkuszu Zabudowa w komorkach J3,...
PRL, dzięki za próbę pomocy, ale zdecydowanie to nie jest to na czym mi zależy Bardziej myślałam o tym, żeby uzależnić ilość kopiowanych komórek z pierwszego wiersza od ilości komórek w drugim wierszu, które mają te same wartości (dlatego, że ich ilość może się różnie zmieniać). W zasadzie to makro, które wkleiłam pierwsze prawie działa, dlatego raczej...
JRV twoje rozwiązanie wywala błąd #ARGH , bycz może dlatego ,że nie znajduje danej wartości z komórki B z pliku X w pliku Y(plik Y zawiera tylko niektóre dane ze stałej tabeli z pliku X)
Do których wartości w tabela 'Po prawej stronie' musi zawierać identyfikatory w drugim rzędzie? wersz 1 - IDID Gniazda ID Siedliska wersz 2 - 40 1
Na podstawie tych danych ( M4 i O4) makro wyszukuje wszystkie dane łącznie i pomiędzy ( zakres dat ) nimi z kolumny M , a następnie kopiuje te dane do nowego skoroszytu . Proszę o dokładne wyjaśnienie treści zadania - literalnie rozumiem to tak: na podstawie założonej daty M i daty O (wprowadzonych inputem do makra) makro wyszukuje wszystkie 20 polowe...
Witam Jestem totalnie zielony w temacie, a potrzebuję stworzyć sobie makro, które pozwoli na kopiowanie komórek o odpowiednią ilość wierszy - otóż mam gotowy plik z dużą bazą danych, do której kilka razy w tygodniu doklejam kolejne wiersze. W osobnym arkuszu mam utworzoną, przygotowaną do druku kartę (2 kolumny po 19 wierszy), do której podczytane są...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Udało mi się dopasować pliki i przetestować. Za każdym razem pojawia mi się komunikat - w schowku jest duża ilość informacji, czy chcesz później wklejać je do innego programu. Może źle dopasowałem? nie mam wprawy w excel. Czy można wprost przenosić dane bez np formuł. Tzn w każdym pliku jest lista rozwijana z RM (wybór z kilkunastu opcji), czy też...
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Witam. Potrzebuję pomocy w jednej kwestii, a mianowicie - w dwóch kolumnach mam wartości : 111 a 111 a 112 b 113 b 113 b 113 b 114 c potrzebuję ten zakres skopiować do innej tabeli i by wyglądał w ten sposób: 111 a 112 b 113 b 114 c Nie wiem w ogóle jak się za to zabrać. Funkcja usuń duplikaty nie rozwiązuje problemu, bo docelowo musze przypisać kolumnie...
Witam, Jeśli chodzi o makra i VBA jestem laikiem i moja wiedza w zasadzie kończy się na rejestrowaniu makra. Mam oto takie makro, które zarejestrowałem i zaczytuje ono dane z 3 przykładowych skoroszytów do jednego. Makro wykonuje się na otwartych plikach. [syntax=vb] Sub ROBOCZO() ' ' ROBOCZO Makro ' ' Windows("KGP12017 - Raport rozliczenia - 05.xlsx").Activate...
Witam, pokrótce opisz mój problem na podstawie zamieszczonego poniżej pliku 'przykład1'. Makro które w nim utworzyłem ma za zadanie: kopiować z arkusza '3' wiersz z ciągiem 4 cyfr do arkusza '1'. Potem z tego arkusza kopiować kolumnę 'J' do arkusza '4'. W przypadku analizowanego przykładu, makro ma się zakończyć, gdy wszystkie wiersze (30) z arkusza...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Niestety dalej nie działa. Załączam plik na którym pracuje, zapewne ułatwi on trochę próbe znalezienia rozwiązania. Makro tej funkcji znajduje się w drugim module. Sama formuła testowana jest arkuszu "DATA ENTRY 2" komórka R1. Docelowo formułą musi znaleźć sie w każdym arkuszu DATA ENTRY Skrót klawiszowy Ctrl + Shift + N - powoduję stworzenie nowego...
Witam serdecznie. Jest to mój pierwszy post więc proszę o wyrozumiałość. Mam pewien problem a że VBA nie znam zbyt dobrze ( raczej jakieś podstawy) trochę mnie to przerasta. Szukałem coś nt. temat ale ciężko znaleźć jakiś podobny przykład. Do sedna: Dane: W pliku znajduje sie kilka arkuszy : arkusz1, arkusz2,arkusz3, arkusz4 itd. W 4 pierwszych arkuszach...
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem, wyszukujesz wartość ze zmiennej w pierwszej...
Hej wartości taka jak cena i wartość na tej PZ nie są potrzebne i nie muszą być drukowane. Te wartości dostawca zobaczy na fakturze wedle umowy podpisanej. Na PZ ma znaleźć się ilość netto z komórki E3. Sucha liczy się sama ale ona jest potrzebna jako dana w biurze a nie dla dostawcy także tylko ta z komórki E3. A kopiowanie może się odbywać z aktywnego...
...działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? W pętli: [syntax=vbscript] While Plik <> "" ... Wend [/syntax] nie należy kopiować, tylko przenosić dane z komórek 'dawcy' do zmiennej tablicowej, a następnie z tej zmiennej oddawać wartości do obszaru zdawczego...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
Cześć, Jestem totalnym laikiem jeśli chodzi o makra, dlatego chciałbym się dowiedzieć jak zrobić takie makro w Excelu, które umożliwiłoby tworzenie listy osób dzwoniących w danym dniu. W tym celu stworzyłem w Excelu dokument z 3 zakładkami. W pierwszej zakładce "Input" chciałbym wprowadzać unikalny kod przypisany danej osobie, który w zakładce "Search"...
ok. Wszytko Mi ładnie zadziałało. Ustawiłem regułę w otlooku która uruchamia makro po przyjściu maila. Mam jeszcze jedno pytanie a w sumie problem. Mam taki arkusz 2014-05-07 1200 2014-05-07 1300 itd rożne wartości Potrzebuje skryptu vba które znalazło by wartości powyżej 1500 i je skopiowało do innego arkusza ale po uprzednim podzieleniu przez 1000....
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
Tak nagrało mi makro które zarejestrowałem. Znalazłem problem z komunikatem Out of Memory: Problemem był pusty plik. Dodałem sprawdzenie czy plik jest pusty i wszystko działa jak powinno. Odnośnie : Myślę, że większe korzyści można odnieść optymalizując: Me.Repaint Call pas1.Pasek_Up1(i + 1) Me.Repaint ustawiłem już, żeby pasek był zależny od wartości...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...
Witam Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie [syntax=vbscript] Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog...
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...
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
Witam, Mam podobny problem co kolega wcześniej. Mam makro które importuje dane z wielu arkuszy i różnych plików (będących w jednym katalogu) do jednego. Jednak brakuje mi w nim założenia, że ma importować z tych plików tylko dane gdzie Arkuszu 1 i kolumnie B znajdują się wartości np 25 i 26 (taki jakby =jeżeli) Będę wdzięczny za pomoc. Poniżej obecny...
Witam, Z góry proszę o wyrozumiałość, jestem początkującym użytkownikiem VBA. Mam następujący problem. Mam bazę w excelu, która składa się z kilku kolumn (klient, kolejne lata w podziale na kwartały), następnie w wierszach umieszczona jest nazwa klienta i dla każdego okresu w 4 wierszach przychody, koszty, marża (każda z tych wartości jest wyliczana...
kolega zapomniał o Dodano po 3 witam Jak w temacie problem z kopiowaniem. Mam plik excela w którym gromadzę dane. Potrzebuję w jakiś sposób pobrać dane z innych plików excela, których nie chcę za każdym razem otwierać(gdyż będzie ich dużo). Np. w kolumnie A mamy nazwy plików i potrzebne jest aby w kolumnie B były wartości z określonych plików z kolumny...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
Witam, Mam pewien problem z Visualem pod Excelem z którym nie mogę sobie poradzić. Mam dwa pliki Excela 1.główny http://obrazki.elektroda.net/42_12893335... 2.baza http://obrazki.elektroda.net/57_12893335... W pliku „glowny” w kolumnie B mam wpisane pewne numery identyfikacyjne. Dla każdego z tych numerów w kolumnach od...
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
kopiowanie wartości makro kopiowanie kopiowanie makro
comport builder piecyk vaillant iskrownik wgranie języka polskiego
izopropanol termopasty amica daw7123dcb
Przepalanie bezpiecznika nr 16 w Volkswagen Touran Regulacja gaźnika w pile Faworyt RG 5300 18
