Na forum jest wiele podobnych tematów, poszukaj. P.S. W załączonym pliku nie widać Twojej walki.;)
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.
: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...
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...
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...
Witam Selection.Copy 'kopiuje Application.CutCopyMode = False Wątpię, że będzie to wkleit gdzies...
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...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
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.
Udało mi się dopasować pliki i przetestować. Za każdym razem pojawia mi się komunikat - w schowku jest duża ilość informacji, czy chcesz później wklejać je do innego programu. Może źle dopasowałem? nie mam wprawy w excel. Czy można wprost przenosić dane bez np formuł. Tzn w każdym pliku jest lista rozwijana z RM (wybór z kilkunastu opcji), czy też wyszukaj...
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.
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...
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ć...
Witam serdecznie. Mam problem nie byle jaki. Otóż wysłałem pewnej grupie osób wiadomość na maile, która miała zawierać plik z danymi. Niestety podczas wysyłania Excel wybrał sobie inny plik, którego nie powinienem wysyłać. Moje pytanie jest takie, czy to się da teraz jeszcze naprawić? Mam taką koncepcję, żeby teraz do wszystkich tych osób wysłać drugą...
Dziękuje bardzo marcinj12 za pomoc. Okazało się że jak przeklepałem kod do innego pliku wszystko chodzi :) Jeszcze raz dzięki wielkie! Pozdawiam
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 &...
Nie bardzo rozumiem problem, bo piszesz nieprecyzyjnie. Moim zdaniem wszystko działa prawidłowo. Jeśli chcesz kopiować z innego pliku, oba pliki muszą być otwarte w tej samej instancji Excela. Nie można odwoływać się do danych w zamkniętym pliku. Błąd #ARG! występuje, gdy dane z drugiego pliku są niedostępne. Czy to jest ten błąd typu danych, o którym...
Załączam plik z nagłówkami z wygenerowanego pliku (nie mogę pliku, bo są dane wielu osób). W zakładce "Dane" jest zrzut z power query. W arkuszu "Selekcja" chciałbym, aby automatycznie kopiowały się całe kolumny (zaznaczone na niebiesko) z "Dane". "Tab_Selekcja" stworzę tabelę przestawną. Czy to coś pomogło?
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...
Działa super, o to mi chodziło, Z tą liczbą przypisaną już sobie poradziłem. Zamówienie czasami jest na kilkanaście pozycji i żeby na WZ było widomo, że odnosi się to do pozycji np. 14 z zamówienia. Mam natomiast kolejny problem. Maksymalna ilość pozycji musi być 21. Jak zmienię tylko wartość Const MAX = 4 przykładowo na 6 to numer katalogowy wpisuje...
Formatowanie w pliku wstawione jest takie, jakie będę otrzymywał z innych działów w firmie, czyli musi takie zostać.
[syntax=vbscript]Sub Kopiuj() Application.ScreenUpdating = False Set a = Workbooks("plikodtworzeniowy.xlsm").Shee... Plik = Application.GetOpenFilename Set b = Workbooks.Open(Plik).Sheets(1) l = b.Cells(Rows.Count, "AP").End(xlUp).Row + 1 If a.Range("AP2") = "" Then l = 2 b.Range("B11") = "=RIGHT(R[-1]C,10)" a.Range("L" & l & ":L" & l) = b.Range("B1")...
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...
Witam Jakim rozkazem w vb mogę skopiować z otwartego pliku Excel arkusz do innego skoroszytu, który znajduje się w innym folderze. Skoroszyt docelowy jest "tylko do odczytu". z góry dzięki za pomoc
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"...
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...
Witam, Excel 2003. Mam taki oto wzór: =JEŻELI(CZY.BŁĄD(JEŻELI([1.xls]Arkusz1!$... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór """)));"błąd";JEŻELI([1.xls]Arkusz1!$L$1... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór"""))) Jak widać są odwołania do plików zewnętrznych. Problem...
Proszę bardzo: [syntax=vb]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI Then MsgBox "Zapis do innego pliku nie jest możliwy!", vbInformation Cancel = True End If End Sub[/syntax]Oczywiście można po cichu, bez Msgbox...
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
witam, w jednym arkuszu mam podstawową bazę danych typu: kolumna A-Nazwa firmy; B-adres; C-miejscowość itp. jest tych danych ok 8 kolumn. Jak zrobić by można był kopiować poszczególne dane danej firmy d inego pliku, w tórym wklejone te dane będą w odopowiednie rubryki. Dlateg ochce w odpowiednie rybryki, gdyż będą one wypełniać 4 następne arkusze które...
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Cześć to załączona moja baza danych i exel który zasysa z niej dane Szkoda kolego, że za każdym razem przesyłasz co innego i nie czytasz moich postów. Na podstawie Twojego pliku wynikowy.xlsx wyciągnąłem błędne wnioski co do poprawności budowy tabel bazy danych i możliwości ich wykorzystania do złożonej analizy danych :cry: Nie przekonwertowałeś wprawdzie...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Witam ponownie. Tym razem pominę temat kopiowania wzorów sytemu (ale do tego tematu jeszcze wrócę) a chcę poruszyć temat innego kopiowania. W ostatnim pliku jaki wrzuciłem w dolnych zakładkach są trzy arkusze którymi chciałbym się zająć. Jest tam zakładka o nazwie "Pracownicy". Arkusz ten posiada cztery różne listy pracowników a dokładnie listy dwóch...
Dziękuje za szybka podpowiedź. Jednak chodzi o co innego - pewnie nieprecyzyjnie się wysłowiłem na początku. Otóż nazwa źródłowego pliku (w kodzie KALKULATOR_1) zmienia się automatycznie (niezależnie od operatora) podczas zapisu pliku źródłowego. Przykład operacji: - otwieram skoroszyt KALKULATOR_1 (jest to kalkulacja zamówienia dla Klienta); - wprowadzam...
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 ;)
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
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].
Możesz sobie dostosować makro z załącznika.
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ę.
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...
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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
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"),...
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.
[url=https://docs.microsoft.com/en-us/of...
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.
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...
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
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]
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...
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.
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".
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.
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]
[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]
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:
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.
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....
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.)
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...
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...
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...
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.
Dodaję jeszcze plik Zeszyt1
:) VBA excel - Kopiowanie danych z pliku txt do textbox Wiem jak to zrobić z pliku xls a nie txt (at)lanzul : nie mam tam excela ... :)
A nie wystarczy wyłączyć obsługę zdarzeń przed otwarciem tego "innego" pliku? Zdarzenie Workbook_Open nie powinno się wykonać.
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...
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...
Mozesz zamiescic plik przykładowy jak wyglada formatka i plik gdzie te dane maja byc zapisywane?
[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 -...
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
masz kilka postów niżej temat VBA - excel - Makro - kopiuj wszystkie pliki
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.
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...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Z tego, co autor napisał, to ma każdy miesiąc w oddzielnym pliku.
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)
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....
Jeżeli we wszystkich plikach arkusze są jednakowe to wystarczy w głównym pliku w odpowiednich komórkach powstawiać odwołania do komórek w plikach pozostałych. I tak: w pliku głównym (zakładam, że pierwsza data jest w komórce A2) w komórce B2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce C2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce...
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.
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....
Wygląda na to, że potrzebujesz wartości z pojedynczych komórek: '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 A może poprostu pokombinuj z takimi formułami: =[plik2.xls]Arkusz1!$B$4...
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...
[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]
Ponieważ "kopiowanie" samego kodu towaru było zbyt proste :please: dołożyłem jeszcze wprowadzenie ilości (np. sprzedanych towarów :?: ) jak na zrzucie i w załączonym pliku :spoko: 1052538 1052540
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...
Mam małe pytanko jak zmienić makro aby zaczytywało z podkatalogu plików?
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.
Można też mieć przygotowany plik B (szablom) z makrem Y i do tego pliku kopiować dane z A.
Witam, Na samym początku zaznaczam, że mam pojęcie o programowaniu. Lecz w VBA jestem zielony. Nigdy w nim nie pisałem niczego skomplikowanego i nie jestem w stanie sobie poradzić. Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek. Następnie wszystko robię ręcznie. Kopiuję dane z zakładek i wklejam do odpowiednich...
Witam, Ma ktoś pomysł na napisanie makra opartego na poniższym algorytmie: 1. Otworzyć plik o nazwie "dane_"dzisiejsza data w formacie 13-feb-2012".xls" z lokalizacji c:\dane. 2. jeśli plik istnieje to dalej, jeśli nie to msgbox "nie ma jeszcze nowego pliku" 3. poprosić o wprowadzenie, które wiersze maja zostać skopiowane np. wiersz1, wiersz3, wiersz14......
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
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
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ń....
excel kopiowanie komórek innego pliku excel makro otwieranie innego pliku wiersz innego pliku
renault naprawiać zabezpieczenie falownika hybrydowego bezpieczniki licznikowe
izopropanol termopasty amica daw7123dcb
Optymalna temperatura do demontażu elementów SMD Wszystkie diody świecą w bojlerze Ariston Pro1 Eco 120V
