To sprawdź sobie takie rozwiązanie.
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
Weź Koleżanko sprawdź makro dla załączonego pliku... Potem porównaj ze swoim plikiem.
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.
[syntax=vbscript]Sub usun() For Each c In ActiveWorkbook.Names c.Delete Next End Sub[/syntax]
Po co kompilator? Mała podpowiedź - klawisz F8 w kodzie VBA. To co chcesz uzyskać zrobisz takim prostym kodem: [syntax=vbscript]Sub DzialajNaPlikach() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, PlikZrodlowy As Workbook, ArkuszDocelowy As Worksheet Sciezka = "c:\sas\" Plik = Dir(Sciezka & "*.xls*") Set ArkuszDocelowy...
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
Przetestuj makro z załączonego pliku. Arkusze 1 - 4 to arkusze z danymi źródłowymi Arkusz5 - arkusz na wiersze wytłuszczone
W międzyczasie... ;) Marcin, nie mogę zainstalować makra, wyskakuje mi komunikat, że nie mam zainstalowanej funkcji False, nie kompiluje się 1. Makr się nie instaluje, 2. Nie ma funkcji False 3. Makra się nie kompilują w dosłownym tego słowa znaczeniu :) Chyba będzie prościej jak wrzucę gotowy plik - jak ten CI też nie będzei działał, to ustaw poziom...
Witam [syntax=vbnet] With Sheets(tblArkusze(i)) .Visible = True [/syntax] Masz błąd bo musisz określić którego skoroszytu to dotyczy [syntax=vbnet]With wkb1.Sheets(tblArkusze(i)) .Visible = True End With[/syntax]
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
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...
I do not know how to do that. Macros are Google Apps Script, which runs in Google's servers rather than your computer. Their code has virtually no access to resources in your computer, such as the printer . Zamiast drukowania zrób makro do generowania pliku PDF, który potem po pobraniu możesz wydrukować. [url=https://developers.google.com/apps-...
Przetestuj makro z załącznika.
Cześć, sorry że po takim czasie ale parę niespodziewanych komplikacji było po drodze. Wracając do tematu, to makro i zapytania do odświeżenia są w tym samym arkuszu. Makro ma otworzyć pliki źródłowe chronione hasłem i odświeżyć połączenia w tym arkuszu.
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
Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza Jeśli w plikach z danymi występuje kilka arkuszy :?: to musisz skorygować kod makra wymieniając odpowiedni fragment na: [syntax=vbscript]Do Until Len(Plik) = 0 Licznik = Licznik + 1 Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Worksheets(1)[/syntax]
Dla podsumowania A formuła będzie wyglądać tak: =ADR.POŚR("'"&TEKST($A... & "!B13") (wstaw do komórki B2 arkusza podsumowanie roku) Z B i C, analogicznie - chyba sobie poradzisz?
Ad1. Mniej więcej taki kod: [syntax=vb]Sub Konsoliduj() Dim tTbl() Dim i: i = 1 For Each MyWorksheet In ThisWorkbook.Worksheets If (MyWorksheet.Visible = True) And (MyWorksheet.Name <> "Razem") Then ReDim Preserve tTbl(1 To i) tTbl(i) = "'" & MyWorksheet.Name & "'!R1C1:R2C2" i = i + 1 End If Next Selection.Consolidate Sources:=Array(tTbl()),...
Musisz wpisać coś takiego: ActiveWorkbook.XmlImport URL:="C:\Users\Humano\Downloads\" + Worksheets("Obliczenia").Range("D1").Val... _
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
Zamień linię: ActiveWorkbook.SaveAs "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name na: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name & ".pdf", Quality:=...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Makro zadziała przy otwarciu pliku. Zrobiłem kopię arkusza dla porównania. Możesz przed zamknięciem skopiować do "Arkusz1", zamknąć i otworzyć ponownie. Zmienna "kol" to Nr kolumny z datami. Przeanalizuj, dostosuj do własnych potrzeb
Cześć, Czy ktoś pisał kiedyś makro importujące kilka plików PDF do arkusza excel i chciałby się tym kodem podzielić ?
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.
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
dziekuje za informacje , a moze jakas porada dzieki ktorej moglbym zaznaczyc wszystkie arkusze , i nacisnac np skrot ctrl+shift+t zeby sie makro zrobilo do wszystkich arkuszy na raz , mam 100 plików , w kazdym 30 arkuszy , i wlasnie chcialbym to jeszcze usprawnic .
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,...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Załącz może przykładowy plik.
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
Dodano po 3 Konkrety i przykłady padły. I pewnie mają sobie tak leżeć.;)
Mimo tej modyfikacji, makro cały czas zachowuje się tak samo - wywala ten sam błąd. Przecież masz w nim te stare makro. Po podmianie makra na te co podałem wyżej, wszystko działa w pliku testowym2
W pliku jest 16 arkuszy, więc zmieniłem trochę warunki (opis w makro). P.S. Kod umieszczaj pomiędzy znacznikami 'Syntax' (opcja "Listing kodu")
dubel i blokada wpisu lub informacja, że podobny wpis istnieje gdzieś we wszystkich czterech arkuszach Tego bez makra nie zrobi się. Poza tym makro nie gryzie. Makro to cześć Excela... Makra nie trzeba przerabiać, gdy ilość arkuszy się zmieni. P.S. W Twoim pliku można duplikować dane w kolumnie B.
plików do importu jest setka i kazdy ma milion wierszy, chciał bym takie makro ktore importuje te wszystkie pliki do jednygo arkusza i kazdy plik był w kolejnej kolumnie
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
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...
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
Tak w wielkim skrócie, widziałbym to mniej więcej tak (załącznik). Czy arkusz "Baza" jest w tym, czy innym pliku - nie ma w tej chwili znaczenia.
Mam plik .xsl z licznymi arkuszami. Potrzebuję by do jednego pliku .pdf drukowały się wybrane arkusze W pliku mam arkusz ze spisem treści (nazw arkuszy w pliku - kolumna B) przy których (kolumna C) zaznaczono niezbędne do druku arkusze (naprzeciwko których zaznaczono "PRAWDA"). Czy poradzicie jak stworzyć makro do druku? Dziękuję ogromnie!
Nie wiem czy dobrze rozumuję. Wyniki obu porównań można umieścić w odpowiednich arkuszach pliku "makro.xls", skopiować (arkusze wynikowe) do nowych plików, nadać im nazwy i zapisać (zamknąć z zapisem).
Zeszyt rozumiany jako inny plik? Tu już trzeba wyjaśnic dodatkową nieścisłość. Czy makro ma wcześniej otworzyć ten zeszyt czy jest już (i będzie zawsze przy próbie uruchomienia makra) otawrty? Na marginesie Proponuje ci pouczyć się samamu. excel ma coś takiego jak nagrywanie makr. Włącz nagrywanie Zrób to co chcesz zrobić z plikiem, arkuszem itd wyłącz...
W takim razie Word jest tutaj zbędny. W pliku z kontrahentami utwórz arkusz z tabelką dokumentu dostawy i wtedy napiszemy makro w Excelu. P.S. Jak masz Akcesa, to jeszcze lepiej byłoby zrobić prostą bazkę.
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
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;...
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
Nie ma uniwersalnego rozwiązania w takim przypadku. Można oczywiście zapisać plik z makrem jako dodatek i aktywować go w oknie "dodatki", ALE: jeśli ktoś zmieni nazwy, kolejność indeksów arkuszy (jeśli nie nazwy) to kicha. Spróbuj może w ten sposób: 1. Dostajesz plik z logami (gdzieś trzeba by go zapisać). Tutaj arkusz z danymi musi być rozpoznawalny....
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
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
Cześć, potrzebuję pomocy w napisaniu makra, które dzieli 1 zbiorczy excel z kilkoma arkuszami na wiele plików z takimi samymi arkuszami. Wprowadzam numer wiersza i kolumny po której ma dzielić pliki oraz lokalizację wejściową i docelową. Poniżej wklejam kod, działający dla pojedynczego arkusza, wielka prośba o pomoc jak zmienić kod aby tworzyło po kilka...
Problem polega na tym, ze nazwy w kolumnie A czasami sa dłuższe niż 31 znaków i wywala mi bład w tej linijce: temp.name = ark.Cells(i, 1) Wystarczy zrobić: Run _ time erroe '9'. Subscript out of range. A całe makro zatrzymuje się na linijce With Workbooks(cleanName & ".xls") Wydaje mi się, że chcesz osiągnąć inny efekt, niż próbujesz. Chcesz wysyłać...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Źle odczytałem zadanie. Myślałem, że chodzi o import arkusza z wielu plików. Dawno temu był taki temat, do którego napisałem makro.
Excel-pliki(tam de rożne osoby wypelniają własne dane ) mają tylko jeden arkusz? jako makro musi znać nazwę "źródła". "Źródło" w tym samym folderze co reszta plików?
Załącz plik w excelu, pokaż jak wyglądają listy i arkusze. Opis jest niejasny.
Działa w takim zestawieniu Masz źle zrobioną instrukcje 'If Not otwarty Then' a co jeżeli plik masz otwarty? "nie pytaj ponownie", po którego aktywacji kolejne załączenie makra, do zamknięcia arkusza masz makro do zamknięcia arkusza?
Kurcze, szukałem na prawde długo i nic nie mogę znaleźć. Jest dużo o imporcie .txt i .csv, ale o .xls i .xlsx nie mogę znaleźć :( Być moźe dlatego, że niepoprawnie zadaje pytanie do szukania. Będę wdzięczny za każdą wskazówkę Pozwól sobie pomóc i napisz jak ten import ma wyglądać? Gdzie znajdują się pliki do importu, jak się nazywają, jak mają się...
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...
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Zamieść plik źródłowy i zrzut ekranu arkusza z wynikiem.
Troche źle się wyraziłem. Potrafię dostosować niektóre kody... nie wszystkie Nie wiem jak nagrać makro, które przeszuka wszystkie arkusze, we wszystkich plikach w folderze i skopiuje dane tylko z tych, w którym dana komórka jest wypełniona.
Nagraj makro kopiowania arkusza do nowego pliku, oraz Kopiuj > Wklej Specjalnie - zaznaczając opcję "formaty". Ochronę też można nagrać, dopisując hasło.
Najlepiej jest rejestrowanie makra w celu otwarcia pliku tekstowego programom Excel
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
wybaczcie mi literówkę, oczywiści chodziło mi o VBS (Visual Basic). Moje pytanie dotyczy jednego z elementów składowych programu, który w znaczący sposób usprawniłby obsługę całego programu. Nie mam pojęcia jak mogę to zrealizować, wiec będę wdzięczny za jakiekolwiek naprowadzenie mnie. czy w ogóle jest opcja skopiowania arkusza z pliku Excela bez jego...
Uwierz mi że tak nie nauczysz się pisać programów. Nakierowałem Ciebie na dobrą drogę, a teraz kombinuj. Masz tutaj http://dzono4.w.interia.pl/kurs/dodatki/... przykład procedury uruchamiającej się SAMOCZYNNIE podczas aktywacji arkusza. Oczywiście piszesz to jako makro.
Wyłącz alerty. Zamiast [syntax=vbscript]With wkb2.Sheets(2) .Delete End With[/syntax] wklej [syntax=vbscript]Application.DisplayAler... = False wkb2.Sheets(2).Delete Application.DisplayAlerts = True[/syntax] Jak zapewne zauważyłeś, nie ma sensu stosować bloku 'With" dla jednej linijki kodu. ____________________ :) spóźniłem się...
2. dane znajdują się w 2 różnych arkuszach - fizycznych plikach.
To znaczy, że coś nie zgadza się z założeniami. Prawdopodobnie nazwy plików. Zapuść takie makro (aktywny arkusz z przyciskiem) [syntax=vb]Sub sprawdz() sciezka = Range("G11") plik = Dir(sciezka & "*.xls") While plik <> "" licz = Len(plik) - Len(Replace(plik, " ", "")) If licz > 1 Then MsgBox "plik " & plik & " ma w nazwie " &...
1. Każdy plik ma unikalną nazwę. 2. W każdym pliku są 2 arkusze o nazwach (ORYGINAL i KOPIA). Chciałbym, żeby nazwa arkusza była taka sama jak pliku. Czyli dla pierwszego skoroszytu: Arkusz1 = nazwa pliku Arkusz 2 = nazwa pliku(2) lub nazwa pliku(K)
Nagranie marka pomogło częściowo. Dane mam w arkuszu PLIK cut, stąd odwołanie, dane się odświeżają. Makro wygląda tak: Sheets("PLIK cut").Select Selection.QueryTable.Refresh BackgroundQuery:=False Ale po odświeżeniu excel przeskakuje w arkusz z danymi. Da się dopisać makro żeby wrócił do głównego arkusza? Plików na których pracuje nie chciałbym dołączać,...
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) Niemniej jednak proponuję najpierw odfiltrować całą oryginalną kolumnę (niepuste) i skopiować wszystko za jednym zamachem do nowego arkusza - trwa jedno mrugnięcie okiem.
Makra w pliku nie ma.
Po wpisaniu dostaję ścieżkę do pliku Gdzie to wpisujesz? W komórkę w arkuszu. Obok mam formułę wyszukaj pionowo, po wpisaniu numeru dostaje ścieżkę do pliku.
Jaka prędkość łącza przez jakie jest udostępniane i jaka wielkość pliku Arkusza?
Wystarczy umieścić takie makro w procedurze arkusza 'Worksheet_Change'.
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...
Bardzo dziekuje, dziala! Jeszcze tylko potrzebowałabym zmienić to makro tak, aby dzialalo w każdym z arkuszy, a nie tylko w jednym, aktualnym, tak, żeby nie musiec podpinac go za każdym razem, w przypadku dodania do pliku nowego arkusza..
Ważne plik z Makrem trzeba zmienic format na xlsm. bo tutaj jest jakas blokada i nie pozwala dodac takiego pliku jako załącznik:( W makrze zagniezdzonym w pliku powinny kopowiac sie dane do arkusza o nazwie CSV, wedlug poniżych założeń, nie wiem czemu nie przekleja mi tych danych [syntax=vbscript]Sheets("Arkusz1").Selec... Columns("BV:CZ").Select Selection.Copy...
Makro jest w pliku ZBIORCZY.XLSM. Te 1_19, 2_19, ..., n_19 nie mają w sobie makra. Z nich makro napisane w pliku ZBIORCZY.XLSM kopiuje do pliku ZBIORCZY.XLSM wiersz nr 2 z Arkusza 1.
Efekt "uporządkowania" - jak na zrzucie 951257 danych zapisanych w arkuszu 1 (u Ciebie "przed") można uzyskać poprzez przekształcenie tabeli do arkusza 2 (u Ciebie "po") przy pomocy makra (uruchamianego skrótem ctrl+b) - jak w załączonym pliku. 951258
cześć prośba o pomoc mam zarejestrowane makro, uruchamia się w jednym arkuszu , prośba jest taka aby podpowiedzieć jak zmienić kod , żeby makro mogło uruchamiać się w innych arkuszach w pliku. [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Range("B8:U99").Select ActiveWorkbook.Worksheets("13_03_zm II").Sort.SortFields.Clear ActiveWorkbook.Worksheets("13_03_zm...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Witam, mam problem z napisaniem makra w VBA. Mianowicie, mam plik o nazwie "program" w którym, znajduje się tabelka (zał.1.). Przycisk ma za zadanie otworzyć wskazane przeze mnie pliki i z otwartych plików skopiować wartość komórki A146 z arkusza o nazwie "ORZ". Nazwy plików, które otwiera makro są różne, a w każdym pliku jest arkusz "ORZ" i wszędzie...
Wpisałem jak poniżej Set dirObj = MergeObj.Getfolder("D:\Arkusze\")
Nie za bardzo rozumiem. Mógłbyś rozwinąć o co chodzi z "wyciąganiem danych z innych plików"?
Hm... ;/ Rozumiem, że znajduje ZŁOM w danym zakresie i jeśli znajdzie to dany wiersz przenosi do arkusza "Zezłomowane". Tak też jest OK, ale dlaczego po uruchomieniu makra, w arkuszu "Spis końcówek lotów" widnieja tylko ZŁOM. Nie bardzo rozumiem co masz na myśli mówiąc "błędy w arkuszu".
Tak, w momencie przekształcania plik źródłowy jest otwarty. Po uruchomieniu makro widać, że przechodzi do arkuszy lecz nie zmienia formuły na wartość (kiedy wstawiłem do kodu {ENTER} o którym wspomniałeś to komórki przeskakiwały w dół tylko na tym jednym arkuszu gdzie znajdował się przycisk do makro)
Jeśli plik jest w formacie >Office2003 (xslx, xlsm, docx, docm, etc), należy zamieszczać po spakowaniu zip/rar.
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
Hmm, może zastosować okno dialogowe do wyboru pliku, arkusza, kolumn, wierszy, wg wzoru z załącznika.
Arkusze Excell jako "baza danych" to kiepskie. Z wielu powodów, w tym przez sytuacje wielodostepu
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
makro arkusz arkusz makro makro plików
renault ręczny hamulec zacięcie stacji serwisowej iveco daily problemy klimatyzacja
zderzak naprawa zderzak naprawa
Odtwarzacz MP3 Lazer OFM01 działa tylko pod ładowarką Spalony stabilizator napięcia i diody Zenera w płycie indukcyjnej Mastercook