3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
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ż...
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie.
Czyli makro ma nie tworzyć nowego skoroszytu? :>
mogl by mi ktos pomoc Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma...
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
To trzeba takie napisać. Opis problemu jest niewystarczający, żeby pomóc w jakikolwiek sposób - po tym opisie nie można ustalić co i skąd ma to makro kopiować i do którego skoroszytu i w jakie miejsce. W zasadzie to potrzebne jest makro, które coś gdzieś kopiuje - można sobie takie nagrać rejestratorem makr i problem rozwiązany. Ewentualnie proszę przedstawić...
Witam [syntax=vbnet] With Sheets(tblArkusze(i)) .Visible = True [/syntax] Masz błąd bo musisz określić którego skoroszytu to dotyczy [syntax=vbnet]With wkb1.Sheets(tblArkusze(i)) .Visible = True End With[/syntax]
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Makro super, dzieli arkusze o dane1... dane5, ale nie przekleja arkusz1....arkusz4. Krzyczy błędem w momencie kopiowania arkusza1.
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Witam, problem polega na tym: mam folder X(C:Dokumenty) który zawiera kilka skoroszytów(111-01,111-02,111-03 itd.), oraz skoroszyt o nazwie "WZÓR". Potrzebuję makro(w osobnym skoroszycie), które sprawdzi czy w danym folderze istnieje już skoroszyt o nazwie np: xxx-xx, jeżeli tak to go otworzy, a jeżeli nie to skopiuje skoroszyt o nazwie "WZÓR" nada...
Jest kilka możliwości odwołania się do arkusza o zmiennej nazwie. Można to zrobić po indeksie - czyli jakby numerze pozycji, w jakiej arkusze są "poukładane" w skoroszycie. Jeśli ten arkusz ma zawsze taką samą pozycję w skoroszycie, czyli znajduje się (przykładowo) zawsze na 5 karcie (zakładce), licząc od lewej strony - można wykorzystać w kodzie jego...
Przede wszystkim załącz przykładowy plik i jednoznaczny opis, aby było można zorientować się do czego zmierzasz ? Wstępnie można Ci zaproponować uruchamianie jednego makra, które w zależności od wstawionej opcji (1, 2, 3) w określonej komórce uruchamiać będzie różne działania (kopiowanie danych, drukowanie lub zamykanie skopiowanego skoroszytu) ;-)
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Cześć, przejdę do rzeczy. Chodzi mi o zrobienie makra które wykonuje poniższe czynności. Mam szablon, przykładowo : Ilość jabłek : 2 Ilość gruszek 4 Chce by makro, które podłącze pod przycisk tworzyło skoroszyt z tego szablonu, nadawało mu ID np 01 i każdy następny szablon robił np. 02,03,04. Potrzebuję również by makro kopiowało ilość jabłek i gruszek...
z komórek o pierto niżej t.z. z wiersza 2 ?(b2 c2 d2) pisać makro cały czas to lipa zapisz w Osobisty skoroszyt
Chodzi o to, aby w pliku zbiorczym znalazły się wszystkie arkusze ze zbioru plików. Nie jest ściśle określona liczba plików. Wiadomo tylko, że znajdują się w jednym katalogu, a ich nazwy różnią się 2 znakami na końcu. Nie wiadomo ile dokładnie arkuszy zawiera każdy z plików (ta ilość z czasem rośnie) Ważne jest, aby przy kolejnych aktualizacjach pliku...
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...
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt?
Kopiowałem do nowego skoroszytu i pominełem
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:...
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Z jakiegoś tematu, nie pamiętam i nie próbuję nawet szukać, uchowała mi się taka "kopiarka". Oczywiście do przerobienia, ale jeśli koncept do zaakceptowania... Niestety jakkolwiek bym się starał z załączonego pliku nie rozumiem nic :-) Mam prosty kod otwierający plik. [syntax=vb]Sub GetImportFileName() Dim Filt As String Dim FilterIndex As Integer...
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...
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
Oj, Leon45 , ciężki z Ciebie przypadek. Załączasz plik w niewłaściwym formacie (bez makr), ja mam tę funkcję wpisywać za każdym razem od nowa? Poza tym nie czytasz, albo nie pamiętasz co się do Ciebie pisze. Kilka postów wcześniej napisałem: Jeśli chcesz mieć pewność, że po zmianie koloru formuła się przeliczy używaj Malarza formatów, czyli kopiuj formatowanie...
Rozumiem też, że skopiowanie arkusza, aby służył na następny miesiąc, nie spowoduje problemów? Czy trzeba będzie robić od nowa makro i w ogóle? Wszystko powinno być w porządku. Makro jest jedno ale obejmuje tylko ten skoroszyt. Jeżeli ma obejmować inne skoroszyty to albo trzeba kopiować makro do innych soroszytów - do modułu, albo umieścić bodajże...
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
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...
nagraj makro, to jest chyba najprostrze rozwiazanie,
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...
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...
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Pytanie czy da się prostym makrem zrobić to o czym pisałem + oczywiście najpierw trzeba zamienić / na np _. Prostym czy nie ale idzie a zmieniać będziesz sam te '/' czy makro ma to robić?
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ę.
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
Przesyłam skoroszyt z przykładowym makrem. W arkuszu 1 są komórki z formułami, dla przykładu w arkuszu 2 są skopiowane komórki .
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
No dobrze z tym sobie poradziłem. Dodano po 17 Mam nowy problem. Jak mając komórkę z formułą zliczającą dane w jednym skoroszycie przenieść tylko wynik do drugiego skoroszytu, aby był zmienną do obliczeń w aktywnym skoroszycie. Pomooocyyy
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...
To mi coś nie idzie. Kopiując kod do innego skoroszytu ( podstawiając oczywiście prawidłowe dane w nazwach) kopiuje jakies inne dane, niż te które Tobie prawidłowo zliczyły
Na obrazku skoroszyt jest otwarty na Twoim kompie Na obrazku widać, że Excel jest otwarty na komputerze zdalnym (AnyDesk). Na filmie uruchamiam makro, które importuje z Arkusz1 (z zasobu sieciowego \\serwer\bekap\a.xlsx) do tabeli Excel, co działa. Chyba o pobranie danych Ci chodzi, a nie o kopiowanie pliku, prawda? [syntax=vbscript]Kill Ustawienia.Ścieżka...
Czy w skoroszycie są jeszcze jakieś inne makra? Pliku ściągnąć nie mogę.
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
witam, próbuję zrobić makro, które, kopiowałoby komórki z wartością >0 i wklejało wartość do tej samej komórki, ale w całkiem innym skoroszycie. Ścieżka do skoroszytu, w którym miałyby się znaleźć wklejane wartości byłaby zawsze ta sama. z góry dziękuję za pomoc
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
A nie lepiej (szybciej) jest zrobić kopię pliku abc.xls i go tylko inaczej nazwać? Przecież na to samo wychodzi. Na kopiowanie pełnych arkuszy z formatami nie ma funkcji. Da się to zrobić jedynie za pomocą makra [tylko nie wiem po co - patrz kopiowanie pliku]. No ale ludzie różnych chcą rzeczy. Dodatkowe pytanie do głównego "zadania" czy jest ustalona...
Witam, chciałabym usprawnić swoją pracę w excel, ale dopiero zaczynam swoją przygodę vba. Potrzebuję napisać makro dzielące dane w moim skoroszycie po kolumnie E w której mam zawarty typ i tam występuje 7 rodzajów typów. Do tej pory ręcznie filtruję po typie, kopiuję dane wraz z nagłówkiem do nowego skoroszytu i zapisuję jako filtrowany typ. Czy mogę...
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku?
Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( Najprostsze rozwiązanie PPK myszy na wybrany arkusz :arrow: "Przenieś lub kopiuj" do nowego skoroszytu :idea: Jeśli znasz VBA i masz setki tych arkuszy to nagraj sobie makro takiego kopiowania uruchamiane skrótem klawiaturowym. :D Jeśli zaś masz do skopiowania...
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:...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
Witam, No to jeszcze jedno pytanko. W moim pliku "1" dołożyłem drugi przycisk "CommandButton1", który zapisuje mi dane i zamyka skoroszyt. Chciałbym zrobić tak, że gdy "aktywny" jest pierwszy przycisk to ten mój (do zapisywania) jest nieaktywny. I na odwrót. Jak to zrobić??
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...
Witam, Chciałbym prosić o pomoc w napisaniu skryptu w VBA. Mianowicie chodzi o to, że potrzebuję zapętlonego makra, które będzie kopiowało konkretne wartości między dwoma skoroszytami (pliki dodane w załączniku). Jednocześnie nie ma określonej liczby wierszy i kolumny. Bardzo serdecznie proszę o pomoc. Pozdrawiam Łukasz P.S. Jeżeli był już taki podobny...
Przetestuj poniższe makro [syntax=vb]Sub kopiuj() Dim shInv As Worksheet Dim shInpt As Worksheet Dim lOstRwDst As Long Dim lOstrwSrc As Long Application.ScreenUpdating = False Set shInv = ActiveWorkbook.Sheets("Inventory") Set shInpt = ActiveWorkbook.Sheets("Input") lOstRwDst = shInv.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row lOstrwSrc = shInpt.Cells(Rows.Count,...
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.
Dzień dobry, to znowu ja. Tym razem merdżuję pliki excel w jeden. Mam do dyspozycji zgrabny skrypt, niestety, wymaga on kilku zmian. Nie wiem, dlaczego, ale makro kopiuje dane z obu skoroszytów, które znajdują się w plikach. Choć powinno brać dane tylko z pierwszego skoroszytu. Moje drugie zastrzeżenie jest ogromnej skali :( Chciałabym, by makro kopiowało...
2000*0,5s=mnóstwo Wygenerowałem 2000 pustych plików Excela dla testu. Nie podam makra, bo zrobiłem spory błąd. Z lenistwa nakazałem wykonanie 2000 plików z Excela zapisując jeden plik 2000razy. Trwało to... nawet z włączoną optymalizacją było... gdybym napisał to samo w .NET na zasadzie sprawdzania ile jest plików w katalogu i kopiowania ich w następnym...
Witam koledzy forumowicze. Potrzebuje pomocy w stworzeniu makra, które będzie kopiować zakres tabeli z jednego skoroszytu do drugiego. Ma to wyglądać następująco: 1. Otwieram skoroszyt (nazwijmy go A) w którym są dwa arkusze, "1" i "2". 2. W arkuszu "1" mam przycisk, który ma zaznaczyć zakres tabeli z karty "3" skoroszytu B (lub innego, które znajdują...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Witam. Tworzę makro, które będzie kopiowało dane z jednego skoroszytu do drugiego z opcją na początku wybrania sobie pliku z którego maja być skopiowane dane. Ale nazwy mogą być różne. Plik w którym bedzie znajdowal sie kod to "plikodtworzeniowy". i byłoby coś takiego np. Sheets(" plik.xlsx ").Activate Range("B2:B10").Copy Sheets("plikodtworzeniowy.xlsm").Activat...
Profesjonalne podejście do programowania zawsze rozdziela Dane (surowe) i Widok (coś, co je prezentuje). Implementacje tego są przeróżne, ale zasada jest fundamentalna. Excel to chciał dać mniej abstrakcyjnie, dotykalne paluchem "dana jest tam gdzie ją widać" - i to daje ogromne problemy (90% kodu excelowego na świecie to kopiowanie z miejsca na miejsce)...
Podbijam temat. Napisałem trzecie makro, które w załączonym pliku miałoby kopiować dane z plik 1 do pliku 2. Niestety nie działa a powinno. Mógłby ktoś rzucić światło w czym rzecz?
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie. Wstawiam załącznik. Byłem w pracy i nie mogłem zajrzeć wcześniej na forum. Dane w komórkach są fikcyjne (musiałem oczyścić prawdziwe dane, gdyż nie mogę ich udostępniać), ale bardziej chodzi o zasadę działania na danych. Wierszy w tabeli jest ok. 500 wierszy i przy każdej zmianie trzeba...
Akurat to jakoś skomplikowane nie jest, jeżeli tylko arkusze nazwiesz kolejnymi nazwami miesięcy, to możesz odwołać się do skoroszytu przez jego nazwę z F3. A do wyszukiwania Janusza użyć jednej z licznych funkcji wyszukujących, np. Find [syntax=vbscript]Set w = Sheets(Range("F3").Value).Columns("A").F... lookAt:=xlWhole) Sheets(Range("F3").Value).Cells(w.Row,.....
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
Zupełnie nie mogę zrozumieć na czym polega błąd. Co znaczy przeładowywało się i plik się wyłączał? Sam? Niemożliwe. Proponuję dołączyć to co masz. Najlepiej plik cały, choć ja i tak go nie zobaczę. Zastanów się co potrafisz wykonać, czy: 1. Potrafisz oznaczyć obszar do skopiowania? 2. Potrafisz skopiować dane? 3. Potrafisz wskazać gdzie kopiować kolejne...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Dzięki serdeczne marku! Wszystko obecnie działa OK - po prostu nie mogłem się połapać w oznaczeniach , ponieważ to makro używam do b. skomplikowanego programu "Ewidencja" w którego to budowie bardzo mi pomagałeś przez długi okres czasu. Od roku działa on u mojej księgowej i około 10-cio krotnie ułatwia i przyspiesza jej pracę. Ten układ (makro) działać...
Możliwe jest stworzenie makra które będzie kopiować potrzebne dane zawsze z ostatnich arkuszy plików Tak to jest całkiem łatwe :idea: , po otworzeniu kolejnych skoroszytów aktywujesz ostatni arkusz np. Sheets(Sheets.Count).Activate i kopiujesz to co Ci potrzeba gdzie chcesz :D Proponuję nagrać sobie odpowiednie makro, które będzie przeprowadzać...
Cześć, mam podobny problem. Chciałabym filtrować dane po wartościach z jednej z kolumn, a następnie przenosić wiersze do innych 4 arkuszy umieszczonych w tym skoroszycie. Problem jednak jest w tym, że skoroszyt znajduje się na One Drive i jest połączony z formularzem w Forms. Z tego co udało mi się zorientować makra w wersji online nie można tworzyć....
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać, gdyż teraz wyskakuje mi błąd w tej linii: Set wb = GetObject(strQ) Chodzi o to, że mam otwarty skoroszyt x gdyż co chwilę muszę wprowadzać do niego nowe dane, a jednocześnie co jakiś czas dane z tego skoroszytu muszę pobrać powyższym...
... makro, które kopiuje arkusz1 ze skoroszytu1 do skoroszytu2 jednocześnie zmieniając formuły na wartości [syntax=vbscript] Sub KopiujArkusz_1() Dim ten_skoroszyt As String, nowy_skoroszyt As String, zapisz_nowy_skoroszyt As Variant 'Application.DisplayAlerts = False ten_skoroszyt = ThisWorkbook.Name Range("a1").Select Range("a1").SpecialCells(xlCellTypeVisib...
makro nie działa poprawnie :cunning: :?: Makro być może nie spełnia Twoich oczekiwań :D , ale z reguły działa poprawnie tj. zgodnie z zapisem kodu VBA :please: Jeśli uruchamiasz kod z pliku Personal - to dla makra to jest ThisWorkbook i jego arkusze są w stanie Active :!: Musisz tak dostosować kod, żeby jednoznacznie wskazać w jakim skoroszycie i w...
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Ma być Workbooks a nie Worksheet! Oba skoroszyty otwarte, jak rozumiem. I jeszcze powinno być rozszerzenie nazwy pliku np. stary.xlsx Jeśli wykonujesz kopiowanie z poziomu pliku nowy, to tam odwołanie może być uproszczone.
Witam, mam nastepujacy problem: "zrodlo" - posiadam np. 10 zakladek z takim samym ukladem - sa to zakladki z ktorych chce kopiowac dane "cel" dane chce kopiowac do 40 innych zakladek (kazda zakladka posiada swoj numer np. 5455) - numer ten jest wpisany "x" razy w zakładkach "zrodlo" w kolumnie A. w jaki sposob napisac makro które bedzie do zakladek...
Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireColumn.Insert Cells(1, 2).Value = "autorzy" Cells(1, 3).Value...
Tak się dzieje jak kopiujesz z iluś tam skoroszytów i przy każdym kopiowaniu nie czyścisz schowka, widać że kod to jakiś nieudolny "zlepek" z innych kodów. Nie wiem po co ta instrukcja 'if' z licznikiem, jak i tak zawsze 'rows count' wklei za pierwszym razem do a2, jak już musi być ta pętla ze sprawdzaniem tego 0, to przeniósł bym to przy kopiowaniu...
A myślałeś już o pliku personal (skoroszyt makr osobistych czy jakoś tak)? Są ograniczenia, ale może ci wystarczy. Alternatywa: jeden plik z makrem przetwarzający wiele plików z danymi.
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...
Witam, otrzymałem dzisiaj 200 arkuszy, w których mam kilkadziesiąt kolumn. Wszystkie arkusze znajdują się w tym samym folderze. Moim zadaniem jest otworzenie każdego Skoroszytu i przekopiowanie do Skoroszytu Summary.xlx kilku kolumn. Każdy skoroszyt ma różna liczbę wierszy, zmieniają się, bo pliki sa shared, dane są kopiowane zawsze z pierwszego Arkusza....
Witam. Potrzebuje dostac sie do danych w innych otwartych plikach Excela. Dziala to tak, ze inny program generuje raporty ktore automatycznie otwieraja sie w Excelu. Kazdy osobno. Zaden z nich nie jest nigdzie zapisany. Generuje na raz od 5 do 10 raportow. Mam makro ktore po skopiowaniu takiego arkusza przetwarza je. Ale za kazdym razem musze przechodzic...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Ważne jest gdzie kopiujesz te dane. Wskazujesz jakieś okno, rozumiem, że plik musi być otwarty. A co gdy nie będzie? Najlepiej jeżeli to będzie ten sam skoroszyt w którym są makra. Wtedy łatwo zaadresujesz go poprzez ThisWorkbook i to pytanie wyżej nie ma wtedy sensu. Selekty do kopiowania nic nie wnoszą, To tylko strata czasu. Są przydatne np. podczas...
Na Elektrodzie jest kilka przykładów importowania skoroszytów do innego skoroszytu. Poszukaj. Wiem o tym, ale nie widziałam nigdzie przykładu pojawienie danych w komórce uruchamia makro. Na elektroda są przykłady kiedy trzeba kliknąć na przycisk, itp.
1. Jeżeli nie używasz "select" przy kopiowaniu (czyli tak jak masz teraz) to możesz ukryć arkusze i skopiuje bez problemu ale można na czas kopiowania odkryć i ukryć przez np. Sheets("xx").Visible = xlSheetVisible Sheets("xx").Visible = xlSheetHidden 2. chodzi ci o że przy zapisaniu skoroszytu pobiera nazwę z komórki?
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
makro kopiujące makro skoroszyt makro kopiujące arkusz
pralka whirpool błąd serwis przeniesienie licznik elektryczny kluczyk passat zaprogramować
mikrofalówka działa maszyna dziewiarska
Samsung BN41-02696A-011 Firmware Dump Guide Jak ładować akumulator wiertarki FERM?
