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
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
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]
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.
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
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ż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.
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...
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. 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ż...
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
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...
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 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...
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Ó...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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...
Bardzo dziękuję za pomoc, wszystko działa :). pp1 to nazwa głównego arkusza, który ma być kopiowany, nazwę taką ustawiłem ręcznie.
I jak tu nie wierzyć w 13-go ... nikt się nie odezwał ... "Pomysł" porzucony ?
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...
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...
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...
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, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
[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,...
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...
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...
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...
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...
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.
Jak już pisałem, plik zrobiony był jakiś czas temu. Dzisiaj pewnie bym to uprościł. Zapuść krokowo Np makro "Filtr1" i obserwuj co się dzieje. Kluczowe jest kopiowanie listy z kolumny AA do ukrytego arkusza "Arkusz3" gdzie odbywa się "układanie" list i przypisywanie do nazwy. Fakt, trochę by tam trzeba pozmieniać.
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
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ść...
Witam, Potrzebuje napisać makro, ktore bedzie mialo dwie pętle. Pierwsza pobierać nazwy z nagłówka kolumn, kopiować je, przechodzic do nastepnego arkusza, tam druga pętla bedzię szukała wartośc pobranej z pierwszego arkusza, czyli nazwy kolumny. jesli znajdzie taką samą nazwe kolumny to kopiuje nagłówek z całą zawartością kolumny i wkleja ją do pierwszego...
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,...
Moje rozwiązanie: - zrób kopię pliku "Budynki", - otwórz plik kopii budynków i "Analizy" - zmniejsz okna otwartych już plików tak aby były widoczne dwa na jednym ekranie - metodą przeciągnij i upuść, przeżuć zakładki które potrzeba to pliku "Analizy" To rozwiązanie nie przejdzie ponieważ ja chcę, żeby program automatycznie, po użyciu skrótu klawiszowego,...
Witam, Moja pierwsza prośba o pomoc. Mam bardzo stary plik Excela a w nim 1300 arkuszy i coraz częściej coś się psuje. Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( całych z danymi i funkcjami itp.). Nazwa arkusza to Nr rejestracyjny z listy. Bardzo dziękuję za jakąkolwiek pomoc w tym temacie. Zupełnie...
Chodzi o tę drugą pętlę? Wtedy Kod: vbscript Rozwiń Zaznacz wszystko Kopiuj do schowka If Cells(wiersz, 4) > 99 Then .Cells(wwrs, 4) = Cells(wiersz, 4) itd Raczej musi być przy tym warunku wiersz wpisany na stałe If Cells(128, 4) > 99, bo pętla rusza od 129 I tak zapytam autora po co te dwie pętle? i co jest w N? (nr wiersza czy nazwa arkusza chodzi...
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...
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:...
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ć....
Zmieniłem nieco koncepcję. Kopiowany jest ukryty arkusz "Wzór", automatycznie przypisywana nazwa i zapisywana w zestawieniu. Dopracuj, jeśli odpowiada Ci takie rozwiązanie.
Hej, próbuje zrobić narzędzie które będzie mi eksportować dane z jednego pliku to kilku. W kolumnie A: nazwa pliku do którego kopiuje W kolumnie B: ścieżka tego pliku W kolumnie C: arkusz docelowy W kolumnie E: nazwa pliku z którego kopiuje W kolumnie F: ścieżka W kolumnie G: arkusz wyjściowy W kolumnie H: szukana wartość W kolumnie I: kolumna w której...
W skoroszycie, z którego będę kopiował jest 1600 arkuszy o określonych nazwach, które składają się z czterocyfrowej liczby (w przypadku liczb do 999 dodawane jest 0 z przodu) oraz kodu literowego. Liczby nie są kolejne, mogą znajdować się w dodatkowej tabeli, a kodów jest 4 rodzaje: SUMA WDT WNT WŚU Czyli 400 liczb po 4 kody czyli 1600 arkuszy. W nazwie...
Załącz plik z przykładowymi danymi (wystarczy kilka arkuszy, nie 180) i wpisz odręcznie, jak ma wyglądać oczekiwany wynik po skopiowaniu z 2-3 arkuszy. Chodzi o to od której komórki mają być wklejane dane, czy to są czyste dane (format ogólny), czy zawierają jakieś formatowanie, czy może są tam formuły? Czy 10 cyfr to faktycznie 10 cyfr czy 10 liczb?...
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...
Witam Mam problem. Chciałbym by Arkusze w Excelu kopiowały się z "szablonowego" arkusza według nazwy (np data) którą wpiszę w pewnej komórce w Arkuszu nr1. Np: Arkusz nr1 zawiera komórki od A1 do A10 w które będą wpisywane daty. Arkusz_szablon zawiera strukturę dokumentu który należy uzupełnić w określonym dniu Arkusz "data" - arkusz duplikowany z Arkusza_szablon...
Może coś w numerach kolumn się poprzesuwalo... Jak będzie problem, to podeślij kawałek tego arkusza. Napisz też jeśli chcialbys, zeby zliczal to bez uzupelnionych nazw w arkuszu podsumowania .
Witam wszystkich Mam problem z małym kodem vba do kopiowania arkuszy w tym samym pliku. Posiadam arkusz Szablon. Po jego uzupełnieniu przy kliknięciu na button chciał bym, żeby cały arkusz Szablon kopiował się do nowego arkusza, którego nazwa będzie podana w komórce P1 (jest to nazwa miesiąca). Próbowałem kilku sposobów, ale nie chciało mi skopiować...
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.
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
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Sheets("arkusz2").Select To jest trochę zaskakujące, że nie działa przełącznik do Arkusz2. W mojej wersji nie jest ważne z dużych lub małych liter nazwy arkusza
Odpada, te arkusze znajdują się w różnych miejscach skoroszytu, mają różne nazwy i trafiają w różne miejsca docelowe. Polecenie "Przenieś lub kopiuj" wystarcza, tylko chciałam, żeby je obsłużyć od A do Z z klawiatury, nie potrafię wywołać menu z nim lub tego polecenia bezpośrednio, reszta działa. Ewentualnie może jest jakiś "stary" skrót bezpośrednio...
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 Zastanawiam się czy jest możliwość, aby makro skopiowało mi tyle arkuszy ile jest wypełnionych wierszy w arkuszu głównym. Dokładnie chodzi o to, że mam arkusz "Dane", w którym są podane pewne informacje dot. klientów (1 klient=1 wiersz) oraz arkusz "1", w którym są formuły pobierające dane z arkusza "Dane" z 3 wiersza (dane 1 klienta). Po dopisaniu...
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:...
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...
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
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?
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...
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Powiem tak na szybko: :) Znaj moje dobre serce :) W załączeni przykład z różnymi układami. Wybierz który ci pasuje ewentualnie połącz w jedno. Ponieważ jest możliwość wielu wystąpień jednego tematu na chwilę obecną nie wiem jak to ugryźć bez wiersza pomocniczego (wiersz 2 - ukryty w arkuszu1 [komórka kopiowana w bok - w prawo]) I druga rzecz w w funkcji...
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
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].
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...
[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...
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")
Można to zrobić na wiele sposobów - mniej lub bardziej elegancko. Np. obszary danych w arkuszach źródłowych oznaczasz nazwami, powiedzmy Z1_A1, Z1_A2, Z1_A3, Z2_A4, Z2_A5, Z2_A6 (zaznaczyć obszar, później Wstaw/Nazwa/Definiuj). Tworzysz pusty skoroszyt Zeszyt3.xls z arkuszami Arkusz1 .. Arkusz6. W kolejnych arkuszach wstawiasz w pierwszej komórce obszaru...
Proponuję rozwiązanie jak w załączniku. Najwygodniej będzie nazwać używane zakresy: użyłem nazwy "lista" na określenie kolumny nazwisk (długość listy trzeba dopasować do potrzeb - edycja w Menedżerze nazw), "dane" to zakres danych liczbowych - w przykładzie zaczyna się w komórce C4 arkusza "dane", "rok" to oznaczenie roku, które umieściłem w komórce...
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...
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 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...
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.
W przykładzie adres komórki z listą był zapisany na stałe, teraz zmieniłem tak, że można kopiować komórkę z listą rozwijaną. Wszystkie formuły widać w arkuszu. Tak jak pisałem dwie nazwy zdefiniowane: lista i nazwa są w Menedżerze nazw. Inne nazwy w Menedżerze należą do tej drugiej liisty.
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Odwołanie, tak aby przy zmianie danych w kolumnie pierwszego arkusza, zmieniały się dane w komórkach A1. Nazwy arkuszy: Arkusz pierwszy: "zestawienie" w tym są dane do kopiowania kolejne arkusze: 9A 01, 9A 02 itd do 9A 120. Czy tworzenie takiego makra nie jest bardziej pracochłonne od ręcznego wstawiania odwołania w każdym arkuszu?
Witam, Dziękuję za pomoc. Niestety makro wykrzacza mi się na linii: "If Sheets(wybor) Is Nothing Then" i dodaje za każdym razem nowy arkusz. Nie do końca też rozumiem do czego służą dodatkowe arkusze z nazwami kolekcji. Czy mają jakieś znaczenie? Generalnie chodziło mi tylko o kopiowanie do już istniejącego arkusza wskazanych kolumn. Jeśli to możliwe...
witam mam problem a przyznam że makr/vba do tej pory nie używałem mam raporty które generują się codziennie, w zależności od miesiąca 30-31 raportów jeden raport składa się z 3 arkuszy, nazwy arkuszy są niezmienne, chciałbym automatycznie kopiować całą zawartość wierszy które w 2 kolumnach spełniają różne warunki. dodatkowa trudnosc jest taka ze 1 warunek...
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...
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,...
Człowieku Ty jesteś jakimś magikiem normalnie!!!! dzięki - działa perfekto, jeszcze tylko jednej drobnej jak sądzę poprawki potrzebuje. W ty, nowym pliku xls przydałoby się podmienić nazwę (obecnie kopiuje z pierwotnego xlsx) na np "Arkusz1". I tak sobie myślę, przy przenoszeniu do nowego pliku xlsx kopiuje całość - a mógłby kopiować tylko to co jest...
Trzeba uzupełnić pętlę... Rozumiem, że wartość w kolumnie B będzie odpowiadała nazwie arkusza: Sheets(cells(A,2).value) Byłoby łatwiej, gdybyś wrzucił plik z przykładowymi danymi w arkuszu "Buchen". Pytanie dodatkowe: czy w arkuszach docelowych dane mają być dokładane narastająco, czy nadpisywane przy każdym uruchomieniu makra? P.S. Pliki xlsm należy...
W każdym wierszu, mogą się powtarzać. Docelowo będzie w folderze 30-31 plików i z każdego ma pobrać mi dane do jednego arkusza i to na chwilę obecną robi, ale ma dodać do arkusza w którym bedą wszystkie dane dwie kolumny do których będzie pobierać z nazw plików daty i numer. Czy w Twojej propozycji w zmiennej S mogę wrzucić scieżkę do folderu aby otwierał...
Witam Problem mam taki ze chciałbym aby poprzez kliknięcie przycisku excel skopiowały arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Drugiego dnia excel miałby robić to samo (kopiuje arkusz) ale już tylko nadpisuje plik który stworzył wczoraj...
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie chciałbym drukować wszystkiego. Jeden arkusz to jeden plik pdf. kod,...
Ctr+PgUp (karta na lewo) i Ctrl_PgDn (karta na prawo) Tak na marginesie, po co chcesz kopiować arkusze excela do worda ?
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...
U mnie bez kolumn pomocniczych, za to z nazwami (żeby łatwiej można ogarnąć formułę). Dane - to zakres danych źródłowych, numkol, numwie, numer - formuły pomocnicze, formuła kolnr zawiera adres początku zakresu wynikowego w formie adresu mieszanego, w tym przypadku [syntax=text]F$2:F2[/syntax]Formuła finalna w arkuszu jest formułą zwykłą, którą można...
Ok, czyli przeciągając formule w dół, wyszuka mi nazwy towaru z kolumny 1 i przyporzadkuje odpowiednie wartości z arkusza "BAZA"?
Hehe no to teraz zamieszałeś:) czyli chcesz, żeby poza tymi 4 zakładkami (które są kryteriami filtrowania) utworzyć dwie dodatkowe zakładki "ważne" i "mniej_ważne"? O co chodzi z tym nowym skoroszytem? PS: skoroszyt to nowy plik, natomiast arkusz to zakładka:) tak dla jasności:) Najlepiej po kolei napisz w jakie mają być skoroszyty i jakie mają zawierać...
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ć:...
Witam wszystkich, Mam problem, którego nie potrafię rozwiązać (wiele dni szukałem rozwiązania w internecie, ale nie znalazłem albo nie potrafiłem podanych rozwiązań powiązać z moim problemem). Chodzi o metodę wygenerowania obciążenia pomieszczeń na podstawie arkusza wyjściowego "Arkusz 1". Dane w arkuszu pierwszym to: nazwa grupy (np. Grupa A), Przydziału...
Dzień dobry, Bardzo zaszyfrowany ten Pana przykład. Ale nie rozumiem dlaczego ma Pan problem z nazwami kolumn. Mnie się wydaje, że te formuły, których Pan używa trawią dobrze nazwy kolumn wpisane do komórek. Nawet nie trzeba, by były formalnie nazwami. Natomiast sposób, który Panu proponowałem jest pokazany w kolumnach BP i BQ. Tu już nazwy muszą być...
kopiować nazwa arkusz kopiować arkusz arkusz nazwa
wymiana poduszki silnika renault wykrywacz złota huawei unlock
zmywarka przesuwa nierówna praca silnika benzyna
Zaparowanie tłoka w DeLonghi ESAM 5500: przyczyny i rozwiązania Migająca kontrolka Start w Samsung CE287DN - przyczyny i rozwiązania