Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
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:...
Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Najpierw sprawdź jaki masz arkusz normowy w interesującym cię projekcie: opcje>projekty>nazwa_twojego_projektu>za... arkusz normowy - tu sprawdzisz ścieżkę do arkusza, którego kopię będziesz robił potem programy narzędziowe>dane zasadnicze>arkusz normowy>kopiuj wybierz arkusz normowy i nadaj nazwę jego kopii kopia się otworzy...
Czyli algorytm mniej więcej taki: 1. Wyszukujesz ostatni arkusz i zapamiętujesz jego nazwę w zmiennej tekstowej, np Src. Metoda wyszukania dowolna, arkuszy jest zwykle nie tak dużo, można przejrzeć w pętli wszystkie. 2. Tworzysz w zmiennej np Dst nazwę nowego arkusza i tworzysz arkusz z taką nazwą: Sheets.Add.Name = Dst 3. Kopiujesz dane z jednego arkusza...
Mogę prosić o podpowiedz nigdzie nie mogę znaleźć rozwiązania mojego problemu Kopiowanie arkuszy po ich nazwie z danych z listy
Możliwe, że pytanie banalne, ale nie sformułowane w jasny sposób. Co rozumiesz pod pojęciami "menu arkusza" i "aktywować tylko nazwę"? Jeżeli chodzi o przechodzenie między arkuszami to Ctrl+PGUp lub Ctrl+PgDn
Dzięki adamas_nt za super pomoc. Mam niestety jeszcze jeden, a w sumie dwa problemy. Niby wszystko działa ale po kilkukrotnym użyciu BUCHEN przestaje działać funkcja CLEAR z Makra. Nie wiem dlaczego. Czy jet to zależne od pętli ? Drugim problemem jest brak możliwości filtrowania wyników w poszczególnych arkuszach. Niby w makrze dopisałem Kod AllowFiltering...
Jeżeli zdefiniuje nazwę danych to przy ich kopiowaniu, nazwa arkusza nie ma znaczenia. Przykład: jeden arkusz nazywam x a drugi y. Warkuszu x wprowadzam dane a analogiczne pojawiaja się w arkuszu y. Definiuje nazwe zakresu danych (nie B:B ) tylko np. dane1 a w arkuszu y wprowadzam formułke: odwołanie.xls!dane1. Przykład w załaczniku
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
Można to zrobić również formułami. Kluczową sprawą jest odczytanie numeru wagonu z nazwy arkusza, bo - o ile mogłem się zorientować - nigdzie w arkuszu nie jest ona wpisana. Jest to wyliczone w komórce D2. Oczywiście postać formuły jest dostosowana do nazw używanych w skoroszycie. Potem, gdy mamy już numer wagonu, dalej wystarczy WYSZUKAJ.PIONOWO (komórka...
Witam Chodzi o to podam przykład działania makra Z Arkusza kraje1 program kopiuje nazwę jednego kraju z listy- pierwszego i wstawia nazwę tego kraju w komórkę J1 w arkuszu Dane1, następnie kopiuje dane do 2 arkuszy , następnie przechodzi do następnego kraju z listy drugiego i wstawia nazwę w komórkę J1 (kasując poprzednia) dane się przeliczają dla drugiego...
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ł
Jeżeli chcesz się dalej uczyć to proponuję kolejne ćwiczenie: zrób to samo wyciągając parametry kopiowanych obszarów do pomocniczego arkusza sterującego, tu lepsza będzie pętka do while po wszystkich niepustych wierszach arkusza pomocniczego. Czyli wpisujesz w 1 wierszu nazwę arkusza (np w A2) i nazwę obszaru (np w B2 => I1:I), a potem kopiujesz: [syntax=vbscript]...
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Dzięki, makro jest bardzo dobre. Niestety przeszukuje tylko ten arkusz w którym je uruchomię. Bardzo proszę o jeszcze jedną modyfikację: Aby makro przeszukało arkusz pierwszy o nazwie 2010, później arkusz drugi o nazwie 2011 i arkusz trzeci o nazwie 2012. Po przeszukaniu każdego arkusza niech kopiuje wiersze jeden pod drugim do arkusza o nazwie RAZEM,...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Jeśli liczysz na konkretną pomoc :?: - to winieneś załączyć swój przykładowy plik z odpowiednio opisanym arkuszem źródłowym i arkuszem docelowym :idea: Wcześniej możesz przeanalizować zasoby naszego forum w zakresie importu lub eksportu danych z jednego arkusza do drugiego :idea:
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Przepraszam, mój błąd :( poprawiłam komórkę Z1 i działa :) dziękuję :) Skoro tak dobrze poszło, to chciałabym jeszcze skomplikować... Ten sam przycisk aby: - generował dodatkowo pdf z arkusza 2 i arkusza3 (nadając im nazwy opisane w kom. Z1 poszczególnych arkuszy) - kopiował arkusz 4 w formacie .xlsm z nazwą wskazaną w kom. Z1 tego arkusza - wszystko...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Witam ponownie i dziękuje bardzo za pomoc. Więc tak jak pisałem wcześniej z arkuszy o nazwie zmiana1 , 2 , 3 chciałbym aby się kopiowało automatycznie nie zależnie kiedy go się odtworzy do arkusza o nazwie podsumowanie w zakresie np. od D1:U5000, tak jak w załączonym arkuszu, oczywiście do arkusza podsumowanie kopiowałem ręcznie. Kod który podesłał...
Linia Set ws = Worksheets(Worksheets.Count) w nawias wpisz nazwę w cudzysłowie lub indeks arkusza.
Makra włączone? Może problem z nazwa/indeks. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo byk If Target.Column = 1 Then Sheets(Trim(Str(Target.Row... = Target.Value End If Exit Sub byk: If Target.Value <> "" Then MsgBox "Brak arkusza o...
Witam wszystkich. Potrzebuję napisać macro, w którym: 1. Z Arkusza początkowego kopiuje wartości (nazwy dostawców) do osobnego Arkusza. 2. Przycina te wartości do wskazanej ilości znaków (tak, żeby mogły stanowić nazwę Arkusza). 3. Otrzymany wynik zwraca do pierwszego Arkusza w miejsce oryginalnych wartości. 4. Wracamy do nowego arkusza, w którym nazwy...
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...
Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...
hallo, tak próbowałem dziękuje... pokazuje błąd w zapisie "Selection.AutoFill Destination:=Range("A" & pw & ":A" & pw + ow - 1), Type:=xlFill" Kopiuje tylko nazwę 2 arkusza.
Być może było to: Sheets("rejestr").range("N1") = Target.Row ale nazwy arkuszy może mieć symbole narodowe (ś, Ł, ó itp), że w redaktorze WBA nie mógł napisać. W menedżera nazew zadałem nazwę dla komorki N1 'wiersz', które następnie mogą być używane w formule
Masz rację, zmieniłam na kopiowanie od 2 wiersza. Docelowo w kolumnie I w pliku bazowym będą wagi, w jaki sposób mogę podsumować kolumnę I w każdym aktywnym arkuszu- od arkusza o nazwie"1" do ostatniego?
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...
Wielkie dzięki Marcin, makro działa :) W trakcie prac nad plikiem pojawił mi się nowy problem. Plik NOWY zawiera nową wersję jednego z arkuszy znajdujących się w pliku STARY, kopiuję ten arkusz (ze zmienioną nazwą) do pliku STARY, makro dostosowuje mi m.in.formuły w innych arkuszach pliku STARY do aktualnej wersji, ale... problem polega na tym, że nowy...
Arkuszy jest około 100 - 150 Trzeba skopiować wiele arkuszy, lub po prostu wśród nich znaleźć arkusza o tej samej nazwie?
Spróbuj w ten sposób. W C2 wklej =SUMA.JEŻELI(ADR.POŚR("' "&C$1&"'!B$3:B$181"... "&C$1&"'!AH$3:AH$181"... i możesz kopiować we wszystkie strony. Jest jeden kłopot. Nazwy arkuszy rozpoczynają się od spacji, w nagłówkach jest różnie. W formule przyjąłem, że spacja jest...
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Witam ponownie mam jeszcze jedną prośbę jak zrobić takie makro, postaram się wytłumaczyć. Ogólnie mówiąc chciałbym żeby na początku makro sprawdzało czy w arkuszu 1 w komórce C2 znajduje się wartość jeżeli tak to tworzy nowy arkusz z tą nazwą i kopiuje zawartość z Arkusza 2 od A1:H7. Następnie skopiowane wartości porównuje - Arkusz 1 wartości od A3...
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Arkusz2 to nazwa arkusza w VBA, nie zakładki w Excelu. Albo wpisz tam swoją poprawną nazwę, albo zastąp przez Sheets("nazwa_arkusza_w_excelu")
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...
Chciałbym mieć formułę lub makro, które pozwoliłoby mi wyszukać w kolumnie A prawidłową nazwę przedmiotu na podstawie czterech pierwszych znaków w innym arkuszu
LibreOffice Calc miałem, nie ruszyło. Chyba czas się przesiąść na Offica Makro ładnie działa w Excelu, tylko że w momencie jak wpiszę cokolwiek w drugim arkuszu pliku, to już nie hula :/ Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza, lub arkusza o konkretnej nazwie jeśli w każdym pliku nazwy arkuszy...
Witam A nie lepiej zamiast tworzyć nowy , kopiować cały poprzedni arkusz i zmienić mu tylko nazwę?
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Jeśli chcesz mieć te listy w osobnych arkuszach, to można to zrobić np. formułami tak jak w załączonych plikach. Są tam dwa warianty rozwiązania. W pliku z numerem 1 wariant z odczytem nazwy arkusza (w komórce D1) i odszukiwaniem położenia tej nazwy w tabeli źródłowej. W tym wariancie kolejność nazwisk może być dowolna, byle się dokładnie zgadzała nazwa...
Witajcie, Czy ktoś pomoże mi stworzyć makro, które wyszukuje wszystkie listy rozwijane w pliku Excel (wszystkie arkusze) a następnie kopiuje do nowej zakładki każdą wartość z "listy" oraz dodaje nazwę range. Przykład w załączeniu... Dzięki.
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Najprościej pominiesz kolumnę robiąc nie jedno ale dwa kopiowania. Oddzielnie kawełek przed pominiętą kolumną, oddzielnie po. Pomiędzy jednym a drugim kopiowaniem trzeba przesunąć np. offsetem początek obszaru docelowego o kilka komórek w prawo, żeby dobrze trafiało. A żeby skopiować za jednym razem to rzeczywiście trzeba trochę przerobić. Makro powinno...
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
Ta formuła wyszła dość ciężka, może ktoś wymyśli jakieś uproszczenie. Przez wprowadzenie nazw można by było skrócić zapis, ale czas przeliczania się nie zmieni. W bloku dotyczącym dnia 27.04.2020 formuły zawierają odwołania do danych z kolumny F. Te formuły można kopiować w ramach tego bloku. Gdyby chcieć utworzyć z tego nowy blok, należałoby jedną...
Witam, dopiero zaczynam swoją przygodę z VBA. Potrzebuję podpiąć pod przycisk funkcjonalność, która będzie kopiowała dane z jednego skoroszytu i wklejała go do innego. Obecnie udało mi się stworzyć kawałek kodu, który to robi ale mam problem z formatowaniem. Private Sub cbImportModelu_Click() Workbooks.Open Filename:=tbLokalizacjaPliku (użytkownik wprowadza...
Cześć! Jestem totalnie zielony w kwestii Makra w Excelu, a potrzebuję zrobić coś takiego: OPIS: Plik kalkulacyjny zawiera arkusze: 1) Arkusz o nazwie "ZADANIA ALL" - W tym arkuszu znajduje się tabela z kolumnami: A - lp B - Osoba odpowiedzialna -> każda komórka w tej kolumnie jest imieniem i nazwiskiem wybieranym z listy rozwijanej ( osób jest 8) C...
Witajcie mam następujący problem. Chciałbym aby macro tworzyło tabelę przestawną (tak jak w załączonym pliku), a następnie filtrowało po kolei każdy kraj do końca i wszystkie dane dotyczące danego kraju kopiowało do nowego arkusza o nazwie danego kraju.(Macro zawsze powinno tworzyć tyle arkuszy ile pojawiło się rożnych krajów) Dla każdego kraju jest...
(at)maciejgonet, dzięki wielkie, kod działa. Poprzednio zastosowałem taką samą metodę, ale nie byłem pewny jej poprawności, bo wyskakiwały błędy. Teraz wiem, że było to spowodowane błędem w nazwie jednego z arkuszy. (at)kinggustav, wszystko jest odpowiednio rozplanowane ;)
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
Robiłem kiedyś na swoje potrzeby taki pliczek, udostępniam go w załączniku. Zakłada on, że wszystkie pliki mają jednakowy układ i format treści. Kopiuje całe wiersze do zakładki "Wyniki". W żółtych polach podaje mu się dane do pracy, takie jak: - ścieżka do katalogu z plikami źródłowymi, - rozszerzenie plików które mają zostać wyszukane w tym katalogu,...
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...
Nie mogę posłużyć się konkretną nazwą skoroszytu, ponieważ co miesiąc będzie ona inna [syntax=vbscript]Sheets(1)[/syntax] zamiast nazwy arkusza podajesz jego indeks w skoroszycie.
Wszystko fajnie tylko zaś nie działa to iż w nazwie arkusza powinna być dzisiejsza data. A wykonuje mi to że nazwa arkusza to WZÓR(2) i jest wszystko skopiowane a ja nie chcę WZÓR(2) tylko dzisiejszą datę. ------------------ OK ZROBIŁEM TAK: [syntax=vb] Sub Kopiowanie() ActiveWorkbook.Sheets("WZÓR").Copy after:=Worksheets(ActiveSheet.Name) nazwa = Format(Date,...
Excel-pliki(tam de rożne osoby wypelniają własne dane ) mają tylko jeden arkusz? jako makro musi znać nazwę "źródła". "Źródło" w tym samym folderze co reszta plików?
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Plik, który zmienia nazwę to plik z którego kopiujemy dane - Zlecenie prac na formie wtryskowej. Plik z arkuszem Import nie zmienia nazwy nigdy. W tym pliku wklejamy tylko komórki od S6:V6 z każdego jednego arkusza 1,2,3... z pliku Zlecenie prac na formie wtryskowej. Mam nadzieję, że jest jaśniej.
Dopisuję się do pytania :) Dlaczego nie wykorzystać wbudowanych narzędzi Windowsa lub Excela? Np: zaznacz pierwszy arkusz, naciśnij i przytrzymaj klawisz [Schift], zaznacz ostatni, prawym pm w dowolną zakładkę (nazwę) arkusza, z menu wybierz [Kopiuj], w okienku wybierasz nowy lub docelowy plik, zaznaczasz opcję [utwórz kopię], klikasz [OK] i gotowe....
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
Twój kod - nie będę się wtrącał. wg mnie wystarczy dodać nazwę arkusza przed cells żeby było pewne skąd pobiera się x czyli: x = Arkusz.cells(1,1).value A może wystarczy usunąć cudzysłowy z cells("1,1") - bo u mnie cos takiego nie zadziała.
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ę.
:) Nic nie zaznaczaj, przeczytałem po ludzkiemu kod makra. Jeżeli w tym arkuszu w którym masz przycisk w komórce A1 wpiszesz nazwę arkusza np: X5 To twój kod z moją pierwszą linią Sheets(ActiveSheet.Range("A1") .Value ).Select Range("D6:H10").Select Selection.Copy Sheets("X2").Select ActiveSheet.Cells(6, 4).Select ActiveSheet.Paste Sheets("X1").Select...
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
Wszystko się da, no ok prawie wszystko. :) Kolumny są oznaczane w Excelu literą lub numerem, więc jeżeli chcesz je kopiować to nie widzę problemu. Wystarczy opanować metodę range.Copy. Jeżeli musi to być po nazwie to zapisz gdzieś (inny arkusz?) listę nazw w pętli i rób range.Find w wierszu w którym są zapisane nazwy i pobierz Column znalezionej komórki...
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...
[syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook Sheets("Podsumowanie").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(2)....
Widzę, że należysz do koła kopiuj/wklej. Życzę powodzenia. Gdzie w powyższym kodzie msz zapytanie z #1??? Heh...
wyobrażałem sobie to w ten sposób, że: a) ścieżki dostępu do poszczególnych plików wymienionych z nazwy w kolumnie 'B' będą zlokalizowane już w kodzie, domyślnie będzie to np. C:\A.xls dla wszystkich ID z kolumny B o nazwie "A", C:\B.xls dla wszystkich ID z kolumny B o nazwie "B". Pliki te będą miały zawsze jedną lokalizację. b) nazwy arkuszy, poszczególnych...
Do komórek kazdego arkusza (ArkuszX) możesz się odwołać poprzez Sheets("ArkuszX").Cells(yy,xx). Dopóki identyfikacja po nazwie lub numerze arkusza ci wystarcza nie musisz go zapamiętywać w zmiennej.
Najprościej: Nazwij zakres (nadaj nazwę Np "zakres") w arkuszu. Wstawienie lub usunięcie wiersza/komórek wewnątrz zdefiniowanego zakresu spowoduje automatyczną korektę jego rozmiaru. Wtedy[syntax=vb]If Not Intersect(Target, Range("zakres")) Is Nothing Then[/syntax]
Moja propozycja wygląda tak - klikasz dowolną komórkę w rzędzie opisującym dane zlecenie, klikasz przycisk. Makro kopiuje wszystkie cztery pozycje z aktualnie wybranego rzędu do arkusza o nazwie formularz w odpowiednie miejsca.
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
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...
Witamy Na pewno da się. Załącz plik z przykładem i danymi wpisanymi ręcznie, z opisem dlaczego i na jakich zasadach. Koniecznie w oryginalnym układzie danych. czy raport kasowy (RK) zawsze występuje jako osobny (jak wynika z opisu) arkusz z unormowaną nazwą?
Nazwę pliku(ów, w zależności ile ich zaznaczysz) masz w zmiennej vrtSelectedItem . Nic nie stoi na przeszkodzie aby przypisać ją do zmiennej obiektowej, otworzyć plik, skopiować co trzeba i zamknąć. Podpowiem trochę If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems Set wkb = Workbooks.Open(vrtSelectedItem) 'gdzieś tu powinna być...
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.
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
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ść...
próbowałem najpierw wkleić kod Gdzie próbowałeś wkleić kod? Zobacz w projekcie makra, że kod jest "bezpośrednio" w arkuszu a nie w module. U mnie działa: Nowy arkusz, wstawiam wykres, kopiuje kod makra do arkusza (nie do modułu) i zmieniam wartość w tabeli ... tatam. Na marginesie jeżeli już masz "coś" w tym arkuszu w którym chcesz ten kod wykorzystać:...
Mam kolejne pytanie, ponieważ mam plik w którym mam w 1 pliku 3 arkusze: "powietrze", "powierzchnie", "podłogi". w których mam tabele od kolumny B do kolumny M od wiersza 4. W tych tabelach w kolumnie I działa formatowanie warunkowe, które zaznacza komórkę jak wystąpią dane słowa zaczynające się od "Escherichia" "Staphylococcus" "Candida". Czy jest...
Najprościej: U dołu ekranu, na zakładce z nazwą arkusza kliknij prawym p.m. i wybierz: wyświetl kod arkusza. Po otwarciu edytora wklej...
Witam, prosze o pomoc w utworzeniu makra, które bedzie kopiowało zakres danych z arkusza X do dowolnego arkusza np Y. Problem w tym że zakres danych z arkusza X jest przefiltrowany - dwoma warunkami po nazwie sklepu i po miejscowości. Chciałbym aby makro przekopiowało zakres już przefiltrowany do nowego arkusza Y. Moje makro kopiuje zakres danych ukrytych...
zachowaj pod inną nazwą. Usuń plik sch. Wtedy zniszczy powiązanie i normalnie mozesz kopiować płytki na arkuszu.
Nie do końca chyba rozumiem: 1. Chcesz mieć w każdym arkuszu w kolumnie E w ostatnim wierszu zsumowane powyższe wiersze z kolumny E? i Np wypełnienie czerwone? 2. Chcesz, żeby dane z filtrowania "księgowość" i "inne" były zapisane w aktualnym arkuszu w różnych zakładkach, natomiast dane z filtrowania po "wdrożeń" i "elita" były zapisane do oddzielnego...
Korzystam z formuły sumującej dane dla konkretnego miesiąca czyli w arkuszu "lipiec - suma" (arkusz podsumowujący) mam formułę: suma('lipiec - suma :lipiec (1)'!H1), która sumuje mi wszystkie dane z pól H1 z zakresu wszystkich arkuszy pomiędzy "lipiec - suma" i "lipiec (1)". Ponieważ tworzę arkusz "lipiec-suma" na samym początku miesiąca (potrzebuję...
Mój poziom znajomości VBA przyznam wam się jest na poziomie zero! Nie wiem czy jest to możliwe, jeśli nie jest trudno dałem plamę na cła Polskę, a kto wie może i na cały świat. Zaryzykuje i za pytam. Czy jest możliwe podanie w exelu w podanie określonych danych w exelu: 1. określonej ścieżki w jakieś komórce exela i makro pobiera sobie tą ścieżkę i...
Witam, Nie mogę sobie poradzić z problematycznie nazwanym arkuszem. Otóż wyciągam dane z pliku A i kopiuje je do pliku B. Problem polega na tym, że jeden z arkuszy ma nazwę z literą "è" a muszę wykorzystać przypisanie: set ab = b.sheets(xxx) - i tu w miejscu xxx powinna być nazwa tego arkusza. w VBA nie mogę wpisać tego znaku, bo wyskakuje "?"....
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
Można. Służy temu instrukcja Call. Przykład:[syntax=vb]Sub Przycisk() Call Makro1 Call Makro2 End Sub[/syntax]Makra umieść w module standardowym. Będą działać w aktywnym arkuszu. Jeśli ma być inaczej musisz adresować precyzyjnie (z nazwą arkusza). Sheets("Nazwa").Cells(wiersz, kolumna)
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
kopiowanie arkuszy kopiowanie zmiennych arkuszy kopiowanie kilku arkuszy
spawarka garażowa czcionka chrome płyta indukcyjna zelmer
citroen bezpiecznik spryskiwacz napięcie szczotki szlifierki
Renault Thalia 1.4 8V - Zimne powietrze z nawiewów Błąd A53: Temperatura poza zakresem w systemach Carrier