Spróbuj makra jak w załączniku uruchamianego przy otwarciu skoroszytu. Ale jeśli masz bardzo dużo zależności, to wyświetlenie wszystkich może być nieczytelne.
Sprawdź: [syntax=vba]Option Explicit Sub najmlodszy_plik() Dim plik As String, test1 As String, test2 As String, plik_do_otwarcia As String Const katalog As String = "c:\temp\" '"C:\DPD Polska\DPD Polska - Moduł Wysyłkowy\Raporty\" Const arkusz As String = "Arkusz1" '"DPD_OPOLE" Worksheets(arkusz).Activate plik = Dir(katalog & "*.csv", vbNormal) test1...
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ę...
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.
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Cześć, mam problem, którego nie potrafię rozwiązać. Mianowicie potrzebuje narzędzia, które będzie wyszukiwać zakładki w pliku excel po jego nazwie. Powinno być to w formie MsgBox. Np. mamy plik jak w załaczniku i chciałbym, żeby odrazu po uruchomieniu wyskoczył MsgBox, gdzie możemy wpisać interesujacy nas arkusz i otwiera się on po potwierdzeniu komunikatu....
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....
Witam. Napisałem proste makro kopiujące kilka komórek. Maklro działa mi bez problemu. Chciałbym jednak troszkę zmienić wygląd arkusza. Jak za pomocą makr ukryć paski przewijania, paski narzędziowe, menu i obramowania wierszy i kolumn widoczne w excelu. Próbowałem troszkę pokombinować, udało mi już po uruchomieniu wyłączyć paski narzędziowe, lecz gdy...
Hej Chcialbym napisac makro ktore z 22 arkuszy jakie mam (kazdy ma inna nazwe) usunely mi sie wszystkie ktore w komorce c7 maja pusta wartosc tzn nie ma tam nic. napisalem cos takiego For arkusz = 2 To 22 If Range("c7") = "" Then ActiveWindow.SelectedSheets.Delete End If arkusz = arkusz + 1 Next ... ale nie dziala tak jakbym chcial. Dacie jakas podpowiedz??
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
Witam Wszystkich Poszukuję rozwiązanie na temat makra. Mam skoroszyt z kilkoma arkuszami. Ilość danych na tych arkuszach jest uzależniona od pierwszej strony, gdzie zaznaczam czy dotyczy czy nie. Problem pojawia się, gdy przyjdzie mi wydrukować dane ze wszystkich arkuszy ze wszystkimi informacjami. Przypisane makro działa bardzo dobrze drukuje mi wszystkie...
Witam, mam taki problem a mianowicie: Potrzebuję makro, które po pojedynczym naciśnięciu na przycisk "UKRYJ" pozwoli mi ukrywać pojedynczo arkusz z wielu odkrytych arkuszy ( tj. jedno naciśnięcie - 1 ukrywany arkusz). To samo w przypadku odkrywania arkuszy. Po naciśnięciu na przycisk "ODKRYJ" również odkrywać pojedynczo arkusze. Oczywiście chodzi o...
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
Dziękuje. Domyślam że tylko w taki sposób można rozwiązać mój problem. Wolałbym aby każdy arkusz który ma być ukryty i zabezpieczony hasłem, był ukryty i zabezpieczony hasłem. Natomiast makro nie otwierało arkusza ale "wykonało pracę" i nie musiało ukrywać z powrotem arkusza. Zasada działania jak funkcji excela. Czy jest to możliwe?
Propozycja rozwiązania w oparciu o makro. W module uniwersalnym wpisałem takie makro: [syntax=vbscript]Sub NowaData() On Error Resume Next Dim ark As String With ActiveSheet ark = .Range("BA22").Value .Range("BI21:BI25").FormulaLocal = "=SUMA.ILOCZYNÓW('[Wyniki tygodniowe.xlsx]T" & ark & "'!$H$2:$H$23;--('[Wyniki tygodniowe.xlsx]T" & ark & "'!$G$2:$G$23=$BH21))"...
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
Na szybko przychodzą mi dwa sposoby: 1. Tworzysz sobie wzór - workbook, zawierający dwa arkusze, otwierasz go makrem i tam zapisujesz rezultaty 2. Tworzysz dwa arkusze w pliku z makrem, zapisujesz do nich rezultaty zapytań a potem kopiujesz te dwa arkusze do oddzielnego pliku. Oba sposoby są przećwiczone i działają bez problemów.
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...
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...
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Zrób odwołania do innych plików bez otwierania, tu masz opis [url=https://www.officekurs.pl/odwolanie...
Może jakoś tak: [syntax=vbnet] sub Test() dim Fn as string, Wb as object Fn=Dir("C:\twój katalog\*.xlsx") do while (Fn <> "") set Wb=Open(Fn) Sheets(2).Select Fn=Dir loop end sub [/syntax] Tylko otwiera plik i wchodzi do 2 zakładki, nic więcej nie robi.
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
Pytanie 1. - (nie zalecane) obniżyć poziom zabezpieczeń makr. - (lepsze) ustawić poziom zabezpieczeń na najwyższy i podpisać makra. Pytanie 2. Jeżeli za userform uważasz arkusz "__MENU__" to najprościej: w ThisWorkbook: Private Sub Workbook_Open() Sheets("__MENU__").Act... End Sub Zamiast arkusza możesz otwierać każdy inny...
Napisanie takiego makra nie jest czymś szczególnie trudnym, tylko ono będzie się dość długo wykonywać. Moja propozycja zmierzała do przyspieszenia tego. [syntax=vbnet]Sub kopiowanie2() ' ' kopiowanie Makro ' Dim r As Range Dim wkcalc As Worksheet Application.ScreenUpdating = False ' Workbooks.Open Filename:= _ "U:\Nowy folder\Arkusz B.xlsx" Set wkcalc...
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...
Tworzysz obiekt FileSystemObject Dim fs as object Set fs = CreateObject("Scripting.FileSystemObject... Z powyższego pobierasz obiekt folder Dim f as object Set f = fs.GetFolder(folderspec) Z powyższego pobierasz kolekcję plików Dim files as object set files = f.Files Z kolekcji pobierasz ilość pozycji (czyli plikow) num = files.count funkcją Rnd losujesz...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Można uzyskiwać również dostęp do danych w plikach zamkniętych Przecież wyszukaj.pionowo działa na zamkniętych skoroszytach i nie trzeba cudować z makroexcel4. Jak pominąć to otwierające się okno, aby makro samo otwierało plik i pobierało wartość? Masz źle zrobione odwołanie do skoroszytu (baza), oprócz samego pliku musisz jeszcze dodać z którego arkusza...
sprawdzone , załączam plik z danym. makro otwiera się bez problemu w wersji Microsoft® Excel® 2016 MSO (wersja 2202 kompilacji 16.0.14931.20118) 32-bitowa ( wcześniej błędnie podałem , zę to wersja 2003) problem jest w wersji 14.0.7015.1000 excel 2010 32- bitowa przypisane są dwa makra , makro 1 - utworzone przez zarejestrowanie excel 2010...
Ten post akurat widziałem, ale mi nie o to chodzi. To jest instrukcja jak szybko stworzyć przycisk w danym arkuszu. A mi chodzi o to, aby przycisk z konkretnym makrem przypisać do paska narzędzi tak abym widział go przy otwieraniu każdego arkusza
Jeśli plik, który jest otwierany, zawsze w tym samym folderze, np. C:\..\..\DaneCodzienne należy: w pliku makr osobistych w kodzie skoroszytu [syntax=vb] Private WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) If Wb.Path Like "*\DaneCodzienne" Then Wb.Sheets(1).Name...
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...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Kłopot polega na tym że nadal nie do końca wiem co chcesz. Jeżeli to w pełni zautomatyzujemy i ty będziesz to obsługiwał bezpośrednio na pliku excela to praca kolegi z tym związana nie będzie już potrzebna. (zanudzi się na śmierć :) ) Jeżeli dopuszczasz makra w swoim docelowym pliku "magazynie" to widzę to tak: otwierasz plik wciskasz przycisk np. nowa...
nagrywasz swoje czynności rejestratorem. 1. Włączasz rejestrator. Przypisujesz klawisz skrótu np "f". Makro uruchomi się ctrl+f 2. Zaznaczasz odpowiednie komórki kursorem, zmniejszasz je do właściwej wielkości i dajesz wypełnienie. 3. Zatrzymujesz rejestrowanie. 4. Otwierasz nowy arkusz. 5. Uruchamiasz makro ctrl+ klawisz skrótu.
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ę...
po wprowadzeniu uprzednio zarejestrowanych loginów i haseł otwierają się tylko arkusze dedykowane dla logującego się użytkownika :D Cześć, Twój plik to super-plik i jest w sam raz na moje potrzeby, ale gdzie się definiuje te loginy i hasła? Mam kilkanaście arkuszy do ukrycia przed niepowołanymi oczami i chciałbym wdrożyć Twoje rozwiązanie, ale zerkam...
Cześć, Potrzebuję stworzyć makro które będzie otwierało wszystkie skoroszyty (Arkusz 1) w danym folderze i z każdego kopiowało dane z konkretnej komórki D3 i wpisywało kolejno w wierszach dane z tych komórek D3 w moim skoroszycie. Zaczęłam to nagrywać ale nie wiem jak to usprawnić żeby działało automatycznie. Będę bardzo wdzięczna za pomoc:)
"Zabezpieczenie hasłem to nie jest zabezpieczenie, można to obejść. " nie ma zabezpieczeń których nie da się obejść... wszystko jest kwestją czasu :) czy istnieje możliwość zabezpieczenia takiego arkusza przed dowolnym przegrywaniem spakuj RAR`em i zabezpiecz hasłem, łamanie hasła do archiwum jest bardzo czasochłonne :) pozdrawiam,
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...
Zależy w jaki sposób je wskazujesz (w ListBox, w arkuszu, ...). Jednak w każdym przypadku trzeba będzie posortować.
Wystarczy umieścić takie makro w procedurze arkusza 'Worksheet_Change'. Nie lepiej przenieś makro do zdarzenia beforeclose? Pewnie to wordowskie makro otwiera ten D402 ładuje dane i go zamyka.
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
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.
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...
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Witam, Proszę o pomoc - jak powinno wyglądać makro czytające (otwierające) kolejne pliki wg listy (tekstowej lub excela - to obojętne). Wiem tylko tyle, że wyrażenie Windows("plik1.xls").Activate trzeba zastapić wyrażeniem Windows(s+".xls").Activate gdzie s to zmienna typu string do której podstawiamy dowolny tekst z dowolnego źródła (tabeli, arkusza,...
Mi przy otwieraniu umowy informuje że błąd pliku i mogła nastąpić utrata danych. Ale potem mogę działać. Zaraz spróbuje poprawić. Jak teraz poparzyłem to stwierdzam że miałem podobny kłopot z przyciskami i rozciągniętym wierszem gdy przechodziłem z plikami z 2003 do 2010. W chwili obecnej nie mam 2003 jak wrócę do domu to poprawie na 2003 (myślę że...
Opisz dokładnie co i jak ma się odbywać. Nie jest jasne jaki arkusz z otwieranego pliku ma być źródłem. Nie wiadomo, co z danymi źródłowymi robić. Te dodawane arkusze, to w źródłowym, czy docelowym? I tak dalej.
Idea byłaby taka: 1) Żeby wymusić włączenie makr na użytkowniku to arkusze byłyby domyślnie ukryte, 2) Po włączeniu makr pokazałyby się arkusze, które można uzupełniać, 3) Przy otwieraniu arkusza automatycznie robiłaby się kopia zawartości do arkuszy ukrytych, widzialnych tylko z poziomu VBA (veryhidden), 4) Żebyś Ty miał dostęp do arkuszy ukrytych...
Bardzo ładny kod. Wiem że trochę długa linia :), ale bez "nakierowania" na dany arkusz funkcji Cells() funkcja Copy(Destination) zgłaszała błąd. A z samym Range() zamiast Cells'ów nie mogłem sobie jakoś tu poradzić. :) Plus jest taki, że w tym wypadku makro nie otwiera danego arkusza (nie "skacze" do niego) i nie zaznacza kopiowanego obszaru, co wg...
w pliku są danę osobowe pracowników, więc najpierw musiałbym go "wyczyścić". Przy starcie jest makro, które ukrywa arkusze i włącza ochronę. Arkusz1 ma własne menu podręczne.
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
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
makro otwierające pliki makro otwierające folder arkusz makro
ładowarka impulsowa akumulator zacina papier toshiba odzyskiwać partycja ubuntu
siemens pralka instrukcja programator tango
Zwrotnica do STX T.10.200.8.PC i STX W.15.140.8.MCX Rejestrator nie włącza się przez gniazdo zapalniczki ani USB
