Poprawiłem błąd.
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
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....
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?
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
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...
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
Witam ponownie Dzisiaj proszę o pomoc w zwiazku z tematem, który czesciowo rozwiazalem. Mam kilkanascie plikow o nazwie: litera alfabetu.xlxs, czyli: a.xlxs, b.xlxs, ... W nich sa zapisane wartosciami 3 kolumny: A B C Z tych kolumn potrzebuje skopiowac kolumny B i C (jedno pod drugim)do nowego pliku, w ktorym mam przycisk i do niego przypisane makro....
Najprościej na przykład tak: Sub Kopiowanie() Set fs = CreateObject("Scripting.FileSystemObject... fs.CopyFile [A1], [B1] End Sub [A1] zastępuje Range("A1") Dokładny opis metody CopyFile jest w Helpie do VBA. W nazwach plików można używać symboli wieloznacznych do kopiowania wielu plików naraz.
Twój opis kolego nie jest jasny :cry: Przygotuj dwa przykładowe pliki: jeden źródłowy (arkuszy nie więcej jak 3 :D ) i drugi docelowy :!: z przykładowym układem wszystkich danych. Może przy tym przygotowaniu jeszcze raz przemyśl całą procedurę tworzenia tych plików na każdy miesiąc :idea: Pliki te po spakowaniu do zip zamieść na forum :!:
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
Ten fragment nie ma znaczenia - to mi działa. Chodzi mi o to aby w nowym wydzielonym tym makrem pliku arkusz wyglądała tak samo (szerokość kolumn, wielkość czcionki. Teraz jak tworzy mi nowy plik z fragmentem danych który wydzieliłam makrem to są stałe szerokości kolumn i wielkość czcionki taka jakbym po prostu otworzyła nowego excela i wkleiła tam...
Wygląda na to, że wykonuje tylko jedną pętlę... Może inaczej: Dla dwóch plików zewnętrznych (z których ma pobierać dane) wykonuje dwie pętle. Ale nic z tych plików nie pobiera...
zawsze musi w tych obiektach być zachowana jakaś logika i powtarzalność Nie wiem czy jasno napisałem jeżeli nie to postaram się dopisać Jakkolwiek nie mogę zrozumieć logiki :cry: Twoich działań na danych zawartych w tych przykładowych plikach (który plik jest plikiem "wynikowym" - podsumowującym, czy agregującym dane z plików źródłowych; po co w plikach...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...
(at)Tomuś_P nic tam nie znalazłem Coś tam zrobiłem problem polega na tym że czasem makro działa czasem nie i nie wiem co jest nie tak, makro samo w sobie nie pokazuje błędów ale pliki na FTP czasem są czasem nie... Drugi problem to tworzenie plików wolałbym żeby nie tworzył na dysku żadnych plików tymczasowych. [syntax=tex]Sub FTP_CSV_Tp() Dim fNameP...
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ć...
Może i lepiej, ale kto z nas wie, jak działa makro w Wordzie?
Kopiowanie przypisane jest do A1 w dół w aktywnym arkuszu. Przejdź makro krok po kroku [wspomniane F8], obserwuj co się dzieje (jakie wartości przypisywane są do zmiennych). Czy nie lepiej byłoby zamapować lokalizację sieciową i odnosić się do skrótu?
Witam wszystkich. Mam nadzieje, że zadam pytanie w temacie, otóż szukam rozwiązania aby w pliku wynikowym wyświetlał mi wartość ze wszystkich plików z danego katalogu. Wszystkie te pliku mają wynik w tej samej komórce. Byłbym wdzięczny za w miarę jasną podpowiedź jako, że zielony jestem.
Zaczynam od najprostszego przypadku a potem dodaję kolejne szczegóły. Nie jestem programistą i nie wiedziałem, że lepiej jest widzieć cały problem od razu.. .. pliku dopóki nie zobaczyłem, że makro działa na zasadzie pętli .. :) Przepraszam, pewnie miałem dzisiaj zły dzień. Nikogo nie obraziłeś. Nie mam pojęcia dlaczego masz jakiś problem z przecinkami...
Trzeba będzie wprowadzić copy-paste w miejsce przypisania. Raczej nie obędzie się bez select'ów, ponieważ pliki mamy w różnych instancjach... Spróbuj (nie testowane) [syntax=vb]Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim i As Integer Dim...
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Nic tak nie uczy jak przykłady, a tych jest na forum dostatek. Szukaj pod hasłem "Excel Dir", "Excel lista plików" i coś na temat pętli. Np For Each element In kolekcja , gdzie kolekcja to zakres komórek z nazwami katalogów. Np coś takiego [syntax=vb]Sub bla() Dim zakres As Range, kom As Range Dim kat As String, sKat As String, plik As String Set zakres...
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ść. Na początku chciałbym poinformować,że nie dawno odkryłem VBA czy tow Excelu czy Wordzie. Tym samym jestem zielony w tym temacie. Pocieszam się tylko tym że nie na wszystkim muszę się znać. Jak domyślacie na VBA nie znam się w ogóle :cry: . W związku z powyższym do osób które znają w tym temacie mam gorącą prośbę. Potrzebuję makra,które będzie...
Zanim zaczniesz coś kodować w VBA (albo czymkolwiek innym) musisz wiedzieć czego chcesz. Młodzi programiści zwykle od razu rzucają się do klawiatury, sam tak robiłem i czasem nadal robię, ale to ostatecznie zabiera więcej czasu, niestety. :) W tym przypadku czy ten numer klienta jest poprzedzony jakimś charakterystycznym tekstem, albo jest zawsze w...
Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików :?: i zostały otwarte w osobnych arkuszach :?: ? Celowo wspomniałem Ci o nagrywaniu makra bo wtedy musisz całą procedurę przeprowadzić "manualnie" i przemyśleć dokładnie co chcesz zrobić i jaki efekt chcesz osiągnąć :?: Otwieranie pojedyńczych plików i otwieranie kilku plików wymaga odmiennego...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
hey dałem sobie rade troche w inny sposób [syntax=vb]Sub kopiowanie() ' ' kopiowanie Makro ' Windows("pierwszy.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode = False Selection.Copy Windows("KW 47 Zestawienie zbiorcze.xlsm").Activate Range("A1").Select ActiveSheet.Paste Windows("drugi.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode...
Mam małe pytanko jak zmienić makro aby zaczytywało z podkatalogu plików?
Koledzy posiadam takie makro kopiujące z plików do jednego arkusza. Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta. Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz? Option Explicit...
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
wybaczcie mi literówkę, oczywiści chodziło mi o VBS (Visual Basic). Moje pytanie dotyczy jednego z elementów składowych programu, który w znaczący sposób usprawniłby obsługę całego programu. Nie mam pojęcia jak mogę to zrealizować, wiec będę wdzięczny za jakiekolwiek naprowadzenie mnie. czy w ogóle jest opcja skopiowania arkusza z pliku Excela bez jego...
To makro naprawdę ci coś kopiuje? Jakoś tego nie widzę, albo kopiuje w sposób którego kompletnie nie rozumiem. Proponuję zacząć od początku: 1. Skąd masz listę nazw plików? Jest stała, czy się zmienia? Może lepiej zrobić pętlę po wszystkich plikach o pasujących nazwach. 2. Dopisz to kopiowanie: [range].copy, [workbooks(...)].activate, [range].Paste...
Cześć, posiadam codziennie jeden plik, który zawiera wiersze ze stanem naładowania baterii dla 12 urządzeń. Mniej więcej tak to wygląda: timestamp numberpointbatterypallet 2021-05-25 00:00259 2527FAŁSZ 2021-05-25 00:00568 2280FAŁSZ 2021-05-25 00:00260 2524FAŁSZ 2021-05-25 00:00799 2488FAŁSZ 2021-05-25 00:008107 2514FAŁSZ 2021-05-25 00:00571 2279FAŁSZ...
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...
Oczywiście że jest... Zidentyfikuj sobie jakoś wózki (nie wiem, albo nr, albo coś innego), zrób makro i po krzyku...
marko które będzie otwierało wszystkie skoroszyty (Arkusz 1) w danym folderze i z każdego kopiowało dane z konkretnej komórki D3 Makro nie musi otwierać skoroszytu :please: , żeby skopiować sobie dane z jednej komórki :D (szkoda czasu procesora na wielokrotne otwieranie, kopiowanie i zamykanie :cunning: ). Przygotuj zestaw plików przykładowych (ze...
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
dalej kopiuje wszystkie pliki z folderu 1. Zaprezentuj poprawiony kod 2. Podaj parę dat z plików (utworzenia i modyfikacji) 3. Może trzeba by trochę "wyrównać" datę uzyskaną z ' FileDateTime ', np. do postaci "dd-mm-rrrr" (?): dublując je przy każdym wywołaniu makra Czyli oznacza to, że powinien być jakiś mechanizm, który będzie identyfikować, czy...
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...
aby makro wiedziało ze w danym pliku jest np tylko 850 Zaznaczanie do kopiowania/przenoszenia/itp. bez używania tzw. zmiennych. Jeśli masz tabelę w arkuszu, a w tabeli wiersze w kolumnach zachowują ciągłość danych, tzn. brak jest pustych komórek, to można w ten sposób:[syntax=vbscript]Range("H1", Range("H1").End(xlDown)).Copy[/syntax]lu...
Witam, jestem początkujący w temacie VBA a mam następujący problem: 1) plik .xlsx zawiera ok. 30 tys. rekordów 2) w kolumnie K jest ok. 100 unikatowych wartości 3) chciałbym, aby makro vs. ww. kolumny otworzyło ok. 100 plików w wybranym w kodzie folderze - w nazwie każdego pliku powinny znaleźć się poszczególne 100 unikatowe wartości z kolumny K, dane...
Jak można ocenić pracę w excelu? Policzyć ile Twoja automatyzacja daje oszczędności czasowych, które to przekładają się na konkretne pieniądze. Ilość formuł, to nie za bardzo miarodajne jest. Dla przykładu, otwarcie 50-ciu plików i kopiowanie zawartości jednego arkusza i wklejenie do arkusza zbiorczego ręcznie wymaga załóżmy 1 godziny i jednej minuty....
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
Witam serdecznie Napisałem makro które kopiuje dane z wgranego pliku xls to arkusza zbiorczego. Jednak kod jest mało efektywny (kopiowanie trwa długo) oraz niekiedy nie kopiuje wszystkiego ;( Można jakoś poprawi kod aby działanie makra było szybsze? Z góry dzięki za pomoc [syntax=vb] Sub Wgrywanie_plików() Dim strPlik As String Dim Dane As Workbook...
chodzi mi chyba o coś innego. chciałbym aby formuły które mam w pliku wynikowym "czerpały dane" nie z arkuszy w tym samym pliku (arkusze kopiowanie z innych plików) ale bezpośrednio z innych plików. Wiem, że w formule mogę wpisać skąd ma czerpać dane ale problem w tym że co miesiąc pliki z danymi inaczej się nazywają i inaczej nazywają się arkusze w...
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...
[syntax=vbscript]Sub Szukanie() NazwaPliku = UCase("SzukanyPlik.XLSX") Set Liczydlo = Sheets("SzukanyPlik") Application.ScreenUpdating = False Do While SzukanyPlik <> NazwaPliku p = Application.GetOpenFilename(FileFilter:=... files, *.xlsx", Title:="Find SzukanyPlik", MultiSelect:=False) SzukanyPlik = UCase(Mid(p, InStrRev(p, "\") + 1)) If...
Dziękuję JRV :) Szczerze mówiąc trochę mnie przytkało że kilka linijek kodu może robić taką robotę, tym bardziej ochota na start nauki VBA. Przetestowałem kilka zmian które będę musiał wykonać i wszystko działa szybko i zgodnie z założeniem. W sumie nawet lepiej niż w pomyśle 1, bo makro kopiuje dane bezpośrednio z plików "zrodlo", plik zbiorczy służy...
Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik zapisywał się pod nazwa z komórki P18. Po kliknięci...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...
Witam serdecznie Mam ten sam problem co vaah92. I jestem równie „zielony”. Chętnie dołączę do grona „wiernych”. To makro działa znakomicie. Mam jednak problem: w jaki sposób je zmodyfikować: 1. Aby w kolumnie A można było wprowadzać tylko fragment nazwy pliku (bez rozszerzenia). 2. Aby było możliwe kopiowanie oprócz...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
ok to postaram sie uporzadkowac mam 31 plików z raportami w kazdym raporcie sa 3 zakladki z kazdego raportu z zakladki nazwanej "3" chce skopiowac przefiltrowane dane do nowego pliku makro kopiujace po skopiowaniu tych zakladek w pliku z wynikiem koncowo powinno dac plik z 31 zakladkami skopiowanymi z plików raportów Niestety miałem nadzieję uzyskać...
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?
Nie znam niestety VBA... Musze napisać makro :D Na początek (nauki :cry: ) zapamiętaj, że VBA jest z reguły dedykowane do konkretnej sytuacji :arrow: najlepszym "opisem sytuacji" zaś są przykładowe pliki wejściowe i wyjściowe :!: (ewentualnie uzupełnione opisem ścieżek ich lokalizacji). Przykładowo jeśli miałbyś tylko jeden plik do importu z csv to...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
PS 2. no to może być faktycznie problem z ustawieniami, ja też musiałem zmienić na polskie jak chciałem w vba używać polskich znaków? A w kodzie są widoczne polskie znaki czy krzaczki:> PS 1. Jeżeli wyłączasz zamykanie i odtwarzarz ponownie makro (a sam ręcznie go nie zapiszesz i np. nie zmienisz nazwy) to wyskoczy błąd bo makro nie może stworzyć dwóch...
Witam serdecznie Jestem początkującym w VBA i nie mogę sobie poradzić z przeniesieniem plików. Mianowicie chcę utworzyć folder Rok 2014 a następnie przenieść wszystkie pliki *2014.pdf do do tego folderu. Znalazłem informację, że przenieść plików za pomocą vba nie można tylko należy pliki skopiować a następnie usunąć. I tu pojawił się problem. kopiowanie...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
Niestety nie mogę zobaczyć tego co załączyłeś W związku z tym pozwoliłem sobie trochę "pogrzebać" w kodzie kolegi... Takie coś http://obrazki.elektroda.pl/5992088900_1... Wkomponuj kopiowanie zamiast zapisywania i z głowy. P.S. Pętla pobierająca nazwy plików sprawdza kolumnę A. W pliku, do wiersza 360, są formuły /end(xlUp) uzna je...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)...
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym. Kolumna E i F – format daty (dd-mm-yy). Jak...
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
A o tworze zwanym FileCopy(source, destination) Kolega słyszał? Jeżeli nie to proszę postudiować Google lub użyć tak jak napisałem. Ścieżki w całości.
To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem? [syntax=vbscript]w = Application.Match("2020 ACTUAL", Range("H1:H" & ow), 0) - 1[/syntax] Zmień H na B.
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...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
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_"...
Zmienna 'tblArkusze' jest tablicą przecież. Musisz w pętli [syntax=vbscript]For i = LBound(tblArkusze) To UBound(tblArkusze) With Sheets(tblArkusze(i)) .Cells.Clear .AutoFilterMode = False End With Next[/syntax]
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Nigdy nie programowałem w VBA, ale znalazłem takie coś, może okaże się pomocne. Jeżeli nie to poszukaj w sieci pod hasłami "vba copy rows" i podobnymi, pojawia się sporo wyników. The example codes will copy to a database sheet with the name Sheet2. Every time you run one of the subs the cells will be placed below the last row with data or after the...
Czy ktoś ma pomysł na to aby nie zaznaczał całych kolumn A:G tylko aby zaznaczył od komórki A4 do komórki GX Taki efekt możesz uzyskać poprzez wstawkę kodu: [syntax=vbscript]Set thisWb = ActiveWorkbook Set wksK = thisWb.Worksheets("Kosztorys") Lastrow = wksK.Cells(Rows.Count, 1).End(xlUp).Row wksK.Range("A4:G" & Lastrow).Copy[/syntax] ale efekt takiego...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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...
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...
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....
Trochę nieścisłości jest w tym Twoim opisie. Piszesz, że w kolumnie E arkusza Brudnopis po wyczerpaniu nazwisk będą błędy #N/D. Tymczasem w pliku przykładowym są puste teksty. To jak w istocie będzie? W załączonym kodzie są uwzględnione oba warianty. Gdy już się zdecydujesz jak ma być, możesz sobie ten kod troszkę uprościć. W sprawie tworzenia nowego...
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Byłbyś w stanie załączyć pliki?
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie.
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
Język polski jest Ci chyba obcy, pomijam już fakt, że nie ma takiego programu jak exel.
A to żeś rozjaśniła :) Makro będzie zapisane w pliku do którego będą kopiowane dane czy w jakimś innym miejscu? Jeżeli w tym pliku to zmienność jego nazwy nie ma znaczenia. Na jakiej zasadzie będzie zmieniać się nazwa pliku z danymi i czy będzie on ciągle w tej samej lokalizacji (folderze)?
Cześć, Mam taki problem że za pomocą makra kopiuje dane z drugiego pliku. Problem w tym że dane z drugiego pliku pojawiają się dopiero po wykonaniu makra uruchamiającego się przy otwarciu (nie znam nazwy tego makra). W konsekwencji kopiuje same nagłówki bo dane nie zdążyły się jeszcze odświeżyć. Miał ktoś podobny problem ?
Kod w tym skoroszycie, uruchamiany skrótem kalwiszowym Może po kolei : - mam plik csv -wrzucam go do arkusza 1 przez dane\z pliku\tutaj zamienia mi pomaga już excel automatycznie rozdzielając " ; " średniki w tekscie. i tutaj dopiero uruchamiam makro które sortuje nazwisko a-z i daty a następnie wkleja posortowane dane do arkusza 2 i tam są dalsze czynności...
kopiowanie plików makro makro kopiowanie kopiowanie makro
panel sterowania szybami passat schematy ładowarek uniwersalnych uszkodzony zasilacz laptop
zakłócenia magazyn energii terma gazowa
Audi A3 8P TFSI Quattro 2005 – opis pierwszej kostki wiązki fabrycznej, T10e i Quadlock Peugeot 3008 Engine Fault – przyczyny, typowe błędy, AdBlue, DPF, PureTech, BlueHDi
