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...
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...
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...
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...
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.
Potrzebuję pomocy z plikiem. mam tabelę w arkusz1 te dane chciałbym kopiować. następnie dwa arkusze DANE i DANE2 te strony mają być puste. potrzebuję pomocy w automatyzacji kopiowania zawartości Arkusz1 do kolejnego arkusza począwszy od arkusz4. potrzebuję kopię arkusz1 z wyczyszczoną zawartością komórek .. Kod towaru, nazwa opis, wydana i numer partii...
Witam! Tworzę dokument w OpenOffice Calc w którym po naciśnięciu przycisku tworzy mi się nowy arkusz, który jest kopią innego arkusza... Zrobiłem to poprzez nagranie makra... sub kopiuj_arkusz2 rem ----------------------------------------... rem define variables dim document as object dim dispatcher as object rem ----------------------------------------...
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
Witam, mam do wykonania pewne zadanie, jednak nie bardzo wiem jak się do niego zabrać. Mam pewien skoroszyt który zawiera przykładowo 5 arkuszy (może ich być więcej) pierwszy arkusz jest to stan magazynowy, znajdują się w nim nast. dane: identyfikator | nazwa | cena netto | cena brutto | ilosc w magazynie 1234 | zupka chinska | 1.10zł | 1.20zł | 5 kolejne...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
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))...
Witam, Wiem że ten wątek się przewija co pewien czas, ale nie znalazłem tam potrzebnych mi informacji. Będę wdzięczny za jakieś podpowiedzi. Oto moje problemy: Tworzę coś w rodzaju raportu/ zestawienia podsumowującego kolejne miesiące. Aby to zrobić muszę to tego raportu zaciągnąć dane z pozamykanych plików (ok 30). Każdy z plików ma wiele pozycji (czasem...
[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.
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
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 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
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]
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]
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...
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
[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...
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
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.
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
Mogę prosić o podpowiedz nigdzie nie mogę znaleźć rozwiązania mojego problemu Kopiowanie arkuszy po ich nazwie z danych z listy
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...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Może. Makra mogą być w kodzie arkuszów, kodzie modułów, formularzów i klas Może być wiele, ważną rzeczą jest mieć różne nazwy.
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]...
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].
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ż...
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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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...
Użyłem tego makra we wszystkich od 01.YY do 13.YY i tylko pierwszy skopiował dane. W załączniku przesyłam cały plik, może będzie łatwiej rozwiązać zagadkę Już z tego miejsca pragnę bardzo podziękować za pomoc, ale chciałbym sprawę doprowadzić do końca. tak czy siak nie we wszystkich skoroszytach ci to zadziała musisz trzymać się jednej nazwy arkuszy...
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...
A może wykonać kopię całego skoroszytu? Wtedy autofiltr zostanie. Najeżdża się na dół skoroszytu gdzie są nazwy arkuszy, najeżdża się myszką na arkusz który należy przekopiować, wciska się prawy guzik myszy, wybiera się opcję "przenieś albo kopiuj" i zaznacza się okienko opcji "kopiuj". Wtedy autofiltr pozostanie.
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...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
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...
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ł
Stworzyłem formułę bez konieczności tworzenia kodu VB. Dla poszukujących rozwiązania: Najpierw funkcja =LEWY(A2;ZNAJDŹ(" ";A2;1)-1) funkcja sprawdza nam indeks do momentu spacji. następnie odwzorowanie do funkcji: =JEŻELI(PORÓWNAJ(I2;"4F");A2;JEŻELI(PORÓ...
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...
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,...
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...
Linia Set ws = Worksheets(Worksheets.Count) w nawias wpisz nazwę w cudzysłowie lub indeks 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
Na podstawie tego opisu i makra "do przerobienia" nie sposób odgadnąć co asia.asia ma na myśli i co ma być skopiowane. Same nazwy plików/arkuszy nie wystarczą (wystarczy "zapisz jako") lub copy. MAM PLIK EXCELA - DED i nazwa arkusza "DED" z którego są kopiowane dane. Kopiowanie odbywa się do pliku "DEDD1" nazwa arkusza "DEDD1". Kopiowanie do nazwy...
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...
kopiowanie arkuszy kopiowanie zmiennych arkuszy kopiowanie kilku arkuszy
pikać laptop naprawa panela radia pioneer prestigio android
lampowy wzmacniacz słuchawkowy lampowy wzmacniacz słuchawkowy
Regulacja hamulca ręcznego Citroen C4 B7: mechaniczny i elektryczny Schemat lampy wskaźnikowej EM34 – opis pinów, aplikacja, wartości elementów
