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...
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 (at)adamas_nt podał linka gdzie masz tam wstawianie procedury.
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
Ten plik, który pokazałeś jako wzór ma zupełnie inną strukturę i raczej trudno go dopasować do Twojego nowego pliku. Szkoda, że nie ma w nim żadnych danych, żeby zweryfikować czy formuły kopiują się poprawnie. Poza tym nie wiem, czy tak jak w pliku wzorcowym istotne jest wstawianie wierszy, czy wystarczy samo kopiowanie. W pliku wzorcowym były podsumowania,...
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Męczę raport i próbuje napisać makro , które by działało następująco: Jeśli komórka w plik1 ma określoną wartość (np wtorek) to przenieść wartość komórki która jest pod nią (w następnym wierszu) do pliku2 w miejsce (X,Y). Proszę pomóżcie.
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Witam, od kilku dni szukam odpowiedzi i nie mogę znaleść. Mianowicie muszę utworzyć makro, które będzie pobierało automatem pliki codziennie rano o określonej godzinie ( w ich nazwie jest data). Nowe pliki pojawiają się np 6.55 na dysku a o 7 makro musi przekonwertować je w taki sposób, żeby sumowało wartości liczbowe z plików i w postaci sumy pod odpowiednią...
Witam wszystkich życzliwych, z góry bardzo dziękując za pomoc. Zasięgałem już porady na tym forum ale potrzebuję doprecyzować już na konkretnym przykładzie. W załączeniu zamieszczam projekt, który potrzebuję stworzyć. Do rzeczy, potrzebuję stworzyć makro, które będzie przeszukiwało folder z plikami w których będą dane źródłowe i przenosiło te dane do...
Cześć Potrzebuje waszej pomocy. Obecne proste makro które mam: [syntax=vb] Sub Info() Sciezka = "Y:\BAZA INFO" Nazwa = Format(Now(), "yy.mm.dd.hh.mm") & ".xls" ActiveWorkbook.SaveAs Filename:=Sciezka & "\" & Nazwa ActiveWindow.Close End Sub [/syntax] zapisuje wypełniony plik w folderze BAZA INFO a dalej już musze sam przerzucać pliki do podfolderów...
Witam! Czy istnieje sposób albo możliwość stworzenia makra, które wpisane w pliku o określonej porze go otworzy, po otworzeniu wyskoczy komunikat, że plik zawiera łącza do innych źródeł z pytaniem czy je zaktualizuje - tu chciałbym aby wybrane zostało aktualizuj - po czym zapisze zmiany, zamknie plik i ponownie otworzy go kolejnego dnia o tej samej...
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...
CZeść czy ktoś mógłby mi pomóc w treści kodu makra, który wyszukuje na podstawie danej wartości w komórce np.AO1O_00123456_0 wyszukuje wartość która jest nazwą pliku i automatycznie dodaje hiperłącze? Tzn w moim przypadku wyszukuje po całej wartości która jest w komórce np. AO1O_00123456_0, a chciałabym żeby móc również modyfikować kod żeby wyszukiwał...
Witam, Jestem mniej niż początkujący, ale próbuję :) Potrzebuję makro, które zapisuje plik excel w formacie ddmmrrrx, gdzie "x" jest wartością komórki z innego arkusza. Docelowo ma zapisywać na dysku sieciowym w określonej lokalizacji, a później zamyka plik bieżący nie zapisując zmian. Na chwilę obecną mam coś takiego: [syntax=vbscript]Private Sub CommandButton2_Click()...
Witam Mam problem a mianowicie mam folder, który zawiera około 2000 plików excel, które różnią się od siebie tylko końcówką nazwy (przykład - dok_1, dok_2, dok_3 itp.) mam też nowy arkusz excela o nazwie "wyszukiwanie" w którym chciałbym aby po wpisaniu danej części nazwy (1, 2 lub 3) wyszukał mi dany plik i z tego wyszukanego pliku skopiował mi do...
Zrobiłem Makro (sterujące) uruchamiające inne makra ale zawsze po skończeniu ich wykonywania plik zamyka się. Wcześniej zrobiłem wszystko w 1 pliku ale zacząłem się gubić w module z 1000 linii i rozdzieliłem makro na kilka modułów. Makro wykonuje 1 makro po czym wraca do tego ponizej i pyta o kolejne itd. Makra pracują z SAP, nigdzie nie mogę znaleźć...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, jestem tutaj nowy i potrzebuję pomocy osób bardziej doświadczonych. Mój problem polega na tym że potrzebuję po wcisnięciu buttona aby utworzyło mi nowe zeszyty z nazwą pobraną z innego arkusza niż ten na którym jest przycisk znalazłem takie rozwiązanie : Sub CreateWBs() Dim lRow, x As Integer Dim wbName As String lRow = Range("A"...
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
Proszę o pomoc w stworzeniu pętli w makrze, które będzie przekopiowywało komórki z Arkusz2 do Arkusz1 i zapisywało plik o nazwie B4 (jak w pliku) Wiem jak przekopiować komórki oraz zapisać plik w przypadku kiedy mam jeden wiersz w tabelce natomiast napotykam błąd przy stworzeniu warunków, w których będą generowane kolejne pliki. Na razie korzystam z...
Witam, Mam problem z makrem, które dzieli duży plik na zakładki, filtrując po nazwie miasta. Makro działa w pętli, pobierając nazwę miasta z tabeli, ale przerywa działanie, gdy w zestawieniu brakuje danego miasta. Jak zrobić, aby zapisało pustą zakładkę i przeszło do następnego rekordu w tabeli.
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
Witam, mam taki kod makra, i chciałbym żeby zawartość komórek kopiowała się do innego pliku. Gdzie powinienem wstawić ścieżkę dostępu? Sub save() Dim cokopiujemy As String Dim linia As Integer ' jesli jest puste, wyswietl komunikat "UZUPEŁNIJ POLA" If (Range("F6") = "") Then Range("N8")...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
W tej wersji wybiera się wszystkie pliki do importu za jednym razem. Prościej się chyba nie da. (at)maciejgonet Widzę, że używasz 365. Ja mam dostęp tylko do wersji darmowej A1 i tutaj nie widzę wcale możliwości użycia makr... https://obrazki.elektroda.pl/4569294400_... Poprosiłem kolegę, który ma 365 i makro działa poprawnie. https://obrazki.elektroda.pl/3843900100_...
Hej Od pewnego czasu borykam się w pracy z monotonną czynnością kopiowania i rozdzielania ilości w wierszach w pliku excelowym, chciałbym zakończyć to bezsensowne przeklejanie i stworzyć makro, niestety jestem amatorem, wcześniej głównie pracowałem już na stworzonych przez kogoś makrach i je tylko edytowałem. Chciałbym aby makro weryfikowało mi kolumne...
ok a dasz radę tylko w tym pliku co wysłałem dodać do okienka(usuń tabelki i usuń ostatnia tabelkę) kod to te pola na żółto ręcznie będę wypełniał.
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i wartości z kolumn zostały by skopiowane i wstawione "jako...
ok jeśli zdjęcia oraz plik do którego mają być wstawione zdjęcia są w tym samym folderze to działa, Ale jeśli np makro jest uruchamiany przez plik REKLAMACJE 2016 który jest na jednej lokalizacji, a zdjęcia mają być wrzucone do pliku o nazwie FORMULARZ PL który też jest gdzie indziej wstawiony, a folder zdjęć ma być "Zmienny" w zależności o którą reklamację,...
Mój problem, można rozwiązać makrem? Czy znajdzie się osoba, która może mi pomóc? Dodano po 2 Mam makro do separacji liczb, oto one: [syntax=vbscript]Sub Separator() Dim Rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "Karta weryfikacji" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address,...
Zbyt enigmatycznie opisujesz kolego swój problem :cry: (dodatkowo brak przykładowego pliku lub ilustracji :!: ) Co tam ma być w tych wierszach "stopki" każdej strony (rozumiem, że strony wydruku ? analogicznie jak wstawianie początkowych wierszy :?: ) - sumy częściowe, jakieś wartości do przeniesienia, czy stałe informacje tekstowe ? W podobnych przypadkach...
chciałbym pobierać listę indeksów i nazw z zewnętrznego pliku excela Nie kombinował bym tu zbyt dużo. Kopiuj-Wklej (makrem lub ręcznie) do arkusza pomocniczego i mamy dane w zasięgu. Z zapisywaniem podobnie - nagraj makro kopiowania arkusza do nowego pliku i dostosuj (czyt. posprzątaj po rejestratorze). jak zrobić aby po kliknięciu ok w formularzu...
Witam, Firma składająca się z kilku Oddziałów, które dzielą się na Zakłady ma do wprowadzenia pewne standardy korporacyjne. Polega to na tym, że na zadane pytanie każdy Zakład lub cały Oddział musi odpowiedzieć "tak". Jeśli wszystkie Zakłady odpowiedzą "tak" to w pliku zbiorczym zaznacza się,że dana rzecz jest zrobiona w całej firmie. Zaznaczanie, że...
Super, wielkie dzięki. Brakuje mi tylko wisienki na torcie tzn: skoro już pobiera adres obrazu z komórki to po co wyświetla mi okno do wyboru pliku. Idealnie by było gdybym tylko włączył makro a ono wstawiło obrazek bez pytania skoro ścieżkę pliku ma podaną w komórce. Teraz wygląda to tak: " Sub Nieobudowany() ' ' Nieobudowany Makro ' Option Explicit...
Witam Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie [syntax=vbscript] Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog...
Jak pomyślałem, tak i zrobiłem. Za pomocą jednego z programów EDA narysowałem obrys 100 mm x 100 mm z originem w lewym dolnym rogu, w koordynatach 20,20 oraz 80,20 umieściłem przelotkę (średnica padu 1,2 mm, średnica otworu 0.5 mm). Połączyłem ścieżką o szerokości 1 mm. Wygenerowałem gerber. Odfiltrowałem zawartość ze śmieci (gerber dalej poprawnie...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Witam! Nie będę owijał w bawełnę: to jest mój pierwszy kontakt z vba w excelu i poległem. Problem jest taki(oczywiście bardzo upraszczając arkusz): wpisuję wartości do komórek: A1, A3, A5 i w momencie opuszczania komórki A5 (wciśnięcie entera) chciałbym aby w A6 została wpisana wartość SUMY z A1,A3,A5 następnie kursor ustawia się w A6 i jeżeli wartość...
Witam, Zostałem poproszony o przygotowanie pliku excel aby po implementacji z pliku xml do Excela wszystkie dane były czytelne, i tu zaczyna się mój problem. Po eksportowniu pliku xml wszystkie kolumny wczytują się jak powinny jedna koluma która zawiera 26 cyfr w excelu wyświetla się w takim formacie 4,210E+25 jednak rozwinięcie tego zapisu nie daje...
Witam, Chciałbym, żeby w wysyłanej wiadomości email pojawiała się ścieżka do pliku będąca hiperłączem. Stworzyłem makro poniżej, ale nie wiem jak sprawić, żeby w tekście wiadomości email pojawiało się hiperłącze. Będę wdzięczny za pomoc specjalistów :). Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Potrzebne jest mi makro które będzie dzielić zawartość komórki wklejona z pliku *.txt na kolumny. Próbowałem przerobić na własne potrzeby makro znalezione w sieci jednak wyskakuje mi jakiś błąd i nie mogę nawet sprawdzić czy działa nie znam się kompletnie na Visual Basicu wiec nie zdziwię się jeśli wszystko jest źle mam nadzieje ze ktoś mi z tym pomoże...
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
kolega mariuszlorenc ma 100% racji ja dodam tylko, że jeśli w pliku dołączanym chciałbyć użyć zdefiniowane przez siebie MAKRa to wtedy .INCLUDE "PLIK.INC" wstawiasz nie na końcu, a na początku programu tak żeby były widoczne dla preprocesora przed wystąpieniem makra w kodzie pozdr
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Proszę. 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.
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
Makro musiało Te makro to właśnie wstawianie 'wyszukaj.pionowo'
Teraz jest ok jeżeli chodzi o tworzenie pliku DXF. :-) Jest jeszcze jednak mały problem techniczny zapisu rekordów w samym pliku, a mianowicie przed każdą liczbą i po każdej liczbie w danym rekordzie makro wstawia spację np. "30" natomiast powinno być tak "30" (sama liczba tak jak jest wpisane w komórce). Przy ciągach literowych ten problem nie występuje.
To dlatego, że w tym pliku wykorzystujesz znaki ======= jako separator graficzny, natomiast Excel po wstawieniu tego w komórkę traktuje to jako zaczątek formuły i zwraca błąd. Wystarczy sformatować kolumnę, w którą wstawiasz te komórki, na sztywno jako tekst: ręcznie lub programowo, gdzieś na początku kodu umieszczając: [syntax=vb]Arkusz1.Columns(1).NumberForm...
Obydwa pliki są puste w środku...
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...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Witam serdecznie. Codziennnie operuje w wordzie na setkach plików. Te działania zajmowały mi po kilkanaście godzin. Postanowiłem spróbować zrobić makro. Moja wiedza szybko się skonczyła. Stworzyłem przy pomocy rejestratora makro, które wstawia odpowiednie słowa w pliku worda, pogrubia je itd. To działa bez problemu. Problem zaczyna się wtedy gdy chcę...
A jak te pola tekstowe wstawiasz? Może zamieść przykład pliku z takim polem?
w kolumnach AC a AR jest normalne ? nie tak samo makra wstawia linka do użytkownika. Czy da się ustawić tak by makra objęła jedynie komórki od AP11. Dodano po 1 pierwsze makra (kopiujące przy otwarciu pliku użytkownik z pliku źródłowego) tez tak kopiuje, że wstawia link do formuły.
Witam w załącznikach dodałem przykładowe pliki bardzo okrojone ale mające pokazać o co mi chodzi. Prosiłbym o pomoc w zrobieniu makra które przeniesie dane z pliku DANE do pliku STATYSTYKA. Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby...
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
Oczywiście. Z tym, że to jest, na oko, dość... proste. No i brakuje najważniejszej informacji. Na podstawie jakiego zdarzenia obrazki mają znaleźć się w arkuszu? Coś się musi wydarzyć, żeby zadziałało makro. Np zmiana w D6, naciśniecie przycisku, otwarcie pliku, aktywowanie arkusza (niepotrzebne skreślić)
To jest jakby pokłosie tego o czym pisałem z Tobą w sprawie wstawiania kodu makra. Doszedłem do wniosku, że nie bardzo poradzę sobie chyba z tym makrem wstawiającym kod. Ponieważ na innym forum zaproponowano mi, żebym podmienił arkusz, pomyślałem, że tak będzie prościej. Generalnie mój pomysł opierał się na tym, że z otwieranego pliku miałem kopiować...
Nie baw się w makra, tylko wydziel sobie arkusz i wstaw w nim 50 łączy do plików. W arkuszu "raport" oblicz tylko sumę... Z drugiej strony: jeśli już koniecznie VBA, to bez wstawiania łączy i otwierania plików zrobisz to wygodnie za pomocą ExecuteExcel4Macro z odpowiednimi argumentami.
od razu mowie ze kompletnie nie znam sie na Makro To może trochę teorii na początek? Np Sub przyklad() sciezka = Application.DefaultFilePath & "/" plik = Dir(sciezka & "*.xls") Do While plik <> "" MsgBox plik plik = Dir Loop End Sub to będziesz w połowie drogi. Wykorzystaj też rejestratora...
Wypada zacząć od tego, że Excel nie jest twierdzą szyfrów i wszystkie zabezpieczenia są tu raczej symboliczne, to znaczy mają uświadomić użytkownikowi, że robi coś, czego robić nie powinien. Natomiast jeśli użytkownik jest zdeterminowany, to zawsze może znaleźć obejście, żeby coś niedozwolonego zrobić. W przypadku gdy zabezpieczenie bazuje na VBA, wystarczy...
Twoje założenia - efekt jak na zrzucie :spoko: 927779 można zrealizować makrem jak w załączonym pliku :ok: 927780
makro wstawianie makro pliku makro wstawianie danych
rezystor satel kolor pixela sharan włącznik
junkers usterki junkers czerwona dioda
Lokalizacja sterownika PTCU w Mercedes W213 220d Lokalizacja modułu PTCU w Mercedesie W213 220d
