3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
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]....
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Czyli makro ma nie tworzyć nowego skoroszytu? :>
Witam, No to jeszcze jedno pytanko. W moim pliku "1" dołożyłem drugi przycisk "CommandButton1", który zapisuje mi dane i zamyka skoroszyt. Chciałbym zrobić tak, że gdy "aktywny" jest pierwszy przycisk to ten mój (do zapisywania) jest nieaktywny. I na odwrót. Jak to zrobić??
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
mogl by mi ktos pomoc Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma...
Witam, problem polega na tym: mam folder X(C:Dokumenty) który zawiera kilka skoroszytów(111-01,111-02,111-03 itd.), oraz skoroszyt o nazwie "WZÓR". Potrzebuję makro(w osobnym skoroszycie), które sprawdzi czy w danym folderze istnieje już skoroszyt o nazwie np: xxx-xx, jeżeli tak to go otworzy, a jeżeli nie to skopiuje skoroszyt o nazwie "WZÓR" nada...
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ć...
Akurat to jakoś skomplikowane nie jest, jeżeli tylko arkusze nazwiesz kolejnymi nazwami miesięcy, to możesz odwołać się do skoroszytu przez jego nazwę z F3. A do wyszukiwania Janusza użyć jednej z licznych funkcji wyszukujących, np. Find [syntax=vbscript]Set w = Sheets(Range("F3").Value).Columns("A").F... lookAt:=xlWhole) Sheets(Range("F3").Value).Cells(w.Row,.....
Jest kilka możliwości odwołania się do arkusza o zmiennej nazwie. Można to zrobić po indeksie - czyli jakby numerze pozycji, w jakiej arkusze są "poukładane" w skoroszycie. Jeśli ten arkusz ma zawsze taką samą pozycję w skoroszycie, czyli znajduje się (przykładowo) zawsze na 5 karcie (zakładce), licząc od lewej strony - można wykorzystać w kodzie jego...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie.
Makro super, dzieli arkusze o dane1... dane5, ale nie przekleja arkusz1....arkusz4. Krzyczy błędem w momencie kopiowania arkusza1.
Cześć, przejdę do rzeczy. Chodzi mi o zrobienie makra które wykonuje poniższe czynności. Mam szablon, przykładowo : Ilość jabłek : 2 Ilość gruszek 4 Chce by makro, które podłącze pod przycisk tworzyło skoroszyt z tego szablonu, nadawało mu ID np 01 i każdy następny szablon robił np. 02,03,04. Potrzebuję również by makro kopiowało ilość jabłek i gruszek...
z komórek o pierto niżej t.z. z wiersza 2 ?(b2 c2 d2) pisać makro cały czas to lipa zapisz w Osobisty skoroszyt
Przede wszystkim załącz przykładowy plik i jednoznaczny opis, aby było można zorientować się do czego zmierzasz ? Wstępnie można Ci zaproponować uruchamianie jednego makra, które w zależności od wstawionej opcji (1, 2, 3) w określonej komórce uruchamiać będzie różne działania (kopiowanie danych, drukowanie lub zamykanie skopiowanego skoroszytu) ;-)
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt?
Chodzi o to, aby w pliku zbiorczym znalazły się wszystkie arkusze ze zbioru plików. Nie jest ściśle określona liczba plików. Wiadomo tylko, że znajdują się w jednym katalogu, a ich nazwy różnią się 2 znakami na końcu. Nie wiadomo ile dokładnie arkuszy zawiera każdy z plików (ta ilość z czasem rośnie) Ważne jest, aby przy kolejnych aktualizacjach pliku...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
...jak powinno wyglądać makro kopiujące cały arkusz ? ...nie potrafie tego zamienić na cały plik Arkusz - część składowa skoroszytu. W skoroszycie może być wiele arkuszy. Plik zapewne w tym przypadku rozumiany jako skoroszyt. np Zeszyt1.xls Przepraszam że się wtrącam ale zdecyduj się co chcesz kopiować. Myślę że chodzi o arkusz ale... Zapis kopiujący...
Z jakiegoś tematu, nie pamiętam i nie próbuję nawet szukać, uchowała mi się taka "kopiarka". Oczywiście do przerobienia, ale jeśli koncept do zaakceptowania... Niestety jakkolwiek bym się starał z załączonego pliku nie rozumiem nic :-) Mam prosty kod otwierający plik. [syntax=vb]Sub GetImportFileName() Dim Filt As String Dim FilterIndex As Integer...
Kopiowałem do nowego skoroszytu i pominełem
Rozumiem też, że skopiowanie arkusza, aby służył na następny miesiąc, nie spowoduje problemów? Czy trzeba będzie robić od nowa makro i w ogóle? Wszystko powinno być w porządku. Makro jest jedno ale obejmuje tylko ten skoroszyt. Jeżeli ma obejmować inne skoroszyty to albo trzeba kopiować makro do innych soroszytów - do modułu, albo umieścić bodajże...
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
Filedialog to strzał w 10 ;), nie wiem tylko jak powinna wyglądać funkcja która wykorzystywałaby ścieżkę do pliku Excela (kod do pliku - vrtSelectedItem) do przekopiowania np. wszystkich arkuszy z wybranego skoroszytu do skoroszytu w którym mam napisane makro. Sub Makro1() ' Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialog...
nagraj makro, to jest chyba najprostrze rozwiazanie,
To mi coś nie idzie. Kopiując kod do innego skoroszytu ( podstawiając oczywiście prawidłowe dane w nazwach) kopiuje jakies inne dane, niż te które Tobie prawidłowo zliczyły
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Witam [syntax=vbnet] With Sheets(tblArkusze(i)) .Visible = True [/syntax] Masz błąd bo musisz określić którego skoroszytu to dotyczy [syntax=vbnet]With wkb1.Sheets(tblArkusze(i)) .Visible = True End With[/syntax]
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie. Wstawiam załącznik. Byłem w pracy i nie mogłem zajrzeć wcześniej na forum. Dane w komórkach są fikcyjne (musiałem oczyścić prawdziwe dane, gdyż nie mogę ich udostępniać), ale bardziej chodzi o zasadę działania na danych. Wierszy w tabeli jest ok. 500 wierszy i przy każdej zmianie trzeba...
Pytanie czy da się prostym makrem zrobić to o czym pisałem + oczywiście najpierw trzeba zamienić / na np _. Prostym czy nie ale idzie a zmieniać będziesz sam te '/' czy makro ma to robić?
Dzień dobry, to znowu ja. Tym razem merdżuję pliki excel w jeden. Mam do dyspozycji zgrabny skrypt, niestety, wymaga on kilku zmian. Nie wiem, dlaczego, ale makro kopiuje dane z obu skoroszytów, które znajdują się w plikach. Choć powinno brać dane tylko z pierwszego skoroszytu. Moje drugie zastrzeżenie jest ogromnej skali :( Chciałabym, by makro kopiowało...
A nie lepiej (szybciej) jest zrobić kopię pliku abc.xls i go tylko inaczej nazwać? Przecież na to samo wychodzi. Na kopiowanie pełnych arkuszy z formatami nie ma funkcji. Da się to zrobić jedynie za pomocą makra [tylko nie wiem po co - patrz kopiowanie pliku]. No ale ludzie różnych chcą rzeczy. Dodatkowe pytanie do głównego "zadania" czy jest ustalona...
No dobrze z tym sobie poradziłem. Dodano po 17 Mam nowy problem. Jak mając komórkę z formułą zliczającą dane w jednym skoroszycie przenieść tylko wynik do drugiego skoroszytu, aby był zmienną do obliczeń w aktywnym skoroszycie. Pomooocyyy
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Witam, Chciałbym prosić o pomoc w napisaniu skryptu w VBA. Mianowicie chodzi o to, że potrzebuję zapętlonego makra, które będzie kopiowało konkretne wartości między dwoma skoroszytami (pliki dodane w załączniku). Jednocześnie nie ma określonej liczby wierszy i kolumny. Bardzo serdecznie proszę o pomoc. Pozdrawiam Łukasz P.S. Jeżeli był już taki podobny...
Witam. Tworzę makro, które będzie kopiowało dane z jednego skoroszytu do drugiego z opcją na początku wybrania sobie pliku z którego maja być skopiowane dane. Ale nazwy mogą być różne. Plik w którym bedzie znajdowal sie kod to "plikodtworzeniowy". i byłoby coś takiego np. Sheets(" plik.xlsx ").Activate Range("B2:B10").Copy Sheets("plikodtworzeniowy.xlsm").Activat...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Dzięki serdeczne marku! Wszystko obecnie działa OK - po prostu nie mogłem się połapać w oznaczeniach , ponieważ to makro używam do b. skomplikowanego programu "Ewidencja" w którego to budowie bardzo mi pomagałeś przez długi okres czasu. Od roku działa on u mojej księgowej i około 10-cio krotnie ułatwia i przyspiesza jej pracę. Ten układ (makro) działać...
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
Dziękuję za pomoc. Problem rozwiązałem w ten sposób, że Twój plik z makrem zastosowałem jako taki szablon, do którego będę kopiować zbiorczo arkusze z innego skoroszytu i dopiero wtedy zostaną prawidłowo rozdzielone do odrębnych plików z nazwą arkusza. Jeszcze raz serdecznie dziękuję.
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...
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...
This user is not allowed to use direct links. Please email support(at)box.net for support Zamieść to po prostu tutaj. A rada jeszcze taka - stwórz od nowa skoroszyt i wklej makro.
Zupełnie nie mogę zrozumieć na czym polega błąd. Co znaczy przeładowywało się i plik się wyłączał? Sam? Niemożliwe. Proponuję dołączyć to co masz. Najlepiej plik cały, choć ja i tak go nie zobaczę. Zastanów się co potrafisz wykonać, czy: 1. Potrafisz oznaczyć obszar do skopiowania? 2. Potrafisz skopiować dane? 3. Potrafisz wskazać gdzie kopiować kolejne...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Mógłbyś jeszcze mi podpowiedzieć jak zrobić makro na wszystkich plikach w folderze ? W poprzednim moim temacie napisałeś kod: [syntax=vbscript] Sub DzialajNaPlikach() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder" .InitialFileName = Environ("USERPROFILE") & "\Documents\" If .Show = -1 Then Sciezka = .SelectedItems(1)...
Mam problem z makrem, które będzie kopiowało dane z kilku arkuszy (kolejnych, nazwy nieznane) do jednego SREDNIA i będzie wyliczało w nim średnią. Mam już makro które liczy mi ilość arkuszy. Nie wiem jak odwoływać się do kolejnych arkuszy. Public Sub Policz_Arkusze() Dim ileArkuszy As Integer ileArkuszy = Sheets.Count - 2 MsgBox ("Ilość arkuszy w skoroszycie:...
Dobry wieczór, Trudno mi wyciągnąć od Pana, o co naprawdę Panu chodzi, więc jeśli dobrze rozumiem intencje proponuję takie rozwiązanie: utworzyć tymczasową kopię oryginalnego zakresu w wolnym miejscu arkusza (ja użyłem zakresu I6:M12), skopiować tam zakres oryginalny, wyczyścić komórki zawierające zera lub liczby ujemne, wreszcie wyczyszczony zakres...
Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( Najprostsze rozwiązanie PPK myszy na wybrany arkusz :arrow: "Przenieś lub kopiuj" do nowego skoroszytu :idea: Jeśli znasz VBA i masz setki tych arkuszy to nagraj sobie makro takiego kopiowania uruchamiane skrótem klawiaturowym. :D Jeśli zaś masz do skopiowania...
Witam ! Przedstawione zadanie jest trudne do rozwiązania (w każdym razie dla mnie :cry: ) ze względu na zawiłości formatowania dat . Przedstawiony przykładowy arkusz stanowi swoiste dzieło "rękodzielnicze" :D - chyba Pan Błażej mocno się nad formatowaniem warunkowym całej tabeli napocił. Żeby tej pracy nie zmarnować - proponuję zatem do założonej funkcjonalności...
Witam koledzy forumowicze. Potrzebuje pomocy w stworzeniu makra, które będzie kopiować zakres tabeli z jednego skoroszytu do drugiego. Ma to wyglądać następująco: 1. Otwieram skoroszyt (nazwijmy go A) w którym są dwa arkusze, "1" i "2". 2. W arkuszu "1" mam przycisk, który ma zaznaczyć zakres tabeli z karty "3" skoroszytu B (lub innego, które znajdują...
Jest oki. Jednak szczerze powiem nie wiem jakpisać makro, które będzie kopiować formuły do arkusza 2 w zależności od mych potrzeb. Bo w przesłanym skoroszycie podałem w arkuszu 2 tylko 3 przykładowe miejsca. Czasem potrzebuje zrobić to samo w 20 miejsc, w różnych kolumnach i różnych odległościach. Mam nadzieję, że zrozumiale napisałem.
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Profesjonalne podejście do programowania zawsze rozdziela Dane (surowe) i Widok (coś, co je prezentuje). Implementacje tego są przeróżne, ale zasada jest fundamentalna. Excel to chciał dać mniej abstrakcyjnie, dotykalne paluchem "dana jest tam gdzie ją widać" - i to daje ogromne problemy (90% kodu excelowego na świecie to kopiowanie z miejsca na miejsce)...
Witam, chciałabym usprawnić swoją pracę w excel, ale dopiero zaczynam swoją przygodę vba. Potrzebuję napisać makro dzielące dane w moim skoroszycie po kolumnie E w której mam zawarty typ i tam występuje 7 rodzajów typów. Do tej pory ręcznie filtruję po typie, kopiuję dane wraz z nagłówkiem do nowego skoroszytu i zapisuję jako filtrowany typ. Czy mogę...
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...
Pytanie oczywiście o makro. Czy istnieje możliwość powiązania komendy 'kopiuj' z przejściem do arkusza o konkretnej nazwie? Chodzi mi o to aby działo się tak: - mam otwarty skoroszyt A.xls oraz B.xls - kopiuję pewną liczbę (komórkę) do schowka ze skoroszytu A.xls - w tym samym momencie w skoroszycie B.xls Excel przechodzi natychmiast do arkusza o nazwie...
Witam. Potrzebuje dostac sie do danych w innych otwartych plikach Excela. Dziala to tak, ze inny program generuje raporty ktore automatycznie otwieraja sie w Excelu. Kazdy osobno. Zaden z nich nie jest nigdzie zapisany. Generuje na raz od 5 do 10 raportow. Mam makro ktore po skopiowaniu takiego arkusza przetwarza je. Ale za kazdym razem musze przechodzic...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku?
Jeśli nagrasz rejestratorem makr kopiowanie arkusza do nowego pliku, nadanie mu nazwy, zamknięcie itd; po czym wkleisz nagrany kod do kodu skoroszytu (Thisworkbook) przy zdarzeniu "BeforeClose", to uzyskasz efekt bardzo podobny do opisywanego. Aby nabrać pewności warto byłoby zajrzeć do tego pliku...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać, gdyż teraz wyskakuje mi błąd w tej linii: Set wb = GetObject(strQ) Chodzi o to, że mam otwarty skoroszyt x gdyż co chwilę muszę wprowadzać do niego nowe dane, a jednocześnie co jakiś czas dane z tego skoroszytu muszę pobrać powyższym...
Nie trzeba makra wystarczy Power Query dodatek do Excela 2010 2013 od 2016 wbudowany https://www.youtube.com/watch?v=oAOXgHq0...
Ważne jest gdzie kopiujesz te dane. Wskazujesz jakieś okno, rozumiem, że plik musi być otwarty. A co gdy nie będzie? Najlepiej jeżeli to będzie ten sam skoroszyt w którym są makra. Wtedy łatwo zaadresujesz go poprzez ThisWorkbook i to pytanie wyżej nie ma wtedy sensu. Selekty do kopiowania nic nie wnoszą, To tylko strata czasu. Są przydatne np. podczas...
Witam. Czy ktoś wie jak napisać kod VBA dla excela, który automatycznie by uruchamiał się przy każdorazowym otworzenie skoroszytu by wykonywał takie oto polecenie: Skoroszyt zawiera 8 arkuszy. W pierwszym arkuszu jest tabela z zakupami zrobionymi w poniedziałek w postaci: nazwa_towaru, cena, ilość, suma W drugim arkuszu jest taka sama tabela tyle że...
Witam, Stworzyłem plik generujący raporty z tabel przestawnych. Chciałbym teraz pierwsze kilka arkuszy (pierwsze arkusze to raporty, reszta to dane i tabele przestawne) skopiować do nowego pliku. Chciałbym także zachować formatowanie arkuszy ale przenieść jedynie wartości (zamiast formuł). Pomoże ktoś w stworzeniu takiego makra? :) Z góry dzięki!
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
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.
Witam Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
400 par arkuszy (złożonych z określonych czterech arkuszy) Para = 2 szt., jak zatem może się składać z 4 szt. ? kod makra jest ogromie długi 16 linijek kodu to "ogromnie długi" kod ? Nic nie rozumiem ... : ( ...
Możliwe jest stworzenie makra które będzie kopiować potrzebne dane zawsze z ostatnich arkuszy plików Tak to jest całkiem łatwe :idea: , po otworzeniu kolejnych skoroszytów aktywujesz ostatni arkusz np. Sheets(Sheets.Count).Activate i kopiujesz to co Ci potrzeba gdzie chcesz :D Proponuję nagrać sobie odpowiednie makro, które będzie przeprowadzać...
makro nie działa poprawnie :cunning: :?: Makro być może nie spełnia Twoich oczekiwań :D , ale z reguły działa poprawnie tj. zgodnie z zapisem kodu VBA :please: Jeśli uruchamiasz kod z pliku Personal - to dla makra to jest ThisWorkbook i jego arkusze są w stanie Active :!: Musisz tak dostosować kod, żeby jednoznacznie wskazać w jakim skoroszycie i w...
Dziękuje o właśnie takie makro mi chodziło, mam jeszcze jeśli mogę pytanie te makro przenosi do drugiego arkusza tego samego skoroszytu, co gdybym chciał przenieść z tego skoroszytu do całkiem innego skoroszytu np. o nazwie "Archiwum" , do "Arkusz1", który sobie stworze.
VBA zgłasza błędy Jakie błędy, jakiego typu błędy ? Np. w pętli brak warunku definującego zachowanie kodu w przypadku natrafienia na otwarty plik, z którego uruchamiane jest to makro (w katalogu z "plikami", jeśli by tam był on umieszczony), plik próbuje otworzyć samego siebie i jest błąd. Tak więc ... jakieś szczegóły ?
Trochę mi się nie zgadza. 1. Uruchamiam makro w folderze gdzie mam wszystkie pliki: 2. Pobiera nr handlowca np. z Sprawozdanie 1, 3. Otwiera Raport i wyszukuje nr handlowca 1, 4. Kopiuje wskazany zakres komórek, 5. Wraca do Sprawozdanie 1, 6. Wkleja we wskazanym miejscu pobrane dane, zapisuje i zamyka plik. 7. Przechodzi do Sprawozdanie 2 i pobiera...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
1. Jeżeli nie używasz "select" przy kopiowaniu (czyli tak jak masz teraz) to możesz ukryć arkusze i skopiuje bez problemu ale można na czas kopiowania odkryć i ukryć przez np. Sheets("xx").Visible = xlSheetVisible Sheets("xx").Visible = xlSheetHidden 2. chodzi ci o że przy zapisaniu skoroszytu pobiera nazwę z komórki?
1. Następnym razem rozpocznij nowy wątek. 2. jak już makro zadziała, to dane się kopiują Jakim cudem? Kolejność działań: 1. Open (po otwarciu skoroszyt jest aktywny) 2. Wybranie arkusza - Sheets().Select 3. Kopiowanie - Range().Copy 4. Wybranie skoroszytu docelowego - Workbooks().Activate 5. Wybór arkusza docelowego - Sheets().Select 6. Wybór lewej,...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
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:...
jakos nadal nie działa pojawia się komunikat Application.defined or object-defined error Dodano po 7 Jeśli tak zrobię to faktycznie jest ok wksz.Activate MsgBox Range("status") Jeśli wksz.Range("status") to już błąd Ja chce kopiować komórki pomiędzy arkuszami wiec użyłem polecenia 'Cells(NextRow, 1) = wksz.Range("status") gdzie cells jest poleceniem...
Dziękuję za odpowiedzi, ale... chodzi mi o to, żeby tekst (nazwa dnia tygodnia) występujący w komórce A1 "Arkusz1" determinował do jakiego, wcześniej utworzonego w tym samym skoroszycie arkusza, będą zapisywały się dane umieszczone w tabeli, np. B2:F20 "Arkusz1". Dlatego też, wydaje mi się, że bliższą rozwiązania mego problemu jest odpowiedź otrzymana...
...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...
Na pewno masz w otwieranym skoroszycie Arkusz1? Pewnie nie bo używasz Sheet1 Poprawiłem kod [syntax=vbscript]Sub test() Application.ScreenUpdating = False Set wb = ThisWorkbook For i = 2 To Sheets("Sheet3").Cells(Rows.Count, 2).End(xlUp).Row plik = "C:\Users\Uzytkownik\Desktop\PLIK\" & Sheets("Sheet3").Cells(i, 2) & ".xlsx" If Sheets("Sheet1").Cells(i,...
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
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, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
Witam, otrzymałem dzisiaj 200 arkuszy, w których mam kilkadziesiąt kolumn. Wszystkie arkusze znajdują się w tym samym folderze. Moim zadaniem jest otworzenie każdego Skoroszytu i przekopiowanie do Skoroszytu Summary.xlx kilku kolumn. Każdy skoroszyt ma różna liczbę wierszy, zmieniają się, bo pliki sa shared, dane są kopiowane zawsze z pierwszego Arkusza....
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
makro kopiujące makro skoroszyt makro kopiujące arkusz
peugeot usterka ogrzewania makita ga5030 szlifierka schemat woltomierza analogowego
obdii interfejs obdii interfejs
Solax X3-MIC-8K G2: Wydajny falownik fotowoltaiczny Wybór dokładnego multimetru do 1200 zł: Brymen BM869s, Fluke 115, Keysight U1242C