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]
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ć...
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...
W tym temacie mogę Ci podpowiedzieć że można tu użyć filtru zaawansowanego. I w tym kierunku szukaj odpowiedzi. Podpowiem że o ile ręcznie filtru zaawansowanego można użyć tylko w jednym arkuszu to jeżeli go oprogramujesz w VBA to można kopiować wybrane dane do innych arkuszy a nawet pomiędzy plikami. Temat jest szeroki ale jak byś przygotował przykładowy...
Witam Workbooks.Add nowy=ActiveWorkbook.Name '....... 'tu kopiowanie a t.d. '........ Workbooks(nowy).Close False Ten kod w petli
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...
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...
Czyli makro ma nie tworzyć nowego skoroszytu? :>
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) ;-)
No dobrze, zastanówmy się. Plików masz nieokreśloną ilość. Można te właściwe zaznaczyć w oknie dialogowym (Alow multiselect) lub dialog otwierać w pętli aż do zamknięcia bez wyboru. Arkusze mają różne nazwy. Mniejsza z tym jeśli będziemy kopiować tylko i wyłącznie z pierwszego i drugiego po indeksach (Sheets(1), Sheets(2)), zawsze z tych samych komórek...
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...
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt?
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]
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
Kopiowałem do nowego skoroszytu i pominełem
myfile = "C:\Goods In\Goods In Data_DO NOT DELETE__\ Goods In Data .xlsx" Application.Workbooks. Open FileName:=myfile Workbooks("Goods In Handover .xlsx"). Activate Otwierasz plik A, a potem chcesz aktywować inny B nieotwarty skoroszyt :sm31: Nie załączasz żadnych przykładowych plików, więc nawet nie wiadomo w jakim pliku ma być zlokalizowane Twoje...
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...
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"?
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...
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
nagraj makro, to jest chyba najprostrze rozwiazanie,
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...
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.
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ć?
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ż...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
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...
Zamknęłam tamto zadanie a mam jeszcze 3 pytania extra do makra, które stworzył (at)prl . Post dokleiłem do wczesniejszego wątku i odblokowałem go. W przypadku chęci kontynuowania zamkniętego wątku zawsze można zgłosić go do moderacji (raportując którykolwiek z postów w nim) z prośbą o ponowne otwarcie. 1. Makro dzieli skoroszyt na osobne skoroszyty...
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...
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
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
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...
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. 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...
Podbijam temat. Napisałem trzecie makro, które w załączonym pliku miałoby kopiować dane z plik 1 do pliku 2. Niestety nie działa a powinno. Mógłby ktoś rzucić światło w czym rzecz?
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...
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?
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.
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, potrzebuję napisać makro, które będzie kopiować dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie. Problem polega na tym, że każda tabela z danymi ma inna liczbe wierszy. Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także...
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
witam, próbuję zrobić makro, które, kopiowałoby komórki z wartością >0 i wklejało wartość do tej samej komórki, ale w całkiem innym skoroszycie. Ścieżka do skoroszytu, w którym miałyby się znaleźć wklejane wartości byłaby zawsze ta sama. z góry dziękuję za pomoc
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...
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ć...
...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...
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...
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.
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
Na obrazku skoroszyt jest otwarty na Twoim kompie Na obrazku widać, że Excel jest otwarty na komputerze zdalnym (AnyDesk). Na filmie uruchamiam makro, które importuje z Arkusz1 (z zasobu sieciowego \\serwer\bekap\a.xlsx) do tabeli Excel, co działa. Chyba o pobranie danych Ci chodzi, a nie o kopiowanie pliku, prawda? [syntax=vbscript]Kill Ustawienia.Ścieżka...
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...
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,...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
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ę...
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:...
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 :!:
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...
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....
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...
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ć...
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie.
Na Elektrodzie jest kilka przykładów importowania skoroszytów do innego skoroszytu. Poszukaj. Wiem o tym, ale nie widziałam nigdzie przykładu pojawienie danych w komórce uruchamia makro. Na elektroda są przykłady kiedy trzeba kliknąć na przycisk, itp.
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...
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?
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
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...
Przetestuj poniższe makro [syntax=vb]Sub kopiuj() Dim shInv As Worksheet Dim shInpt As Worksheet Dim lOstRwDst As Long Dim lOstrwSrc As Long Application.ScreenUpdating = False Set shInv = ActiveWorkbook.Sheets("Inventory") Set shInpt = ActiveWorkbook.Sheets("Input") lOstRwDst = shInv.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row lOstrwSrc = shInpt.Cells(Rows.Count,...
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 ?
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
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...
Tak się dzieje jak kopiujesz z iluś tam skoroszytów i przy każdym kopiowaniu nie czyścisz schowka, widać że kod to jakiś nieudolny "zlepek" z innych kodów. Nie wiem po co ta instrukcja 'if' z licznikiem, jak i tak zawsze 'rows count' wklei za pierwszym razem do a2, jak już musi być ta pętla ze sprawdzaniem tego 0, to przeniósł bym to przy kopiowaniu...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
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 To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Dzięki za zainteresowanie. Jednak w rzeczywistości Arkusz B jest nieedytowalny i nie można w nim odkryć skoroszytu z danymi tak jak w załączonym. Zrobiłem taki arkusz dla przykładu. Jeżeli była by taka możliwość zastosowałbym funkcję WYSZUKAJ.PIONOWO. Tak więc muszę napisać takie makro aby mi pobierało numer z Arkusza A wklejało do Bazy Arkusz B i pobierało...
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...
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...
Super dzieki. probowalem teraz pousuwac zbedne wiersze tj. puste wiersze (takie w ktorych w kolumnie 2 nie ma wartosci). czy cos jest nie tak w ponizszym makrze? Sub usun_wiersze() col_base = 2 row_limit = 1300 f = 0 For x = 45 To row_limit r = x - f If Cells(r, col_base) = "" Then f = f + 1 ActiveSheet.Rows(r).Select Selection.Delete End If Next x...
Dzień dobry, korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z którego komórki są kopiowane i nie umiem tego zastąpić...
Dzięki za odpowiedź, oczywiście troche szukam po elektrodowych postach związanych z podobnymi tematami, jednak każdy problem jest trochę inny. Opis funkcjonalności: Mamy przycisk, zaznaczamy interesujący nas folder, w którym są pliki excel. Makro przeszukuje te pliki, szukając np w kolumnie D liczby '1234', jeżeli w kolumnie D ta liczba jest wpisana...
Witam, Kopiowanie i wklejanie odbywałoby się na poziomie jednego wiersza. Chodzi o makro, które wklejałoby komórki w kolumnach od A-E w taki sposób, że 1) komórki od A-D wklejałby się normalnie 2) Komórka w kolumnie E wklejałby się specjalnie (jako wartości) Czyli jestem w skoroszycie pierwszym, z jakiegoś wybranego wiersza kopiuje sobie komórki z kolumny...
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....
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...
Witam, Mam makro, które kopiuje arkusz1 ze skoroszytu1 do skoroszytu2 jednocześnie zmieniając formuły na wartości. Problem w tym, że po przekopiowaniu, formuły na wartości zmieniane są w skoroszycie1 a nie w skoroszycie2. Kopiowanie arkusza1 uruchamiane jest przyciskiem przypisanym do tego makra znajdującego się na arkuszu1 w skoroszycie1. Jak również...
Rzeczywiście ta linijka [syntax=vbscript] nw = b.Cells(3, 10).(xlUp).Row + 1 [/syntax] nie ma sensu. Skopiowałam z innego kodu robiącego cos podobnego i sama się w tym pogubiłam Zmieniłam deklarację zmiennej b na arkusz otwartego skoroszytu, ale nadal makro nie robi tego co trzeba. Mam wrażenie, że pętla For wgl się nie rozpoczyna. Nie wiem jak ją "zapętlić"...
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,...
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
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...
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...
...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...
Bardzo proszę o pomoc. Muszę skopiować około 400 par arkuszy (złożonych z określonych czterech arkuszy) i utworzyć z nich 400 skoroszytów. Do tej pory nagrałem sobie takie Makro i zmodyfikowałem na potrzeby tych 400 par, ale kod makra jest ogromie długi. Chciałem zrobić pętlę, która korzystałaby z nazw arkuszy umieszczonych w słowniku, ale nie potrafię...
Witam wszystkich Potrzebuje zrobić makro w vba tak by otwierało dowolny plik xlsx. Następnie kopiuje całą zawartość otwartego pliku do tego pliku gdzie jest makro tylko do nowych arkuszy ( no i właśnie w tym miejscu mi się wykrzacza) Poniżej kod [syntax=vb]Sub Makro() Dim pl As Variant Dim plik As Workbook pl = Application.GetOpenFilename() If pl =...
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....
Cześć :) .jestem poczatkujacym a raczej raczkujacym uzytkownikiem VBA.mam ogromną prosbę o pomoc. Chciałabym stworzyć makro, które po wybraniu ODDZIAŁU pozycji w filtrze utworzy nowy skoroszyt z 3 zakladkami jak te w pliku i beda zawierac dane tylko tego oddzialu i zapisze go z nazwa wybranego oddziału. Stworzone tabele w 3 zakladkach sa ukazane na...
Może takie makro zdarzeniowe w module skoroszytu (jeśli ma działać we wszystkich arkuszach) lub w module arkusza (jeśli tylko w jednym arkuszu): [syntax=vbscript]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tval Application.EnableEvents = False If Application.CutCopyMode = xlCopy Then tval = Target Application.Undo...
https://obrazki.elektroda.pl/3994263600_... [syntax=vbscript]ActiveCell.Copy[/syntax... Nie możesz kopiować aktywnej komórki, bo ta znaleziona nie zostaje aktywowana. [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=...
Dziękuję za makro działa bardzo dobrze wymaga jednak małej poprawki. Skoroszyt w którym je zamiesciłem oprócz danych odnośnie towaru w poszczególnych sklepach posiada również inne arkusze dotyczące finansów itd. Po kliknięciu w którykolwiek arkusz makro zaczyna szukać odpowiednich danych. Jeśli klikniemy w sklep, nie ma problemu pobierają się dane....
makro skoroszyt kopiować makro makro kopiujące skoroszyt
wspomaganie mercedes klasa downloader samsung rezonans karoserii
Brak iskry w Piaggio X8 125 2006 po wymianie akumulatora Audi A4 1.8T gaśnie podczas jazdy - możliwe przyczyny