Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
Wymodziłem Ci coś takiego na szybko... Mam nadzieję że pomoże.
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
: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...
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...
Na forum jest wiele podobnych tematów, poszukaj. P.S. W załączonym pliku nie widać Twojej walki.;)
[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]
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Witam Selection.Copy 'kopiuje Application.CutCopyMode = False Wątpię, że będzie to wkleit gdzies...
Wypróbuj: [syntax=vbscript] Sub xyz() Const pathSrc As String = "C:\test1\" ' folder źródłowy Const pathDest As String = "C:\test2\" ' folder docelowy Dim StrFile$, WbkSrc As Workbook, WbkDest As Workbook StrFile = Dir(pathSrc & "*.xls") Application.ScreenUpdating = False Do While Len(StrFile) > 0 Name pathDest & StrFile As pathDest &...
Słaby pomysł z tym oknem dialogowym - trzeba się naklikać i to niepotrzebnie chyba, bo kolega napisał, że ma już otwarte pliki. Z innej beczki: 1. Jak wybrać te pliki? Mają może jakąś charakterystyczną część nazwy? Nie może to być taka sama nazwa jeżeli są jednocześnie otwarte. 2. Jak zidentyfikować arkusz do kopiowania? Może być stała nazywa, albo...
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.
Witam. Mam problem z jednym kodem którym kopiuję listę pracowników z jednego pliku do drugiego. Poniższy kod kopiuje mi tą listę jednak jest coś co robi się nie tak jak chcę. Mianowicie w kodzie jest zadane że przy skopiowaniu (aktualizacji) listy, aby listy zostały nazwane zakresami. Dokładnie to kopiuję 18 list pracowników do kolumn od A do R. Jednak...
Sub test() Dim plik As Workbook, baza As Workbook, wrs As Long Dim ostWrs As Long, kol As Integer kol = Month(Date) + 11 Set plik = ThisWorkbook Set baza = Workbooks.Open(plik.Path & "\base.xls") With plik.Sheets("OVERVIEW")... ostWrs = .Range("B65536").End... For...
Spoko, działa świetnie. Dzięki
Witam, potrzebuje uzyskać kod vba, kopiujący dane z arkusza roboczego, do innego pliku excel (Baza). Przykładowo" Kopiowanie zakresu od A4:K4" z arkusza roboczego , do pliku excel (BAZA) , ścieżka C:\Users\_______\Dropbox\Logistyka]"BAZA... Kopiowanie według wolnych wierszy w pliku BAZA. Dziekuje.
Poprawiłem błąd.
[url=https://www.elektroda.pl/rtvforum/v...
[syntax=vbscript]Sub KopiujPliki() kz = "C:\Users\Darek\Desktop\Próby\" kd = kz & "Nowy\" p = Dir(kz & "Raport_*.xlsm") While p <> "" FileCopy kz & p, kd & p p = Dir() Wend End Sub[/syntax]
A nie wystarczy wyłączyć obsługę zdarzeń przed otwarciem tego "innego" pliku? Zdarzenie Workbook_Open nie powinno się wykonać.
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
W sumie potrzebujesz otworzyć plik "wzór.xls", następnie poprzez 'Dir' pobierać nazwy kolejnych plików w pętli i albo je otwierać, albo pobierać zawartość komórki bez otwierania (ExecuteExcel4Macro lub wstawić wartość łącza). [url=http://www.elektroda.pl/rtvforum/vi... [url=http://www.elektroda.pl/rtvforum/vi...
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 ;)
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Przepraszam że się wcinam koleżance wyrobekj ale nie rozumiem w czym autor ma problem. Do autora Ustawiasz w "matce" odpowiedni filtr który ci pogrupuje dane. (np. w kolumnie ddd "niepuste") po wykonaniu zaznaczasz myszką obszar z wszystkimi danymi kopiujesz (prawoklik - kopiuj) przerzucasz się do nowego arkusza/pliku wklejasz (prawoklik - wklej) i...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
Witajcie, czy istnieje możliwość stworzenia czegoś takiego, by z jednego pliku w którym są dane wszystkich awarii wszystkich wózków widłowych, automatycznie kopiowało wybrane dane do oddzielnego pliku będącego plikiem indywidualnym danego wózka? Pozdrawiam;)
Możesz sobie dostosować makro z załącznika.
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
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.
Witaj Pomysł 1:
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
Tak każdy miesiąc jest w innym pliku. Np. 01 - Styczeń, 02 - Luty itd.
No nie mów, że nie wiesz... [syntax=vbscript]Y.Sheets("Arkusz1").Ran... = X.Sheets("Arkusz1").Range("A1")[/syntax] Zamień A1 na właściwą komórkę.
Witam Jeśli dane okazują się być takie same w innej linii, jak Excel odróżniają nowych wierszy?
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...
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?
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 jaką wersje masz oprogramowania do myszy? Screen z ustawień daj co masz gdzie przypisane. Jaka wersja TC? Może zmień na inną Czy jak zamkniesz totala to mysz zaczyna działać? Edit Z grubsza przetestowałem po przypisaniu kopiuj/wklej do myszy g602, win7 x64, odpalane excel, foxit reader z pliku z okna TC kopiuj/wklej działa. 8,58,183 wersja softu....
Witam Załączyłem dwa pliki. Po pierwsze chcę aby dane z pliku Zeszyt1 z kolumny od B do E począwszy od wiersza 10 do 1000 zostały skopiowane do pliku Zeszyt2 (Arkusz1) do kolumn od B do E, począwszy od wiersza 2. Następnie po skopiowaniu danych, dzięki użytej formule na rozpoznanie krajów, w tym samym arkuszu pojawią się wyniki (kolumna K i L wiersze...
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...
w zalaczniku plik scriptit, wraz ze skrotem jak cos uruchomic, wraz z 5 przykladowymi programami, milej zabawy!
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
Moje wypociny z innego forum: http://www.excelforum.pl/viewtopic.php?t... http://www.excelforum.pl/topics3/kopiowa...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
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.
Pliki są generowane ze skanera etykiet i chciałbym aby po podłączeniu skanera do komputera przy pomocy jednego kliknięcia w Excelu, pliki tekstowe z folderu skanera kopiowały się do arkusza a potem wszystkie pliki zostawały przenoszone do innego folderu w komputerze. Plik tekstowy wygląda tak
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
Witam Mam mały problem, może ktoś pomoże. Mam skoroszy excel np A Mam w nim dane powiedzmy komórki od A1 do G1. Chciałbym żeby dane z komórek B1 c1 d1 kopiowały się do innego pliku Excel bądź nowego skoroszytu. Ale to nie problem. Problem w tym że nie mogę skopiować danych z komórek o pierto niżej. Plik jest codziennie aktualizowany więc pisać makro...
Wydaje mi się, że poniższą linijkę: Cells(x, 2).FormulaR1C1 = "='[nazwa]WINTER 2010'!R" & y & "C" & 10 & "" powinieneś zamienić na: Cells(x, 2).FormulaR1C1 = "='[" & nazwa & "]WINTER 2010'!R" & y & "C" & 10 & "" i zrób tak w każdej linijce, bo w kodzie...
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...
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.
Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....
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
Łatwiej Otwórz instrukcja ' Open "C:\notatnik.txt" For Input As #1 Przeczytaj w pomocy Oraz Line Input
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...
[url=https://docs.microsoft.com/en-us/of...
Przede wszystkim ile masz stacji roboczych "pod opieką"? Ilu użytkowników? Do zbierania info o kompach proponuję wykorzystać SIW. Osobiście korzystam z SIW a dane kopiuję jako plik excel, co nie znaczy że taką bazę można zrobić np. w Access, bądź innym np. z pakietu Open Office (opensource). W tabelach masz wtedy pięknie ułożone co potrzeba, jakie HDD,...
Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]
(at)maciejgonet Ja bym podmienił na "tekst" i to rozwiąże problemy.(typu przeglądarka, pdf itp) Dzięki bardzo Teraz w zasadzie wszystko działa poza jedną rzeczą. Sprawdziłem chyba wszystkie możliwości kopiowania przez innych użytkowników i format wysypuję tylko przy kopiowaniu danych z pliku excela, który jest uruchamiany z innego systemu (np Excel...
Notatnik nie jest Excelem, a otwiera pliki CSV.;) Mądralo.
chce żeby z danego folderu pobrało dane ze wszystkich plików Import wielu plików jest w miarę uniwersalny, a 2020 jest przerobiony dla Ciebie.
Witam. Chciałbym stworzyć plik Excel który będzie jedynie kopiował dane z innego, identycznego pliku. Mianowicie na jednym pliku pracują dwie zależne od siebie grupy, sęk w tym aby przynajmniej jeden plik aktualizował się co jakiś czas lub na wywołanie. Najlepiej aby aktualizowały się dane jedynie w wybranych komórkach, jakiejś tabeli. Próbowałem rozwiązać...
kopiować dane najlepiej z pliku zamkniętego Poniżej najprostszy (czyli najwolniejszy: 1000 wierszy i 3 kolumny w 45 sekund) mechanizm kopiowania z zamkniętego pliku, wykorzystujący zwykłe odniesienie do pliku na dysku, postaci: 946005 Ps.: Przy wykorzystaniu np. ADO/SQL wyniki szybkościowe na pewno byłyby lepsze, ale mechanizm obsługi bardziej "skomplikowany".
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
...Jeśli chcesz kopiować z innego pliku, oba pliki muszą być otwarte w tej samej instancji Excela... Dokładnie o to chodzi, nie pomyślałem o tym. Nie ma sposobu aby pobrać dane z zamkniętego pliku w innej lokalizacji? Jeśli chodzi o przeliczanie to odbywa się w momencie otwarcia pliku lub pojedyńczej komórki naciskając F2.
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
Skorzystaj z Union(). Przykład: [syntax=vb]Sub zaznacz() Set reg1 = Range("a1:a10") Set reg2 = Range("d1:d10") Set reg3 = Range("f1:h10") Set multi = Union(reg1, reg2, reg3) multi.Select End Sub[/syntax]
Formatowanie w pliku wstawione jest takie, jakie będę otrzymywał z innych działów w firmie, czyli musi takie zostać.
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?
Witam, A próbowałeś nagrać makro, a potem podpatrzeć kod który się wygenrował (ALT+F11) ? :) Przeniesienie arkuszy do innego pliku masz jak klikniesz na zakładkach (akrusz1 i arkusz2) prawym przyciskiem i wybierzesz przenieś.
rozumiem że to tylko część makra? Oczywiście, to tylko fragment kodu, który wykonuje jedynie to co napisałem wyskoczy okienko, w którym będzie można wybrać pliki excela z dysku komputera Po wyborze konkretnego pliku :D możesz kopiować całe arkusze lub wybrane dane do swego pliku zbiorczego. Ta część makra uzależniona jest od specyfiki plików źródłowych...
Dziękuję, właśnie o to chodziło, ale czy jest możliwość aby po kliknięciu kolejny raz nie przenosiło poprzednich tylko dopisywało nowe? Ten skrypt ma jakieś ograniczenie? Dodałem go do swojego pliku (ok 2000 wierszy - ciągle rośnie) i skopiował tylko kilka.
czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli? Raczej tak. Chodzi o skopiowanie arkusza do pliku o nazwie wpisywanej do komórki na samej górze (Np "P3.xls")? Nagraj rejestratorem. Ale jeśli już makro, to "przy okazji" zamiast formuł w komórkach (łącz w nowym pliku), lepiej przypisać...
Ty no, czytam raz i drugi i nie rozumiem :D co chcesz osiągnąć? Tzn. co jest celem tej operacji? Chcesz zamienić coś na co? Czemu nie działa ZAPISZ JAKO? :idea:
Witajcie Nie znalazłem odpowiedzi na mój problem, zatem piszę. Mam plik Excel, w którym pewne komórki są zablokowane a pewne odblokowane do użytkowników. Problem pojawia się, gdyż użytkownik kopiuje dane z innego pliku i wkleja dane do mojego pliku ( w pola odblokowane). Po tym pola odblokowane "przekształcają się" w zablokowane. Przenosi format komórki...
1. Ten 1_19, 2_19, ..., n_19 itd. to oddzielne pliki xlms 2. Nie ma żadnego innego komunikatu
Dziekuje ale dopiero sie ucze wiec poprosze o przedstawienie sprawy bardziej przejrzyscie. Super jak by to bylo mako dzialajace na przedstawionym pliku.
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
Witam. Nie znam niestety VBA i mogę liczyć tylko na Waszą pomoc. Musze napisać makro, które skopiuje mi dane z pliku csv/txt do arkusza, przypisując jednocześnie nazwę pliku z którego zostało skopiowane.. .To jakby połaczenie tych dwóch kodów: Sub Importuj() Dim rg As Range Dim sciezka As String, plik As String, linia As String Dim T As Variant sciezka...
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...
Czy ktoś mógłby mi pomóc , poradzić jak się za to zabrać? Jeśli wszystko umieścisz w jednym skoroszycie, a następnie będziesz posługiwał się tylko "identyfikatorami", a nie gołymi nazwami miejscowości - to możesz rozwiązać swoje zadanie poprzez proste funkcje i dynamiczne nazwy zakresów wyszukiwania :spoko: - tak jak to widać na załączonym zrzucie...
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...
Musisz zamienić nazwę Arkusz1 na właściwą dla tego pliku w wierszu (ta część w nawiasie): Sheets("Arkusz1").Activate Ja bym to zrobił jakoś tak: Sheets(Cells(otw, "C")).Activate O to pytasz? Jeżeli chcesz skopiować tylko wartości to użyj PasteSpecial z odpowiednimi parametrami.
Ponieważ nie ma odpowiedzi, zakładam że nowe dane będą uzupełniane u dołu. W pliku propozycja rozwiązania za pomocą "poprawności danych". W kolumnie A sprawdzanie w jednej kolumnie. Formułę można kopiować także do innych kolumn. Dane zaczynają się w wierszu 1. Sprawdzanie trójkami w kolumnach D do F. Te formuły muszą być dopasowane do kolumn, więc trzeba...
Witam nie mogę sobie poradzić ze stworzeniem makra które ma zadanie skopiować dane z innych plików do jednego skoroszytu (razem.xls). W pliku "razem.xls" jest arkusz w którym w kolumnie "A", w kolejnych wierszach jest umieszczony numer np. X01, X02, itd do 100. W katalogu C:\Dane są założone podkatalogi które się nazywają tak jak ten powyższy numer...
Mianowicie robię mały porządek plikami w excelu i krzy kopiowaniu arkusza do innego skoroszytu wywala błąd ( jak w załączniku ) pytanie czy ktoś się kiedyś spotkał z owym błędem i się z nim uporał ? ?? dodam również iż po naprawie pliku przez office błąd nadal wyskakuje ??
[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\, ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, ' w komórce C1 -...
trochę zmieniłem podejście Musisz założyć z góry co chcesz osiągnąć a nie co chwile wklejać jakieś makra. "Widzę", że chcesz pobrać tylko 5 wartości z kolumn(F,J,L,N,W) można to zrobisz tak j.w czy przez zwykłe kopiowanie. Chciałbym, żeby napisany kod mógł sprawdzić czy plik jest już otwarty i jeżeli tak, żeby pominął krok otwierania pliku - nie udało...
abym mógł wpisać własną nazwę pliku nadal nie doszedłem Trudno zrozumieć gdzie masz problem z wprowadzeniem do kodu ten fragment z inputboxem :?: :cry: Możesz też wykorzystać inny sposób :idea: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name...
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję VBA do innej aplikacji. Ale możesz zrobić rekording makra...
Tu masz schemat kopiowania danych do innego pliku. Procedura sprawdzona, działa i jest używana. Wystarczy dostosować co ma być kopiowane i już. [syntax=vbnet] Private Sub Zapisz() Dim Src As Workbook, Dst As Workbook Dim S As String S = Application.ActiveWorkbook.Path & "\Braki-" & Format(Date, "yyyymmdd") Set Src = Application.ActiveWorkbook Src.Sheets(1).Range("A1:E"...
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
Bardzo dziękuję za pomoc, dopisałem formuły, przenoszenie danych i drukowanie działa idealnie. Twoja propozycja sprawdziła się i jest bardzo dobra. Pozostała mi jeszcze jedna kwestia, chciałem powielać szablon z wpisywanymi danymi by go następnie zapisać w pdf. Myślałem o dopisaniu kolejnego makra które by zamiast wydruku kolejnych stron arkusza wygenerowało...
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...
Twój drugi problem nie jest dla mnie zrozumiały. Jeżeli otworzyłeś plik STYCZEŃ i zapisujesz plik pod inną nazwą (LUTY), to będą w nim te same dane jak w pliku STYCZEŃ - a więc i ta liczba. Może jakiś przykład załączysz?
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....
Hej. Posiadam excela w wersji 2010, mam plik roboczy do którego kopiuje dane każdego dnia z innego pliku excela (codziennie jest on zmieniany i zapisywany z nową data). Dane które kopiuje są zawsze pobierane z tego samego arkusza i tych samych komórek. Czy jest jakaś możliwość by w wersji roboczej excela zapisać ścieżkę dostępową do pliku z którego...
excel kopiowanie komórek innego pliku excel makro otwieranie innego pliku wiersz innego pliku
linux puppy termopara przewody lodówka naprawa rozmrażanie parownika
wymienić wirnik wiertarki robot koszący
Awaryjne otwarcie bramy uchylnej Hörmann bez klucza, napęd nie działa – jak rozsprzęglić? Hörmann BiSecur – jak wzbudzić otwarcie bramy bez pilota? Shelly, Sonoff, wejście impulsowe