3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
wyskakuje jeszcze błąd z tą samą nazwą arkusza W Skoroszyt zawierający makra zostawić tylko jeden arkusz i dać mu jakiś unikatową nazwę(ale Excel, sam zmienia nazwę (dodaje (2)), a następnie zmiany nazwy na nazwę skoroszytu) Chcesz wybrać pliki indywidualnie? Wtedy [syntax=vb] Sub zbior() Dim wb As Workbook Do fl = Application.GetOpenFilename("ExcelFiles....
[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...
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
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...
Trzeba tylko pamiętać, że po umieszczeniu makra w Personalu jest ono dostępne tylko na tym kompie na którym jest ów plik. Jeżeli więc wyślesz komuś swój skoroszyt z niego korzystający, a makro ma wykonywać jakieś operacje na jego arkuszach to nie będzie działało. Jak to mówią: "Każdy kij ma dwa końce" i trzeba wybrać mniejsze zło. :cry:
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Możliwe byłoby blokowanie arkusza(y) wykorzystując metodę OnTime . Sprawdzałoby się co, powiedzmy 5 minut, czas zegara systemowego i jeśli warunek spełniony - włączamy blokadę...
Wkleiłem kod do ten_skoroszyt W Twoim przykładowym pliku xlsm masz już jeden moduł z kodami VBA :?: i to tam powinieneś wkleić ten kod :!: (ewentualnie możesz wstawić drugi - czysty moduł tylko z tym jednym kodem :D ). Jak już tam będzie prawidłowy kod - to proponuję ustawić w opcjach makr - skrót klawiaturowy do jego uruchamiania :spoko: niestety...
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....
ze tak czy siak potrzebne są dwa klawisze Można z jednym np. "end" wrzuć to do modułu [syntax=vbscript]Sub test() MsgBox "ok" End Sub[/syntax] a to do thisworkbook [syntax=vbscript]Private Sub Workbook_Open() Application.OnKey "{end}", "test" End Sub[/syntax] Zapisz zamknij i uruchom skoroszyt naciśnij "end"
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Widzę, że dopracowałeś trochę arkusz. Dopisałem funkcje która zmienia kolor wypełnienia komórki w przypadku "przeterminowania" zadania. Sprawdzane pod kątem niedotrzymania terminu są tylko zadania niewykonane (oznaczone czerwoną czcionką). W arkuszu jest skoroszyt z kodami kolorów, jak otworzysz makro są tam komentarze i jest napisane którą liczbę trzeba...
(at)lanzul Odpada na pewno konwertowanie do exe-a bo wtedy skoroszyt będzie bez możliwości modyfikacji (tak jak read only) Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy To tak jak adamas wspomniał Workbooks_Open ale łatwe do obejścia
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Zamknęłam tamto zadanie a mam jeszcze 3 pytania extra do makra, które stworzył (at)prl . Post dokleiłem do wczesniejszego wątku i odblokowałem go. W przypadku chęci kontynuowania zamkniętego wątku zawsze można zgłosić go do moderacji (raportując którykolwiek z postów w nim) z prośbą o ponowne otwarcie. 1. Makro dzieli skoroszyt na osobne skoroszyty...
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
ale teraz zależy mi szczególnie na tej linijce kodu: mógłby ktoś napisać jak mógłby wyglądać działający kod z tym zastosowaniem Ważne, najpierw otwierasz skoroszyt tam gdzie masz makro, później otwierasz np. ten nazwapliku1.xlsx, przechodzisz do tego co ma makro i uruchamiasz. (nazwy skoroszytów nie maja znaczenia tylko kolejność otwarcia) [syntax=vbscript]Workbooks(2).Sheets("Sh...
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Mam pytanie czy można utworzyć makro które będzie podmieniać się na makro o drugim działaniu np. drukuj., a następnie powracało do pierwszego działania makra. Pierwsze makro kopiuje dane a następie zamyka skoroszyt skopiowany, aby wykonać drugie działanie znów muszę kliknąć w obrazek z makrem. Mam na myśli działanie cos w rodzaju pętli z możliwością...
Zrób jedno makro jak uruchamia się skoroszyt które chowa paski oraz drugie uruchamiane jak zamykasz skoroszyt które będzie odkrywało paski. Powodzenia
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
[syntax=vbscript]Sheets(Range("J3").Valu...
Wkleiłem makro ale coś nie działa Ale co konkretnie robisz, co i jak wklejasz i na czym polega to "nie działa"? Może chodzi o interakcję z procedurą obsługi zdarzenia Change, którą masz w swoim pliku, a o której nic nie pisałeś? Przesyłam Twój skoroszyt z dopisanym w kodzie wyłączeniem obsługi zdarzeń. Przypisałem do tego makra skrót Ctrl+Shift+V,...
Cześć, przejdę do rzeczy. Chodzi mi o zrobienie makra które wykonuje poniższe czynności. Mam szablon, przykładowo : Ilość jabłek : 2 Ilość gruszek 4 Chce by makro, które podłącze pod przycisk tworzyło skoroszyt z tego szablonu, nadawało mu ID np 01 i każdy następny szablon robił np. 02,03,04. Potrzebuję również by makro kopiowało ilość jabłek i gruszek...
Witam, problem polega na tym: mam folder X(C:Dokumenty) który zawiera kilka skoroszytów(111-01,111-02,111-03 itd.), oraz skoroszyt o nazwie "WZÓR". Potrzebuję makro(w osobnym skoroszycie), które sprawdzi czy w danym folderze istnieje już skoroszyt o nazwie np: xxx-xx, jeżeli tak to go otworzy, a jeżeli nie to skopiuje skoroszyt o nazwie "WZÓR" nada...
Witam Tworze makro które będzie otwierało skoroszyt o zmiannej nazwie, wykonywało w nim kilka operacji typu filtrowanie itd a potem przenosiło z niego pofiltrowane dane do pliku w którym uruchamiałem makro. Arkusz w którym będzie uruchamiane makro też będzie miało zmienną nazwę niestety. Teraz mam problem ponieważ po otwarciu pliku z makrem uruchamia...
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
myfile = "C:\Goods In\Goods In Data_DO NOT DELETE__\ Goods In Data .xlsx" Application.Workbooks. Open FileName:=myfile Workbooks("Goods In Handover .xlsx"). Activate Otwierasz plik A, a potem chcesz aktywować inny B nieotwarty skoroszyt :sm31: Nie załączasz żadnych przykładowych plików, więc nawet nie wiadomo w jakim pliku ma być zlokalizowane Twoje...
Jest kilka możliwości odwołania się do arkusza o zmiennej nazwie. Można to zrobić po indeksie - czyli jakby numerze pozycji, w jakiej arkusze są "poukładane" w skoroszycie. Jeśli ten arkusz ma zawsze taką samą pozycję w skoroszycie, czyli znajduje się (przykładowo) zawsze na 5 karcie (zakładce), licząc od lewej strony - można wykorzystać w kodzie jego...
Tak dwa lub więcej plików w tym samym katalogu co pik z makrem, tylko katalog może zmieniać położenie. PRL - nie o to mi chodziło, ja nie chcę wyświetlać okna dialog w celu wybrania, który plik ma być otwarty, tylko w kodzie zawrę dokładną nazwę pliku do otwarcie, a makro automatycznie otworzy ten plik, pobierze odpowiednie dane a następnie zamknie...
Temat już mocno przeterminowany, ale w ramach wiedzy załączam poniżej makro autozapisu co 15 minut, które działa w nowszych wersjach excela np 2010 Wklejamy w ten skoroszyt Option Explicit ' Zmienna przechowująca czas ostatniego zapisu Private dtLastSaveTime As Date Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range)...
to trzeba wdrażać od początku projektu Cały ten projekt to jeden skoroszyt Excela, więc jak dla mnie, jest to wciąż faza początkowa:) Na miejscu autora wykorzystałbym Twoje makro do zsumowania danych w arkuszu RAZEM, a następnie skopiowałbym ten arkusz do czystego skoroszytu i na jego podstawie przebudowałbym cały skoroszyt z danymi, np. do formy,...
1) zapisane w folderze / lokalizacji liku, z którego były kopiowane Przed 'r = 2' dodaj linije ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path 2)Nezrozumiale - docelowy skoroszyt + filtrowanie(?) co tam filtrowac dla jednego portfela?? Nagraj makro dla np P001
Witaj Jeśli skoroszyt jest otwarty codziennie, można użyć zdarzenia otwarcia książki. Ale warunek jest niejawnie opisane. Tu jest tabela, jest kolumna, jest data. Dla makro jest więcej specjalnie - Arkuszm, nazwa kolumny, wiersz gdze zaczyna się listy, nawet lepiej załączenia pliku.
Cześć, próbuję zastosować metodę VLOOKUP żeby sprawdziła czy powtarza się część danych z innego skoroszytu ale niestety nie działa. Automatycznie pojawia się opcja wyboru pliku ale w komórkach wyskakuje mi #NAME?. Co ciekawe w innym pliku ta metoda działa bez problemu. Próbowałem już nagrywać makro to pojawia się #N/D! ale przy wszystkich komórkach...
U mnie w każdym skoroszycie działa makro blokujące wszystkie formuły na stałe, oraz pozostałe komórki, po wprowadzeniu danych w komórce automatycznie jest ona blokowana, do tego obligują mnie przepisy akredytacyjne które wymagają, że wszystkie dane zapisywane w formie elektronicznej powinny być zabezpieczone przed każdą nieupoważnioną osobą która chciałaby...
(at)kik192 Raz piszesz o podziale do nowego skoroszytu a innym razem do arkusza. Każdy odfiltrowany typ danych ma być zapisany w osobnym skoroszycie czy może być jeden skoroszyt z oddzielnymi arkuszami dla każdego odfiltrowanego typu danych? Operacja dzielenia danych będzie wykonywana za każdym razem na nowym skoroszycie? Chodzi o to, czy makro ma...
Odpiszę tak, cały skoroszyt tak jest naładowany makrami jak "autobus do Lichenia :)", nie dziwię się, że to wszystko wolno chodzi jak jedno makro uruchamia 2 lub więcej inne, "potężne" kody na 'zdarzenia' danego arkusza + dodatkowo każdego arkusza wszystko to musi obliczać na bieżąco (kalkulacja powinna być na off później on), dużo formatowań, mnóstwo...
Cześć, proszę o pomoc, skorzystałem z kodu znalezionego na forum, jednak potrzebuję pewnej modyfikacji. W obecnej postaci makro sprawdza czy istnieje w lokalizacji skoroszyt o określonej nazwie, jeżeli tak to go usuwa i tworzy nowy. Docelowo chciałbym żeby makro w przypadku kiedy istnieje już plik tworzyło w nim nowy kolejny arkusz, a jeżeli nie istnieje...
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
A jeżeli jest taka możliwość, to fajnie aby stworzył nowy skoroszyt z tymi arkuszami (ważne i mniej_ważne), a jeżeli nie ma takiej możliwości to tak ja wcześniej pisałem aby makro po prostu dodało te dwa arkusze do już istniejącego skoroszytu.
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać, gdyż teraz wyskakuje mi błąd w tej linii: Set wb = GetObject(strQ) Chodzi o to, że mam otwarty skoroszyt x gdyż co chwilę muszę wprowadzać do niego nowe dane, a jednocześnie co jakiś czas dane z tego skoroszytu muszę pobrać powyższym...
Witam! Mam dość duży dla mnie problem. Potrzebuję stworzyć makro które będzie aktualizowało jeden skoroszyt pobierając dane z innego skoroszytu. Niestety nie zawsze wszystkie pola są wypełniane więc pojawiają się pustki i nie mogę skorzystać z funkcji znajdź pierwszą pustą by tam wklejało dane. Byłoby łatwiej gdybym mógł zmienić kolejność kolumn - jednak...
Hasła ochrony skoroszytu nie zapiszesz w VBA. I nawet gdyby to było możliwe musisz posłużyć się porównaniem i instrukcją If i wtedy nici z takiego hasła, bo łatwo je podejrzeć. Reasumując. Jeżeli chcesz mieć "zahasłowaną" ochronę skoroszytu NIE UŻYWAJ VBA
Dzięki za próbę pomocy! Wiem, że to nie jest efektywny kod, ale to moje najmniejsze zmartwienie. Właściwe makro, w roboczym skoroszycie, ma być wykonywane raz na miesiąc. Oczywiście jest znacznie bardziej rozbudowane, ale i tak to bez znaczenia, czy będzie się wykonywało 1ms czy nawet 100 razy dłużej. Sens tego makro leży w automatyzacji czynności,...
Ostrzeżenie pojawia się tylko raz. Klikam "włącz zawartość" a mimo to makro się nie wykonuje. Natomiast skoroszyt otwarty na innym użytkowniku działa prawidłowo.
Dziekuje dokladnie o to mi chodzilo :) Dodano po 10 Hej mam jeszcze jedna prosbe poniewaz czsami potrzebuje zapisane dane w wersji pionowe mozna to robic recznie ale naprzyklad jak jest 100 palet no to jest to troche czasochlonne przyklad pokaze w zaloczniku skoroszyt 1 poziomo i skoroszyt 2 pionowo tak chcialbym zeby te dane sie zapisaly mysle ze mozna...
Witam zacne grono, jak z formułami sobie radzę tak już z makrami bywa kiepsko jeśli by mógł mi ktoś pomóc byłbym wdzięczny: Mam skoroszyt w excelu a w nim 21 arkuszy kalkulacyjnych nazwy od 1 do 20 i ostatni dane , potrzebuję makro które wywołane za pomocą skrótu klawiszowego przeniesie dane z komórek A1:A4 B1:B4 z arkusza w którym jestem do arkusza...
makro kopiujące skoroszyt makro kopiować skoroszyt skoroszyt formatowanie
wzmacniacz radio corsa sharan ogrzewać vectra dmuchawa
iRobot Roomba 880 Virtual Wall – wymiana zalanych styków baterii, rozbiórka latarni Błąd DF017 w Renault Trafic 1.9 DCI: Diagnoza i Naprawa
