Dodaj Swoja sciezka w Dir, jak w post #1 Dodano po 4 lub przed wlanczeniem makra zrob "Plik - Otworz" wejdz w folder z plikami - "Esc"(Odmiana)
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Alleluja Mistrzu. Jeszcze jedna drobnostka. Co dodać, żeby pomiędzy "zestawami danych" nie dawał pustego wiersza? I czy da się też tak kopiować te dane, żeby obramowanie zostawało ? :)
Witam, mam taki kod makra, i chciałbym żeby zawartość komórek kopiowała się do innego pliku. Gdzie powinienem wstawić ścieżkę dostępu? Sub save() Dim cokopiujemy As String Dim linia As Integer ' jesli jest puste, wyswietl komunikat "UZUPEŁNIJ POLA" If (Range("F6") = "") Then Range("N8")...
Rozumiem kod tylko coś nie działa, gdyż tworzy plik w dobrym miejscu o dobrej nazwie tylko nic nie kopiuje jak robię to na przykładowym arkuszu i jeszcze jedno z kodu wynika, że ma kopiować wiersz a mnie chodziło o kolumnę: [syntax=vb]wrsDst = 2 [/syntax] <- rozumiem, że to zmienić trzeba na kolumnę tylko jak to się wpisuje w kodzie? PS gdzie w kodzie...
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Poprawiłem błąd.
Na tej liście w Arkuszu1 brakuje komórki z kolumny E. Mam nadzieję, że to nie przeoczenie. Ponieważ łatwiej jest kopiować po kolei, więc wykonuję to jedno dodatkowe kopiowanie w pętli, a później nadpisuję skopiowaną wartość. A tak w ogóle to powinien być Twój załącznik! Proponuję taki kod (też uruchamiany dwuklikiem w wierszu, z którego chcemy kopiować):...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Oczywiście, jeśli makro jest rejestrowana w rejestratorze, będzie zawsze działać identycznie, niezależnie od tego jak są dane. zarejestrowane makro 'nie myśli' powtarza tylko akcje. kilka pytań: Arkusz3 jest zawsze danych dla jednego dnia? Na Arkusz3 może nie być kilka spółek włączonych do wykazu?
Wspominałem już o EPPlus? 1. Pobierz [url=http://epplus.codeplex.com/]stąd bibliotekę. 2. Upewnij się, że projektu w VS nie kompilujesz do wersji Client. 3. Bibliotekę EPPlus.dll dołącz przez referencję do projektu. 4. Stwórz w Excelu szablon z makrem, formatowaniem etc. 5. Kod zapisujący dane z tabeli będącej źródłem dgv do szablonu to (uwaga...) [syntax=csharp]using...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Może być w ten sposób? (kolumny pomocnicze można ukryć) Co prawda załączyłaś dane gdzie zawsze był nr transakcji ale działa też jak go wykasujesz -uwzględnia to. edit: podmieniłem trochę formuły by było łatwiej kopiować w bok. Może trochę utrudniłem zrozumienie formuły ale... Główna formuła np. dla "a" w danym miesiącu to: =SUMA.ILOCZYNÓW((C1:C10000="a")*1;(A1:A1...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
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...
Witam. Zachwyciłem się programowaniem VBA i ulepszam swój arkusz kalkulacyjny. Bardzo przydała by mi się funkcja prezentowana w tym filmiku: Posty scaliłem, zamykam temat. RADU23
Witam Czy jest makro które kopiuje dane z kilkunastu plików exela do jednego pliku Excela? nie ważne czy plik jest otwarty przez użytkownika czy zamknięty. Np. plik Excela-"Janek", w arkuszu 2(ukryty przez vba)- należy skopiować dane z zakresu a3:g3(tutaj znajdują funkcje Excela z innych arkuszy tego samego pliku) do pliku Excela "DANE" do arkusza2...
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
Przerobilem znalexione w sieci makro tak ,że działa ale tylko na 2 plikach :/ nie wiem o co chodzi.. A chciałem aby działało na tylu plikach ile zaimportuje.. Możecie coś podpowiedzieć? I ewentualnie pomoc w jeszcze 2 rzeczach: 1) Wstawianie zer tylko tam gdzie: a) osoba jest zgodna ale nie ma wartości w całym wierszu b) tam gdzie nie znalazło nikogo...
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
W zakresie wierszy od 3 - 10 we wszystkich komórkach mam różne wyniki, które aktualizują się z zewnętrznej bazy automatycznie i są zmienne. Potrzebuje z tych odczytów zrobić historię w postaci listy i chciałbym aby co 5 min. wykonywany był zrzut tego zakresu wierszy w formie listy w 2 arkuszu w tym samym pliku Proszę o wsparcie
Witam Mam macro do kopiowania danych z jednego arkusza do drugiego i kopiuje dane ale tylko 3 razy. Przy kolejnym zatrzymuje się na poziomie (pogrubiona linia): Sub DoBazy() For i = 1 To 200 If Worksheets("Baza").Cells(1, i) = Cells(2, 3) Then kol = i Exit For End If Next i For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i,...
Witam, potrzebuję wkopiować kilka arkuszy o różnych nazwach z jednego skoroszytu do kilku odrębnych. Jestem nowicjuszką i zupełnie nie wiem, jak sobie z tym poradzić. Znalazłam takie makro, niestety nie wiem jak dopasować je do mojego zadania. Sub Splitbook() MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy '(I got...
Witam. Chciałem zrobić plik exela który pomoże mi w rozliczaniu projektów. O ile z formułami w komórkach dałem sobie rade to z makrem już nie bardzo. Tak naprawdę pierwszy raz z niego będę korzystał. Prosiłbym o pomoc w stworzeniu takiego makra które w zależności od danych wejściowych skopuje odpowiednie komórki do drugiego arkusza w pierwsze wolne...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
A czy zadziała to w wesji Open Office? Nie. W OO nałeży napisać inne makro. Dodano po 1 tak mam To jak myślisz, dlaczego makro nie zadziałało? ;) Nie odpowiedziałaś na pytanie o wersję Excela!
Trzeba zmienić sposób adresowania w makro z bezwzględnego na względny . A najlepiej związać z aktywną komórką i wtedy nawet nie trzeba go kopiować - jedno makro będzie obsługiwało wszystkie wiersze. :D
cześć, potrzebuje napisać makro które będzie kopiować do excela wiele stron internetowych, mam makro które może skopiować zawartość jednej określonej strony internetowej, w excel w określonej kolumnie mam adresowy około stron 800 stron które bym chciał skopiować, jak napisać makro w którym jedyną zmienną bedzie adres strony którą makro skopiuje z kolumny...
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...
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...
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Dziękuję za wyczerpującą odpowiedź, w takim przypadku kiedy formuły jedynie kopiują dane a ich nie przenoszą, zrezygnuje z pomysłu i będę kopiować ręcznie dane. Makro dla mnie to czarna magia i nawet nie chce się zagłębbiać w ten temat. jeszcze raz dziękuję za odpowiedź.
Źle, bo ja już wymiękam z tym pendolino. Co ma sprawdzać w H i R? Z czym porównać i co zrobić w przypadku zgodności/niezgodności? H i R muszą być identyczne przy takich samych loginach, jeżeli nie są to szukaj dalej. Czyli, jeżeli prawa = lewa to kopiuj tak jak to robi teraz , jeżeli nie szukaj dalej aż dopasujesz lewa / prawa DKGWPA01 OVS / DKGWPA01...
Witam Potrzebuję makro które po zliczeniu wszystkich wartości z kol. H ( arkusz1) dla poszczególnych tych samych danych z kolumny A ( arkusz1) wstawi automatycznie je w odpowiadającej porównując z kol. A komórce z arkuszu2 w kolumnie E. oraz z kol L (arkusz1) do kolumny F (arkusz2), rozbijając na poszczególne stawki vat. ma nadzieję że zrozumiale jest...
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
Taak ale ma kopiować wszystkie komórki znajdujące się pod (całą kolumnę). Jestem w stanie zrobić loopa który przeżuci jedną komórkę ale nie umiem zrobić tak żeby na podstawie jednej kopiowało całą kolumnę.
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:...
Witam i proszę o pomoc - jeśli jest to możliwe. Stworzyłem makro kopiujące dane kolejno z wielu plików do pliku docelowego: 'kopiowanie z pliku 01 do docelowego w wierszu 5: Windows("plik_01.xls").Activate Range("P4").Select Selection.Copy Windows("docelowy.xls").Activate Range("$C$5").Select Selection.PasteSpecial Paste:=xlPasteValues 'kopiowanie z...
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...
Witam Was, w VBA jestem zupełnym amatorem, w zasadzie korzystam z nagrywania. Pojawił się pewien problem Mam jeden plik z którego chcę kopiować zawsze te same zakresy komórek, do innego pliku. Zasada jest prosta otwieram jeden plik bazowy z którego kopiuję dane i wklejam w pasujący zakres w drugim otwartym pliku, plik do którego kopiuję zawsze ma inną...
Cześć, mam problem z makrami, mianowicie, nagrywam makra filtrujące - makro ma filtrować, kopiować dane, które zostały uzyskane i wkleić do innego arkusza, który jest przygotowany formą pod uzyskane dane. Jednak mam problem, ponieważ o ile pierwsze makro działa, o tyle każde kolejne jakby nakłada się na następne, ponieważ filtruję się kolumna, którą...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
To trzeba takie napisać. Opis problemu jest niewystarczający, żeby pomóc w jakikolwiek sposób - po tym opisie nie można ustalić co i skąd ma to makro kopiować i do którego skoroszytu i w jakie miejsce. W zasadzie to potrzebne jest makro, które coś gdzieś kopiuje - można sobie takie nagrać rejestratorem makr i problem rozwiązany. Ewentualnie proszę przedstawić...
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie. Do takiej postaci udało mi się skrócić kod. [syntax=vbscript]Sub OtworzPlikiWszystkich2() Application.ScreenUpdating = False Dim plik Dim i As Byte plik = Application.GetOpenFilename(filefilter:=... "skoroszyt excel (*.xls*),", MultiSelect:=True)...
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Czy masz pełen dostęp do tej sieci jako administrator, (czyli tworzenie, modyfikowanie,usuwanie itp) Nie, uprawnienia administratora mają tylko informatycy. Sprawdź sobie jeszcze tak nie używając makra, tylko manualnie czy możesz skopiować arkusz i wkleić za następnym. (włącz sobie jeszcze nagrywanie makr i zobacz czy zarejestruję tą operację) Mogę...
Dzień dobry, proszę o pomoc w wykonaniu makra w Excelu. Zewnętrzny program eksportuje dane do Excela w postaci tabelki o kilku kolumnach. Ręcznie usuwam niepotrzebne mi kolumny zostawiając tylko jedną z potrzebnymi danymi w Kolumnie A. Teraz w kolumnie B1 wstawiam formułę =("słowo1" &$A1&" słowo2"). Teraz muszę ręcznie przekopiować zakres w kolumnie...
Jestem słaby w pisaniu makr dlatego zwracam się z prośbą o pomoc w napisaniu jednego. Otóż rozchodzi się o makro które daną (stałą) tabelkę, kopiowałoby w wybrane, zaznaczone miejsce określoną ilość razy (najlepiej w wyskakującym oknie). https://obrazki.elektroda.pl/4674649200_... Zaznaczona tabelka jest stała i to ją bym chciał...
Stworzyłem (nagrałem) makro dla pierwszej tabeli (Tabela1), które będzie formatowało poszczególne kolumny. Błędne podejście do zadania :cry: Prościej będzie dopracować sobie jedną tabelkę (template), a potem kopiować całe arkusze :spoko: Na zrzucie widać wierne kopiowanie tabeli, a w załączonym pliku makro kopiuj() 952012 952013
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.
Jednak szybciej było napisać makro:) W załączniku. Z tym, że w twoich danych (w załączonym pliku) dane, które chcesz kopiować znajdują się chyba w wierszu 8 a nie 37. Zrobiłem makro kopiujące dane z wiersza 8 pod warunkiem, że są mniejsze od zera. Ponadto, żeby data również się przepisała, musi znajdować się dokładnie 5 wierszy powyżej danych z których...
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
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 Wszystkich Mam problem z utworzeniem makra a w tym temacie jestem zielony i proszę Was o pomoc. Zaoszczędziłoby mi to wiele czasu i pomyłek a mianowicie Używam tego: Sub nowy() Application.ScreenUpdating = False Set wks = ThisWorkbook.Worksheets("Arkusz... sciezka = "sciezka" wks.Range("A2:IV65536"...
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
Chcesz za każdym razem kopiować tylko niektóre z tych danych (komórek) czy zawsze wszystkie?
Jak zrobić by nie kopiować tego ręcznie Tak jak pisałeś Ty - w B mieć ilość do drukowania. Tak jak pisałem - arkusz Wydruk i makro, które z Dane skopiuje do Wydruk pożądaną ilość i wydrukuje. Żebyśmy się zrozumieli :) - w Wydruk masz przygotowaną jedną stronę z etykietami.
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Kod wklejamy pomiędzy znaczniki (Syntax) - opcja "Listing kodu". Twój post (z racji pełnienia funkcji) poprawiłem, przy okazji łącząc oba w jedno ;)
excel kopiować makro makro excel kopiować excel makro kopiować
nadawać president laser półprzewodnikowy rezygnacja orange
naprawa udaru makita problemy diagbox
Genesis Mangan 200 - Pad nie wykrywa ruchu Szlifierka Bosch/Makita – brak iskrzenia na komutatorze, co 2-3 sekundy silne wyładowanie
