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].
Zakładając, że nagłówek znajduje się w pierwszym wierszu: [syntax=vbscript]Sub WszystkieArkuszeDoJednego() Sheets.Add.Name = "Podsumowanie" Application.ScreenUpdating = False nwp = Sheets("Podsumowanie").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To Sheets.Count Set sh = Sheets(x) If sh.Name <> "Podsumowanie" Then ow = sh.Cells(Rows.Count,...
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...
Spróbuj [syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook PathName = Range("D3").Value Filename = Range("D4").Value ControlFile = ActiveWorkbook.Name wrs = 5 'nazwy arkuszy od "D5" Workbooks.Open Filename:=PathName & Filename Windows(ControlFile).Activate With Sheets("Podsumowanie") Do While .Cells(wrs, 4) <>...
Na forum jest wiele podobnych tematów, poszukaj. P.S. W załączonym pliku nie widać Twojej walki.;)
Czy te 4-ry "kolejne" arkusze należące do jednej grupy "cyfrowej", np.: 0202 (SUMA, WDT, WNT, WŚU) znajdują się jeden za drugim, czy też mogą być porozrzucane pomiędzy innymi arkuszami z innych grup numeracyjnych, np.: 0202SUMA, 0205WDT, 0202WDT, 0203WŚu, itd. ?
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
:D Mam nadzieję, że to nie jest odpowiedź dla mnie. :D Przygotowałem przykład z wysyłaniem mailem wraz z załącznikiem (jak ktoś ma skonfigurowanego outlooka). Można popatrzeć - tylko najlepiej stworzyć jakiś katalog i tam zapisać wcześniej plik. Wtedy też będą się tworzyć w tym katalogu wysyłane załączniki. Oczywiście wcześniej trzeba pozwolić na włączenie...
Jeśli tak to czy mogę prosić o wzór makra? Coś ala [syntax=vbscript]Sub elka() i = 1 With Sheets("Arkusz1") For a = 2 To Sheets.Count Sheets(a).Cells(1, 1) = .Cells(i, 1) i = i + 1 Next End With End Sub[/syntax]
[syntax=vbscript] Sub przenies() Dim Zest As Worksheet, Dest As Worksheet, Ark As Worksheet Dim i&, j&, w&, wd& Set Zest = ThisWorkbook.Sheets("Zestawienie") w = Zest.UsedRange.Rows.Count Application.ScreenUpdating = False For i = 2 To w j = 0 For Each Ark In Worksheets If Ark.Name = Zest.Cells(i, 6) Then j = 1 Next Ark If j = 0 Then...
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
Witam Tu masz odpowiedź http://www.elektroda.pl/rtvforum/topic31... wystarczy zmienić "linijkę"
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
Takie automatyczne kopiowanie możliwe jest tylko poprzez VBA :D Proponuję wykorzystać dla arkusza 1 i 2 prywatne procedury wywoływane zdarzeniami zmian odpowiednio w kolumnie X i L. Przykładowe rozwiązanie w załączonym pliku xlsm :spoko: 864181
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
Tu masz bez 'set b': [syntax=vbscript]Sub KopiujMiesiace() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets(1) Plik = Application.GetOpenFilename Workbooks.Open Plik For x = 1 To Sheets.Count nw = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets(x).Range("A1:B10").Copy a.Range("A" & nw) Next ActiveWorkbook.Close Application.ScreenUpdating...
na przykład, tak: [syntax=vb] Sub myCopy() Dim wb As Workbook, ws As Worksheet Dim ms As Worksheet ara = Array("D3", "C7:C32", "F7:F32") Set ms = ThisWorkbook.ActiveSheet Set wb = Workbooks.Open("43.01") Set ws = wb.Sheets(ms.Name) For Each rng In ara ms.Range(rng).Copy ws.Range(ara) Next End Sub [/syntax]
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
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 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...
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
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ż...
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...
Ale że jak? Jak masz n (ciągła numeracja?) arkuszy to dla każdego 1..n-1 to wykonać? Jedną komórkę czy wiele? Z R2 do R1, czyli wiersz do góry? Samo kopiowanie komórki jest proste z wykorzystaniem zapisu proponowanego przez JVR: Sheets("DATA ENTRY " & s+1).Cells(y,x).value=Sheets("DATA ENTRY " & s).Cells(y,x).value Dołóż do tego odpowiednie pętle i...
Witam, A czy konieczne jest do tego makro i kopiowanie za jego pomocą? Nie lepiej utworzyć tyle arkuszy ile jest krajów np. utworzyć jeden wzorcowy i powielić. Dane pobierać poprzez odwoływanie się do arkusza zbiorczego: - funkcje WYSZUKAJ, PODAJ.POZYCJĘ, PRZESUNIĘCIE Albo jeżeli jest to zawsze ten sam układ danych to zrobić odwołania ręcznie, na stałe.
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... 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 liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
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...
Może być tak, że w przyszłości stworze więcej przycisków i wtedy będę musiał edytować makro Ale chyba nie planujesz robić tego w nieograniczony sposób ? Ilość przycisków zawsze będzie ograniczona, i jeśli utrzymasz w ryzach ich nazewnictwo typu: "Przycisk 1", "Przycisk 2" ... "Przycisk n", to będziesz nad tym panować. wtedy zazwyczaj następują opcje...
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
Dziękuję bardzo za pomoc. Niestety mam 6 plików, po 400 arkuszy każdy i w tym tylko z niektórymi jest problem - ale nie wiadomo z którymi. Czy jest jakiś sposób na rozpoznanie, że to ten arkusz ma zaszyte jakieś dodatki? :-?
Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza Jeśli w plikach z danymi występuje kilka arkuszy :?: to musisz skorygować kod makra wymieniając odpowiedni fragment na: [syntax=vbscript]Do Until Len(Plik) = 0 Licznik = Licznik + 1 Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Worksheets(1)[/syntax]
Dzięki. Już mam. Zamykam temat
Ja z reguły kolorami w arkuszach pomocniczych zaznaczam że formuły w danych komórkach są inne/"niestandardowe" więc trzeba zwrócić uwagę na ich kopiowanie (co nie znaczy że bez kolorów są zawsze takie same (w tym przypadku każdy miesiąc ma inną formułę) Dlatego najlepiej by było gdybyś zrozumiał jak jest stworzony arkusz test35. (tabela start i stop...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Witam ! Przedstawione zadanie jest trudne do rozwiązania (w każdym razie dla mnie :cry: ) ze względu na zawiłości formatowania dat . Przedstawiony przykładowy arkusz stanowi swoiste dzieło "rękodzielnicze" :D - chyba Pan Błażej mocno się nad formatowaniem warunkowym całej tabeli napocił. Żeby tej pracy nie zmarnować - proponuję zatem do założonej funkcjonalności...
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...
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ł
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...
Przeanalizuj, dopasuj: [syntax=vb] Sub nnn() Dim a As Variant Dim i As Integer i = 1 For Each a In Worksheets If a.Name <> "Sheet1" Then Worksheets("Sheet1").Range("A" & i).Value = a.Range("A1").Value i = i + 1 End If Next End Sub [/syntax]
Witam Szanowni forumowicze w załączeniu plik z fikcyjnymi danymi. W arkuszu1 mam dane z których z kolumny C kopiuję do arkusza2 do kolumny A jeżeli spełnione są dwa warunki. Jeden warunek to taki aby zgadzały się indeksy z akrusza1 kolumna B z arkuszem2 kolumna D. Drugi używa pomocniczej kolumny I z arkusza2 i ona ma się zgadzać z danymi z arkusza1...
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ć...
następnie wykonywane jest w tym pliku skomplikowane działanie Na pewno można je z powodzeniem wykonać w VBA. Z drugiej strony: Dlaczego "w kolumnie obok" nie użyjesz tej formuły z "Zeszyt2"? Wydaje mi się, że zamiast opisywać zawartość arkuszy lepiej (wygodniej dla wszystkich) wrzucić plik z przykładem w postaci załącznika na forum :) Szybciej i precyzyjniej...
Witam, sprawdzałam forum ale nie trafiłam na podobne zagadnienie. Czy jest możliwość aby za jednym razem utworzyć wiele (kilkanaście) kopii jednego arkusza w danym skoroszycie? Jest na to jakiś sposób?
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Daj exela arkusze jeszcze.
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
Moje własne próby też nie przyniosły pożądanych rezultatów. Proszę przedstawić. Można porównać do pętli wykorzystanych w http://obrazki.elektroda.pl/8966955000_1... dostosować do sytuacji, dopisać instrukcję warunkową i... gotowe. Proszę zapoznać się z • Pytania dotyczące zagadnień związanych z pakietem Office, Open Office i tym...
Przy założeniu, że arkusz składa się z nazwy stałej i daty, najprostsze makro wygląda mniej-więcej tak: nazwa_stala wpisz swój stały fragment nazwy. Dopisz sobie dodatkowe warunki które będą uwzględniały np. kilkukrotne uruchomienie makra tego samego dnia itp. aby nie wyskakiwały błędy
Witam Stosując poniższą formułę po kliknięciu na przycisk kopiuj działa wszystko OK , ale tylko w wypadku gdy kopiuję z arkusza na którym znajduje się przycisk ( czyli z X1) ! Jeżeli jednak chcę kopiować z innego arkusza (w ostatniej linii wpisuję np. X5) , a przycisk znajduje się na arkuszu X1 - to niestety nie kopiuje z arkusza X5. I w tym momencie...
Witam! W arkuszach google potrzebuje wykonać następującą rzecz. Mam Arkusz1. Wprowadzam dane do przykładowych komórek B3, D2, D5, E7, F5 (taki rodzaj formularza). Potrzebuję skrypt, który po uruchomieniu przeniesie dane z tych komórek do drugiego arkusza (Arkusz2) i zapisze je w pierwszym wolnym wierszu (w odpowiednich kolumnach) a następnie wykasuje...
Sprobuj [syntax=vb]Sub zamowienie() Dim lista As Variant, ostWs As Long Dim kalk As Workbook Set kalk = ThisWorkbook 'Myslim ze tu ma byc wydruk lista = Array("I7", "I9", "L3", "I10", "K33", "J33", "L33") Application.ScreenUpdating = False Workbooks.Open Filename:=("D:\ZEST_ZAM.xlsx") With Sheets("ZEST_ZAM") ostWs = .Range("A" & .Rows.Count).End(xlUp).Row...
Mogę prosić o podpowiedz nigdzie nie mogę znaleźć rozwiązania mojego problemu Kopiowanie arkuszy po ich nazwie z danych z listy
kopiowanie arkuszy nazwą kopiowanie zmiennych arkuszy kopiowanie kilku arkuszy
panasonic świecić czerwona dioda nokia 6303i regulator obrotów wentylatora lm317
kocioł torus economic pralka indesit rezystory
Kasowanie błędów w Opel - wpływ na działanie auta Schemat elektryczny Melex - jak zdobyć?
