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]....
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie. Do takiej postaci udało mi się skrócić kod. [syntax=vbscript]Sub OtworzPlikiWszystkich2() Application.ScreenUpdating = False Dim plik Dim i As Byte plik = Application.GetOpenFilename(filefilter:=... "skoroszyt excel (*.xls*),", MultiSelect:=True)...
Moim zadaniem jest napisanie makra, które działa na pliku zawierającym dwie tabele. Jedna z nich to stan początkowy, druga to stan końcowy. Makro powinno kopiować dane z tabeli stanu końcowego, tworzyć nowy plik (taki sam jak poprzedni) i wklejać dane do tabeli ze stanem początkowym. Dodatkowo fajnie byłoby gdyby nazwą nowo stworzonego pliku była data....
Witam Was, w VBA jestem zupełnym amatorem, w zasadzie korzystam z nagrywania. Pojawił się pewien problem Mam jeden plik z którego chcę kopiować zawsze te same zakresy komórek, do innego pliku. Zasada jest prosta otwieram jeden plik bazowy z którego kopiuję dane i wklejam w pasujący zakres w drugim otwartym pliku, plik do którego kopiuję zawsze ma inną...
Witam serdecznie, jestem początkujący w temacie VBA i myślałem, że makro którego potrzebuje będzie proste do napisania jednak nie wziąłem pod uwagę, że za jednym zamachem w excelu nie można kopiować wielu zaznaczeń i trochę się pogubiłem. Założenia są następujące: 1. Mamy dwa pliki o tej samej strukturze (oba to zahasłowane kalkulatory) 2. Celem jest...
W pliku przykładowym nie było żadnego wiersza podsumowania. Wręcz napisałeś: makro brało formułę z komórki A2 i do kopiowało do końca. Po to jest plik przykładowy, żeby umieścić w nim wszystko co jest istotne dla sprawy. Czy tych wierszy jest zawsze dokładnie do 2000 i w 2001. podsumowanie? Jak to podsumowanie wygląda? Można kopiować albo do wiersza...
40307_1885684" generuje losowo. To skąd wiesz z którego pliku kopiować dane :?: (jak robisz to ręcznie ?), a jak makro ma rozpoznać losowy plik :?: :D Warto by było przy zapisywaniu plików raportów, zmieniać im nazwę na nielosową :idea:
Cześć, Potrzebuję pomocy w napisaniu makra w VBA. Plik A posiada 40 kolumn (liczba wierszy jest zmienna, od 1 do 10 000), niestety ich ustawienie jest zmienne w zależności między innymi od dnia, nie zmieniają się nagłówki, chciałbym do pliku B kopiować całe kolumny w zależności od ich nagłówka (zawsze pierwsza komórka w kolumnie).
Jeszcze raz. Potrzebuje makro które będzie pobierać z pliku Excel. xls. tylko do odczytu . Po otwarciu pliku makro powinno do excela kopiować tylko kolumny po nazwach ( idzie o trzy kolumny) . Kod jaki wkleiłem pięknie pobiera plik xls do odczytu tylko że w całości a ja potrzebuje aby pobierało tylko określone kolumny po nazwach przypisanych do nich...
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Cześć, mam problem z makrami, mianowicie, nagrywam makra filtrujące - makro ma filtrować, kopiować dane, które zostały uzyskane i wkleić do innego arkusza, który jest przygotowany formą pod uzyskane dane. Jednak mam problem, ponieważ o ile pierwsze makro działa, o tyle każde kolejne jakby nakłada się na następne, ponieważ filtruję się kolumna, którą...
... Makro działa ale po włączeniu pokazuje się błąd "400" ... Wejdź do modułu z kodem i przy użyciu klawisza "F8" przejdź całe makro linijka po linijce, tam gdzie wystąpi błąd zrób zrzutkę i załącz. Ps.: A czy nie lepiej po odczycie danych z konkretnego pliku, odkopiowywać taki plik (kodem vba) do podkatalogu ? Nie trzeba wtedy żadnych "ksiąg" z nazwami...
https://obrazki.elektroda.pl/3994263600_... [syntax=vbscript]ActiveCell.Copy[/syntax... Nie możesz kopiować aktywnej komórki, bo ta znaleziona nie zostaje aktywowana. [syntax=vbscript]Sub Przycisk3_Click() Dim plik As Variant Dim i As Byte Set a = ThisWorkbook.Sheets(1) Application.ScreenUpdating = False plik = Application.GetOpenFilename(filefilter:=...
Ok sory źle to wytłumaczyłem, więc tak : 1. Wchodzisz do pliku rejestr 2. Uruchamiasz makro przyciskiem "wygeneruj zlecenie cent" 3. Makro przypisane do tego przycisku robi to: a. Generuje kolejny numer w najbliższym pustym wierszu. b. Otwiera wzór zlecenia o nazwie zlecenie cent C. Kopiuje nowo nadany numer w rejestrze i wkleja go do otwartego wzoru...
makro, ktore skopiuje kolumne z arkusza A do arkusza B po napotkaniu okreslonego slowa np stop, koniec itp. Najprościej będzie przygotować plik poglądowy (spakować go do zip) i załączyć do Twojego postu :idea: Nie jest zrozumiały Twój opis - jeśli w kolumnie A występuje słowo stop to kopiować całą kolumnę, a jak występuje i stop i koniec to już kopiować...
Dzięki za szybką odpowiedź. Niestety masz rację i niedokładnie opisałem problem i nie dostałem tego czego oczekiwałem. Przepraszam. Postaram się dokładniej przedstawić całą sytuację. Co miesiąc dostaję zbiorczy plik z danymi (Raport), jeden wiersz arkusza odpowiada jednemu handlowcowi. Ponadto każdy handlowiec ma swój indywidualny plik. Pod koniec miesiąca...
Witam, Jestem mocno początkujący w VBA i mam problem. Makro które próbuję stworzyć ma za zadanie otwierać plik za pomocą przycisku oraz kopiować poszczególne komórki z pliku otwierającego do pliku otwieranego. Makro się wykonuje, tzn otwiera plik, tyle że kopiuje dane z pliku otwieranego do otwierającego: [syntax=vbscript]Sub CommandButton1_Click()...
Każdego dnia określona ilość osób obrabia pliki np. doc A gdzie to "inne makro" w ogóle jest umieszczone? w wordzie? Kolega ma racje, to "inne makro" jest w wordzie. Odszedł podobno na emeryturę a makro zostało. Mam nadzieję, że jeszcze żyje. Należy się nim skontaktować, myślę, że pomoże, a przynajmniej poda hasło. P.S. Każdy z nas powinien swoje hasła...
Hej, jestem zielony w Makro, VBA a chciałbym stworzyć pewne makro. Mam plik Excel: Dane1 Mam plik Excel: Dane2 oraz plik Excel: Wyniki W plikach dane1, dane 2 co tydzień pojawiają się nowe informacje Chciałbym je co piątek kopiować do pliku Wyniki - dopisywać, to pierwszy problem :) drugi natomiast to taki, że jeśli w pliku dane1 zostanie coś dodane...
Udało mi się znaleźć i zmodyfikować kod :?: Coś mi się zdaje, że modyfikowałeś ten kod tylko klawiszem delete ? :D Wg Twoich przykładowych plików makro "uruchamiane" ma być ze zwykłego pliku i kopiować z pliku z makrem ??? :please: Proponuje Ci przygotować najpierw właściwy plik typu xlsm i cały transfer danych przećwiczyć pomiędzy 2 arkuszami - w...
Cześć. Czy ktoś by mógł mi pomóc w edycji makra. Mam w folderze ponad 30 plików Excela. Dane w kolumnach A do D we wszystkich plikach są takie same, zależy mi na aktualizacji danych w kolumnie E. Pliki w folderze mogą być zamknięte i otwarte. Dane w plikach w kolumnach A do D w każdym pliku są zawsze w tej samej lokalizacji, należy tylko zaktualizować...
Witam, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
Generalnie mam jeden plik o nazwie "raport_data" w którym mam "arkusz1" z którego chce kopiować dane do "arkusza2" w tym pliku ale tak jak w tym raporcie zbiorczym czyli jedna dana pod drugą odpowiednio dla danego dnia. Umiem zrobić makro żeby kopiowało dane ale po wygenerowaniu nowej doby te dane się nadpisują. pozdrawiam Dodano po 2 Zasada taka jak...
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
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? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...
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...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Proszę o pomoc. Chcę, by z arkusza pierwszego po wciśnięciu przycisku "add" cały dany wiersz kopiował się do czwartej zakładki "zamówienie". Plik ma mieć docelowo ok.200 wierszy, więc chodzi o to, żeby przekleić to makro do kolejnych wierszy. Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add, dlatego też program musi wiedzieć, że ma kopiować...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Witam mam w załączeniu makro które importuje plik txt do Excela, muszę jednak ograniczyć import tylko do wybranych kolumn, tzn jeżeli wybiorę datę( zawsze to bedzie ostatni dzień miesiąca) 30.09.2012 to powinny kopiować się wszystkie kolumny do września, wiem że można wyciągnąć nr miesiąca z tej daty ale jak to zapisać w pętli aby makro wiedziało jakie...
Do importu danych które do tej pory obrabialiśmy już dużo wcześniej nagrałem makro i wszystko działa. Dorobiłem do tego przycisk i jest OK. Teraz muszę nagrać kolejne makro, które zaimportuje plik wlasciciel.csv (plik zawsze będzie miał tą sama nazwę). Potem trzeba będzie do tego mara dopisać warunek żeby wykonało się pod warunkiem, że plik istnieje...
Dzięki. Praktycznie o to mi chodziło. Niestety ten kod importuje do kolejnych wierszy w exelu kolejne ,,wyrażenia", zamiast kopiować całe wiersze. Dokładnie chodzi mi o to , że mam wartości w wierszy rozdzielone ';". Potrzebuje makro które w pierwszym załączeniu zaimportuje 4 pierwsze wiersze z pliku txt do 4 wierszy exela, dzieląc je na kolumny według...
W załączeniu plik podsumowanie w którym na 3 arkuszu powinno wykonać, się makro oraz jeden z plików z którego będzie kopiować wartości. Myślałem żeby tam zamiast zakresów do 1000 używać jakoś xldown do zaznaczania i kopiować tyle wartości ile potrzeba, ale nie wiem jak to zrobić. Będę wdzięczny za jakąś pomoc... i z tym sortowaniem to tez nie wiem o...
Witam, czy możecie podpowiedzieć mi czy jest jakaś formuła w excelu lub makro (vba) aby wykonać poniższą czynność? Sorki, za ewentualny złe zaadresowanie mojego pytania, ale nigdzie w sieci nie wyszukałem pomocy i zalogowałem się tutaj z pomocą o wsparcie. Jestem samoukiem i zabrakło wskazówek w sieci :) Opis mojego przypadku 1. Zrzucam dane ( różnych...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym...
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu... i jak tak zmieniam: Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dim Rng As Range Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny (a w tabeli dane liczbowe do przyporządkowania). 2. Poszczególne...
Witam serdecznie wszystkich. Mam takie pytanie, czy da się napisać makro tak żeby z kilku arkuszy automatycznie kopiowało się do jednego arkusza. Wiem że temat był już poruszany nie raz ale już od kilku tygodni szukam właściwego makra i nic. I tu wielka prośba do Was o pomoc. Potrzebuje gotowe makro bo ja jestem BARDZO słaby w tym temacie a dokładnie...
Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....
Rozumiem kod tylko coś nie działa, gdyż tworzy plik w dobrym miejscu o dobrej nazwie tylko nic nie kopiuje jak robię to na przykładowym arkuszu i jeszcze jedno z kodu wynika, że ma kopiować wiersz a mnie chodziło o kolumnę: [syntax=vb]wrsDst = 2 [/syntax] <- rozumiem, że to zmienić trzeba na kolumnę tylko jak to się wpisuje w kodzie? PS gdzie w kodzie...
No dobrze, zastanówmy się. Plików masz nieokreśloną ilość. Można te właściwe zaznaczyć w oknie dialogowym (Alow multiselect) lub dialog otwierać w pętli aż do zamknięcia bez wyboru. Arkusze mają różne nazwy. Mniejsza z tym jeśli będziemy kopiować tylko i wyłącznie z pierwszego i drugiego po indeksach (Sheets(1), Sheets(2)), zawsze z tych samych komórek...
Cześć, Szukałem wiele na forum i w necie ale nie mogę znaleźć odpowiedniego rozwiązania. Chodzi mi o stworzenie makra które ułatwiało by mi pracę. W arkuszu1 mam dane wyjściowe w pięciu kolumnach i chce kopiować dane przefiltrowane wg. np. kolumny czwartej do nowych arkuszy. Daję przykład i jak to ma wyglądać. Może ktoś miał podobny problem i udało...
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ść...
Cześć mam taki problem, mianowicie chodzi oto żeby poprawić makro tak żeby przed wklejeniem danych zapytało " do którego arkusza z kopiować dane?" i wybór np. pięciu arkuszy " arkusz1 arkusz2 arkusz3 arkusz4 arkusz5", i po wybraniu któregoś arkusza tak skopiuje te dane, taki msgebox z wyborem arkuszy. ZAMIAST SHEETS1 ŻEBY TU TE OKIENKO WYSKOCZYŁO Z...
wędka: poszukaj jak w VBA wylistować wszystkie pliki w katalogu i gdy będziesz to wiedział to : 1) otwórz plik 2) po otwarciu, skopiuj żądane wiersze do bazowego arkusza 3) zamknij plik 4) powtórz 1 -3 tak aż do wyczerpania plików. ryba (prawie) : 1) poczytaj o VBA jeśli z angielskim jest problem, użyj google translator lub poszukaj na polskich stronach...
Aby kopiować dane z kolejnych arkuszy trzeba je policzyć i wskazać w kodzie, o który nam chodzi (odwołanie). Najprościej realizować to w pętli For, gdzie zmienna-licznik to indeks arkusza. Tu mała uwaga: po zakończeniu działania procedury CommandButton1_Click identyczna wartość przechowywana jest w zmiennej globalnej plik i polu TextBox1 , w przykładzie...
Witam! Potrzebuję pomocy z odpowiednim zaprogramowaniem makra. Opisuję dokładnie czego potrzebuję - mam w pliku 2 arkusze : "m-ki" gdzie w kolumnie A mam kolejno wypisane materiały a w kolumnie B do każdego materiału mam przypisany index "karta wadliwe" jest to karta finalna, do której chciałbym aby po podwójnym kliknięciu w wartość z komórki A w karcie...
Ja proponuję trochę inaczej. Poszukać w komórce pierwszego znaku nowego wiersza oraz drugiego znaku nowego wiersza i wybrać fragment tekstu a później go zliczyć (by zapełnić czwarty wiersz wprowadziłem długość tekstu - by "łatwiej" było kopiować te cztery wiersze w dół) . Z tym że w takich metodach trzeba pamiętać że spacja to też znak (nie wspomnę...
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Zerknij do załącznika. Plik zawiera makro.
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...
[syntax=vbscript]Sub Makro() With Range("J2") .FormulaR1C1 = "=NOW()" .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With p = [F3] Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode...
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...
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości. Niech Gulson coś w końcu z tym zrobi.
Po prostu czy da się zrobić to tak że zapisze plik a po ponownym odpaleniu wszystko działa dalej tak jak przez zamknięciem? Plik zapisujesz z obsługą makr (*.xlsm)? Makra można kopiować pomiędzy plikami. Zobacz [url=http://www.cpearson.com/excel/vbe.a... Rozdział "Copy A Module From One Project To Another". Chyba, że chodzi o coś innego...
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?
Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje Jestem za tym, żeby sprawdzić obecność takiego pliku przez: If Dir(Thisworkbook.path & "\" & nazwa)<>"" then ... i podjąć dalsze działania (zapisać plik, podać komunikat, itp.)
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]
Ponieważ w Outlooku nie pracował, bo go nie używają. Ale wiem, że może mieć także makra i uruchamiania, może automatycznie zapisać plik w odpowiedniej lokalizacji i również rozpakowac go.
Namęczyłeś się z nagraniem tego makra :D, ale czy mógłbyś dla ułatwienia wrzucić przykładowy plik z dokładniejszym opisem co, skąd i dokąd ma być kopiowane? A tak na przyszłość prośba. Używaj polskich literek i ubieraj kod w znaczniki Code . Trochę ułatwia czytanie. :D
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]
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
Po tym opisie wydaje mi się, że nie potrzebne jest w ogóle makro. Prawdopodobnie dało by radę zrobić to formułami. Załącz plik z przykładowymi danymi i zobaczymy co da się zrobić.
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Dzięki. Problem jest taki, że zależy mi, żeby makro kopiowało też nagłówki - te 2 pierwsze scalone komórki.
Trochę to zagmatwane i nie jednoznaczne. Poproszę o plik.
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
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.
Sądzisz kolego, że Twoje wywody nt założonego działania makra są jasne :?: Otóż nie :cry: Zrób przykładowy plik (nawet ręcznie) z symulacją rzeczywistych danych i widokiem przed i po przekształceniach :!: i zamieść go jako załącznik :idea:
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Dlaczego w ogóle te dane kopiujesz do Worda? Nie jest tak, że po skopiowaniu drukujesz etykiety na palety? Co to znaczy 'nadpisywać numery'? W załączniku plik xlsm - podwójne kliknięcie w kolumnę 'Dostawa'.
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
Wrzucam plik z makrem. W komórce M1 wartość jest liczbą.
OK, oto je poprawiony plik statystyki
Siedzę ponad 2 godziny i nie mogę znaleźć makra, które by kopiowało plik Excela do innego pliku bez otwierania tego pierwszego Nie rozumiem, to w czym ty chcesz to makro uruchomić?
No właśnie dołączony plik, to kiepski przykład danych.
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...
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...
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Sprawdź ten plik.
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...
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ć.
Dla przykładu No właśnie dla przykładu, to przydałby się przykładowy plik. Dodano po 4 Nie pisz na PW proszę, skoro plik dotyczy tematu.
Powiem ci że twoje rozwiązanie ... owszem :) ale trochę na około. Nie wiem czy textbox i ten filtr jest ci potrzebny . Poniżej rozwiązanie bez tego. Znajduje daną , kopiuje ją i ustawia się w okienku obok. Ps. Jak chcesz załączyć plik z makrem to go spakuj zipem/raraem Dodane po chwili ----------------------------------- Podmieniłem załącznik 13:17...
Nie do końca rozumiem. Możesz wrzucić plik ?
Jeśli nie jest to problem, czy mogę prosić o przypisanie właściwego makra w tym pliku Staraj się zawsze załączać od razu plik do, którego trzeba napisać makro.
Poniżej plik z działającym makrem.
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
kopiować makro makro kopiować makro kopiować komórka
promienniki łazienka manta rt2957e01 bęben indesit
kuchenka gazowo elektryczna kuchenka gazowo elektryczna
Fiat Ducato 2.3 - Wszystkie kontrolki zapalają się po przegazowaniu Jak zdalnie zresetować router ZTE MF971R?
