Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
Poprawiłem błąd.
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.
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
[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]
[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...
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
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 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.
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
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.
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
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...
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
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_"...
No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
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...
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]
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...
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.
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
[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]
Zamiast tej linijki[syntax=vb]Wb.Sheets.Copy before:=ThisWorkbook.Sheets("makro")[/sy... pętlę For, z warunkowym kopiowaniem arkuszy. Warunkiem może być cells.find(what:="*") z wyłączoną obsługą błędów i jeśli Err=0, kopiujesz.
Byłbyś w stanie załączyć pliki?
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
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 :!:
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...
tak jak podano przez kolegę
Problem nie został rozwiązany
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....
(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...
Z tego, co autor napisał, to ma każdy miesiąc w oddzielnym pliku.
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
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....
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)?
Zerknij do załącznika. Plik zawiera makro.
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
Dodaj Swoja sciezka w Dir, jak w post #1 Dodano po 4 lub przed wlanczeniem makra zrob "Plik - Otworz" wejdz w folder z plikami - "Esc"(Odmiana)
[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...
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...
W którym pliku ma znajdować się makro?
Chce mieć to makro w drugim pliku do którego będa dane kopiowane i pod przycisk makro przypisane
Łamie sobie głowę, żeby to napisać A co Ci się udało do tej pory napisać? Na forum jest dużo przykładów do wykorzystania w Twoim przypadku.
Chce jakiś przykład Analizowałeś przykład z linka? Otwiera plik, szuka tekst i kopiuje. nie znam hasła Ja chyba też nie znam hasła do Twojego pliku.
Bez plików trudno się zorientować co Ty chcesz kopiować :cry: Proponuję jednak nagrać sobie makro przenoszenia (kopiowania) całego arkusza z pliku źródłowego do pliku docelowego :idea: , a potem przeprowadzić procedurę ukrywania lub usuwania niepotrzebnych danych w pliku docelowym :D
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Dla plików z nagłówkami w 27 wierszu, ale tylko dla nich oraz odbezpieczenie arkusza. [syntax=vba] Option Explicit Sub Scalaj_v2() Dim Licznik As Long, LW As Long, LK As Long, LW_Docel As Long Dim TenZeszyt As String, Folder As String, Plik As String Dim WERSJA As Variant Dim StatBarPocz As Boolean Dim Skor As Workbook Dim Skonsolidowany As Worksheet,...
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...
nie jestem zbyt biegły w markach, ale teraz po odpaleniu makra wyskakuje informacja, że nie moge otworzyć scieżki do pliku
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...
Spoko, działa świetnie. Dzięki
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.
aby wszystko działo się automatycznie :cry: To musisz jednak zastosować VBA :D Np taki efekt jak na zrzucie 945616 tzn. po wklejeniu nowych danych po wciśnięciu ctrl+r - makro "rozrzuci" Ci te dane na grupy na podstawie ID :spoko: Całość w załączonym pliku 945618
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
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
Niestety, ADR.POŚR działa tylko na otwartych plikach, a szkoda. Pozostaje VBA... Możesz: 1) połączyć otwieranie plików przy pomocy makr + ADR.POŚR 2) proste makro otwierania pliku i kopiowania danych 3) trudniejsze w składni, ale dające możliwość kopiowania z zamkniętych plików, makro z wykorzystaniem funkcji ExecuteExcel4Macro.
Możesz sobie dostosować makro z załącznika.
A jak będą cudzysłowy, to trzeba je zdublować, poza tym nie tylko średniki wymuszają dodawanie cudzysłowów. Skąd wiadomo, co user będzie mieć w pliku?
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....
Może i lepiej, ale kto z nas wie, jak działa makro w Wordzie?
Dzięki. Problem jest taki, że zależy mi, żeby makro kopiowało też nagłówki - te 2 pierwsze scalone komórki.
Nie mam wielkoego pojęcia o probramowaniu, będę wdzięczna za pomoc Mam plik który zawiera 75 arkuszy. 5 akruszy jest "stałych" (zawierają m.in. dane do których się odwołują pozostałe arkusze), a pozostałe mają taką samą sktrukturę ale inne dane Muszę: 1. utworzyć 70 nowych plików, gdzie każdy zawiera 5 "stałych" akruszy i jeden zmienny 2. Zapisać nowy...
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...
Wielkie dzięki Marcin, makro działa :) W trakcie prac nad plikiem pojawił mi się nowy problem. Plik NOWY zawiera nową wersję jednego z arkuszy znajdujących się w pliku STARY, kopiuję ten arkusz (ze zmienioną nazwą) do pliku STARY, makro dostosowuje mi m.in.formuły w innych arkuszach pliku STARY do aktualnej wersji, ale... problem polega na tym, że nowy...
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?
Witam. Proszę o pomoc w napisaniu makra bo jestem początkujący w tym temacie. Potrzebuję napisać makro, które skopiuje dane z tebeli po wcześniejszym przefiltrowaniu przy wykorzystaniu napisanego do tego celu marka, które już mam do drugiego pliku, które to makro samo otworzy. Do tej pory udało mi się stworzyć makro, które otwiera mi odpowiedni plik...
nie ważne czy plik jest otwarty przez użytkownika czy zamknięty Ważne ... będzie zupełnie "inne podejście do tematu" ... Jeśli plik będzie zamknięty, to najczęściej zastosowane zostanie ADO, jeśli nie znamy rozplanowania dnych w arkuszach zamkniętego zeszytu. Jeśli znamy i wiemy co, gdzie, w jakiej komórce, to można się tam będzie dostać "zwykłą formułką"...
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...
:) Proszę bardzo: [syntax=vb]Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Dim r As Range Dim i As Integer Dim car1(5) As String Dim aws As Worksheet Dim wb As Workbook Set aws = ActiveWorkbook.Worksheets(1) Set wb = Workbooks.Open(ActiveWorkbook.path & "\Zbiór_danych.xlsm")...
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.
Dziękuje za pomoc. niestetli Makro wysypuje się na linijce ActiveSheet.Paste nic sie nie dzieje. Zauwazyłem, ze jak jednak pootwieram wszystkie arkusze kolegów wtedy makro wkleja 2-3 pliki i znowu się wysypuje
Nie pozwoliło mi wkleić pliku z makro. Mam nadzieję, że to nie przeszkadza. Wklejam kod makro do teego pliku tutaj: Sub Kopiowanie() ' ' Kopiowanie Makro ' ' Sheets("Arkusz1").Select Range("A2,B2,D2,F2").Select Range("F2").Activate Selection.Copy Sheets("Arkusz2").Select ActiveSheet.Paste Sheets("Arkusz2").Select Range("F15").Select End Sub Dziękuję...
Stworzyłem (nagrałem) makro dla pierwszej tabeli (Tabela1), które będzie formatowało poszczególne kolumny. Błędne podejście do zadania :cry: Prościej będzie dopracować sobie jedną tabelkę (template), a potem kopiować całe arkusze :spoko: Na zrzucie widać wierne kopiowanie tabeli, a w załączonym pliku makro kopiuj() 952012 952013
Nagraj makro kopiowania arkusza do nowego pliku, oraz Kopiuj > Wklej Specjalnie - zaznaczając opcję "formaty". Ochronę też można nagrać, dopisując hasło.
Chciałbym utworzyć makro które będzie kopiowało określone kolumny do innych plików. Nie ma tam zamieszczonego Makra, bo nie wiem od czego zacząć niestety. Chciałbym, żebyście mi pomogli utworzyć jakieś podstawowe makro do kopiowania danych do innych plików. Cały folder z danymi chciałbym, żeby mógł być przenoszony do innych folderów (jako kopia), ponieważ...
Tworzenie referencji chyba wyjdzie na to samo co kopiowanie do każdego pliku tej funkcji... A takie makro co mowi (at)PRL byłoby dobrym rozwiązaniem
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 ?
Dziekuje ale dopiero sie ucze wiec poprosze o przedstawienie sprawy bardziej przejrzyscie. Super jak by to bylo mako dzialajace na przedstawionym pliku.
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...
Witaj Jest tylko indexy1.txt i indexy2.txt lub więcej plików tekstowych? Ma nazwy pliku stałych(indexy1.txt i indexy2.txt ) czy mogą być różne? Tam jest tylko indeksy(505-20-073), lub dłuższe wiersze? Te indeksy w osobnych wierszach? Dodano po 1 Pozostaje tylko chyba do odgadnięcia Spróbuj: [syntax=vb]Sub Idz() Dim ostw& Dim ns% Dim bs As Range, cs...
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...
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....
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
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]....
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?
Witam i proszę o pomoc - jeśli jest to możliwe. Stworzyłem makro kopiujące dane kolejno z wielu plików do pliku docelowego: 'kopiowanie z pliku 01 do docelowego w wierszu 5: Windows("plik_01.xls").Activate Range("P4").Select Selection.Copy Windows("docelowy.xls").Activate Range("$C$5").Select Selection.PasteSpecial Paste:=xlPasteValues 'kopiowanie z...
Słuszna rada, ale czy zamiast kopiować nie lepiej puszczać makro liczące (zamiast formuł) na danych w pliku źródłowym bez kopiowania? Powinno trochę poprawić, choć i tak otwieranie zapewne będzie trwało tak samo długo. Mniejsze pliki otwierają się szybciej, spróbuj to wykorzystać. Popatrz jeszcze czy jakiś antywirus nie sprawdza plików podczas otwierania.
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...
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....
Zobacz na tych plikach.. Kopiuje mi tylko z jednego pliku, a jeden zostawia w ogóle otwarty... Zasada działania ma być prosta: Otwiera pliki zaznaczone Kopiuje z nich wartości które odpowiadają wartością w pliku głownym zamyka pliki
Wiele jest napisane, szczególności niewiele(z wyjątkiem ~30 plików). Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek Gdzie to makro? Co najmniej łączenia plików(nazwy ścieżek plików). Gdzie jest ta tabela przestawna?
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
Czy jest możliwe zmodyfikowanie makra aby kopiował do określonego wiersza? Tzn.? Dane z pliku txt ma kopiować maksymalnie do jakiegoś wiersza w pliku txt, czy dane mają być kopiowane do jakiegoś konkretnego wiersza w excelu?
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
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...
Czy takie makro da się zrobić? Tak :D , ale chyba lepiej dwa oddzielne :spoko: Po drobnych zmianach w pliku tygodnie.xlsm 901448 umieszczony w Module1 kod sprawdza "stan arkuszy" i ewentualnie przygotowuje arkusz na nowy tydzień :!: Zmodyfikowano również plik suma pól.xlsm 901451 i wyposażono w makro do kopiowania potrzebnych Ci wartości z aktualnego...
W pierwszym pliku są kolumny z danymi (w tym w którym jest makro), chcę żeby do drugiego pliku kopiowało tylko wybrane kolumny po konkretnym nagłówku, 40 kolumn, 40 nagłówków, chcę żeby do pustego pliku brało tylko wskazane przeze mnie kolumny po wartości nagłówka (nagłówek jest w pierwszej komórce każdej kolumny, A1, B1 itd).
kopiowanie plików makro makro kopiowanie kopiowanie makro
grzałka parownik prześwietlenie kamer zmywarka whirlpool wirnik pompa
Jak odwiesić zawieszoną sekcję w pompie wtryskowej Bosch? Citroen C5 2002 - ciągłe piszczenie z okolic licznika