[syntax=vb]Private Sub Workbook_Open() kolejny_mies = 2 If Month(Date) >= kolejny_mies Then ThisWorkbook.Close False End If End Sub [/syntax]
Kłopot pojawia sie wtedy gdy wyłącze już skoroszyt... to po 15 minutach włącza/otwiera się znowu mój skoroszyt. Jak tego uniknąć? Sub Autozapis() ActiveWorkbook.Save Application.OnTime Now() + TimeValue("00:15:00&quo... "Autozapis" End Sub Można tak: ZegarekStart z parametrem False i to zatrzymuje timer....
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Jaki kod byłby poprawny? Zamiast zamykać Excela (aplikacje :!: ) zamknij ten ukryty skoroszyt :D np.[syntax=vbscript] Workbooks("TenUkryty.xlsm").Close SaveChanges:=False[/syntax]
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"
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
W skoroszycie Wyszukiwarka zrobiłem tablice w arkuszach pomocniczych i formuły a odwołaniem do plików z danymi które mi potrzebne.Pliki/Skoroszyty są w tej samej lokalizacji co wyszukiwarka lecz tylko działa jeżeli są wszystkie otwarte.Jeżeli zamknę któryś skoroszyt w komórce gdzie jest formuła z jego adresem wyświetla #ADR!
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Jest to do zrobienia. Ale nie napisałeś co dalej... Co z tym skoroszytem startowym? Bo z tego co piszesz, wystarczy przy otwarciu otworzyć formularz i ukryć instancję Excela. A po naciśnięciu przycisku zamknąć formularz, zamknąć skoroszyt startowy, otworzyć wybrany plik i odkryć instancję. Czy raczej nie odkrywać, a pokazać zawarty w nim formularz....
bez znaczenia gdzie wprowadzę fragment dot. zamknięcia. A jaki kod stosujesz "dot. zamknięcia" :?: :?: :?: I co (np skoroszyt, arkusz, widok, okno, aplikację :D ) chcesz zamykać :?: Opis kodu był w starym temacie, z którego pytanie zostało wycięte. Chciałem zamknąć skoroszyt a potem już nawet aplikację. Niestety po udanym zamknięciu i ponownym otwarciu...
Czyli, jak pisałem, trzeba pokombinować. Najprościej użyć jakiejś zmiennej globalnej sterującej tym czy teraz można zamykać czy nie. Już pewnie rozumiesz, co mam na myśli. Jeszcze prościej, praktycznie bez zmian, najpierw zamknąć ten skoroszyt, który i tak zamkniesz za chwilę.
Witam, mam problem z przyciskiem "Usuń 2" skoroszytu "01". Przycisk "Usuń 1" działa (po jego naciśnięciu wystarczy kliknąć na komórkę kolumny "I" aby wybrać nazwę usuwanego arkusza lub wpisać ją w Box-e ręcznie. Natomiast w przypadku przycisku "Usuń 2" chciałbym aby mechanizm wyglądał następująco: 1. Naciśnięcie przycisku "Usuń 2" arkusza 1 w skoroszycie"01"...
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Możesz jeszcze przetestować to rozwiązanie [syntax=text]1. Otwórz skoroszyt w programie Excel. Zwykle program Excel wyłącza makra w arkuszu, dopóki nie klikniesz przycisku, aby włączyć makra. Nie włączaj jeszcze makr. 2. Otwórz edytor VBA. Możesz nacisnąć ALT + F11 lub na wstążce kliknąć Developer> Visual Basic 3. W edytorze VBA kliknij dwukrotnie moduł...
Panowie wyskoczył mi inny problem, który myślałem, że rozwiąże przy okazji poprzedniego. Program działa bez zarzutu, tak jak pisałem wcześniej raz nawet przejechałem ręcznie przy użyciu f8 i makro wykonało bez problemu wszystkie niezbędne operacje na ponad 10 detalach. Problem pojawia sie przy puszczeniu go w automacie. Jeśli w liście mam więcej niż...
Kod mam zapisany w module ( nie w arkuszu) tak wygląda (w skrócie) Sub Zapisz_Form() Application.ScreenUpdating = False Dim NextRow As Long fpath = ActiveWorkbook.Path fname = ActiveWorkbook.Name Workbooks.Open FileName:=fpath & "\Baza.xlsx" Set wksz = Workbooks(fname).Sheets("klient") Set wksdo = Application.Workbooks("Baza.xlsx").Sheet...
Nie piszesz od razu, o co Ci dokładnie chodzi, a tu każdy szczegół ma znaczenie. Jeśli Twój skoroszyt zawiera tylko jeden arkusz, zdarzenie Worksheet_Activate nigdy nie zajdzie, bo jedyny arkusz jest zawsze aktywny. Dopiero gdy będą dwa lub więcej arkuszy to po przełączeniu z innego arkusza na pierwszy zajdzie to zdarzenie. Przy jednym arkuszu należy...
Masz dwa X w prawym górnym rogu? Jeden do zamykania excela. drugi do zamykania aktywnego skoroszytu? Czy tak samo zachowuje się jak zamykasz z menu Plik - Zamknij (nie "Zakończ").
Witam/ Nie wiem czy to pomoże, ponieważ nie korzystam z wersji 2010, 2013, ale zdarzenia zamknięcia skoroszytu Przypisz makro zapisać najniższą wersję. Osobiście zawsze zrobić swoją pracę na offìce97, i inne offìce jest właściwie rozumie, wyjątkiem jest OpenOffìce, jeśli masz makra.
Dzień dobry Potrzebuję pomocy. Mam zrobiony rejestr i potrzebuję by użytkownik po wpisaniu danych nie mógł ich zmienić. Z rejestru korzysta wiele osób i zdarza się że popełni błąd a później go poprawni nie informując o tym. mam kolumny od B do do I. Przychodzi osoba z produkcji wpisuje Swoje dane i po ich uzupełnieniu automatycznie się blokuje bo zamknięciu...
Czy usunięcie pozycji w rejestrze nie spowoduje komplikacji w działaniu Excela Nie.
Błąd nie wiem dlaczego ci wyskakuje bo u mnie jak mam tak jak ci podałem to ciała dobrze. A jeśli chodzi o zamknięcie excela to jeśli zamykasz jakimś przyciskiem to musisz dać przy nim : [syntax=vb] ActiveWorkbook.Save 'Jeśli chcesz przed zamknięciem zapisać skoroszyt Windows("szachy1.xlsm").Close [/syntax] A jeśli chodzi ci też o to żeby nikt nie wyszedł...
muszę zamknąć skoroszyt, do którego miałem skopiować dane, bym mógł otworzyć ten źródłowy Z tego wynika, że oba pliki mają tę samą nazwę jest zamykany kodem (na pasku narzędzi go nie widać) a przy ponownej próbie otworzenia go wyskakuje komunikat, że jest otwarty Z tego wynika, że nie jest zamykany
Kolego Piotrze, coś chcesz nas zaczarować, bo to co piszesz jest mocno nieprecyzyjne. Formuła, którą zacytowałeś może działać tylko jako formuła tablicowa. W Excelu 365 formuły tablicowe zostały zastąpione formułami dynamicznymi, które zatwierdza się samym Enter, ale nie zmienia to ich tablicowej natury. W nowym Excelu każda formuła jest domyślnie traktowana...
Dzień dobry, Proszę spróbować zastosować takie makro: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim s As Long, n As Long, i As Long With ActiveSheet.UsedRange s = .Row n = .Rows.Count For i = 1 To n If .Cells(i, "A") > 0 And .Cells(i, "K") = "" Then .Cells(i, "K").Activate MsgBox ("Komórka K" & i + s - 1 & " nie została wypełniona."...
Owszem, robię to, ale od tego też nic nie zależy, sprawdziłem. Ale uwaga: Zdaje się, że na coś wpadłem dosłownie dopiero co i jeszcze nie zdążyłem dobrze przećwiczyć: Przy otwieraniu programu do edycji można: 1. Otworzyć Excela. 2. Wczytać skoroszyt z programem, 3. a potem otworzyć edytor VBA (Alt+F11), albo: 1. Otworzyć Excela. 2. Otworzyć edytor VBA...
już prawie mam rozwiązanie: Dim wb As Workbook, x As String For Each wb In Workbooks If wb.Name <> ThisWorkbook.Name Then x = wb.Name Next wb Workbooks(x).Activate Workbooks(x).Close SaveChanges:=False zamyka kolejny skoroszyt, ale... jak są np. 2 następne to zamyka ostatni :( jak zamknąć "NASTĘPNY" w kolejności skoroszyt nie znając jego nazwy?...
Witam Hehe .. Mam podobne zdanie do Twojego odnośnie drukowania w VB. :cry: wg mnie: powinieneś osadzić kontrolkę sformatowanego arkusza Excela w oknie programu, załadować ją danymi z bazy, a następnie wydrukować taki skoroszyt z poziomu Excela, lub wywołać Excela z tym skoroszytem, a w nim uruchomić automatycznie makro, które wydrukuje zadeklarowany...
Spróbuj tak. Wyłącz ochronę arkusza i zapisz skoroszyt. W module Ten_skorosozyt dodaj kod: [syntax=vbscript]Private Sub Workbook_Open() Me.Worksheets("Arkusz1").Protect UserInterfaceOnly:=True, Password:="" End Sub[/syntax] Podmień w kodzie właściwą nazwę arkusza i (opcjonalnie) dodaj hasło. Zamknij i uruchom ponownie skoroszyt. Makra się będą wykonywać,...
Dzień dobry, Oba skoroszyty: źródłowy i docelowy powinny być otwarte w tej samej instancji Excela (to znaczy gdy pierwszy skoroszyt jest już otwarty, należy kolejny otworzyć z menu Plik, a nie przez kliknięcie na nazwę pliku spoza Excela). Wtedy wystarczy w skoroszycie docelowym wybrać komórkę, gdzie ma być odwołanie, wpisać tam =, a następnie odszukać...
Witam, Prośba dotyczy Excela i VBA, proszę o pomoc w rozwiązaniu następującego problemu, który jak sądzę jest banalny i dla tego nie udało mi się znaleźć odpowiedzi w googlach. Nie jetem zbyt biegły w VBA, ale korzystając z tego, co można wyczytać w sieci udało mi się zrobić kilka całkiem użytecznych i rozbudowanych makr. Teraz próbuję zrobić bazę zleceń...
To jest ustawienie dotyczące tworzenia nowych skoroszytów. [syntax=text]Opcje > Ogólne > Podczas tworzenia nowych skoroszytów: > Użyj tej czcionki jako domyślnej ..... Rozmiar czcionki ..... [/syntax]Następnie trzeba zamknąć Excela i uruchomić ponownie. To ustawienie jest pamiętane i obowiązuje do następnej zmiany. Dotyczy tylko nowych skoroszytów....
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Dopracuj sobie. Ale gdyby to ode mnie zależało, w takim przypadku zamknąłbym plik (makrem) na amen. Z innego skoroszytu można uruchomić kod, który poodkrywa wszystko to, co tak skwapliwie chowamy :)
W skoroszycie główny.xls dodaję nowy arkusz o nazwie "dane" Jak mam z innego skoroszytu (np.: a.xls) skopiować cały pierwszy arkusz i wkleić jego zawartość do arkusza "dane". Skoroszyt a.xls ma stałą ścieżkę (znajduje się na dysku d:\a.xls), są to dane potrzebne do obliczeń i nie będą przesuwane czy modyfikowane. Znajdują się tam puste komórki więc...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
Po mojemu powinno być coś takiego. Sub ReadDataFromSheets() Dim colxls As New Collection Dim path As String, filtr As String, plik As String, i As Long Dim wynik As Long, SheetName As String Dim kom As Range, rg As Range Dim shAct As Worksheet, sh As Worksheet, wb As Workbook Dim p As Long path = ThisWorkbook.path & Application.PathSeparator...
Po co to: Set SkoroszytZrodlowy = ThisWorkbook? Łatwiej użyć Thisworkbook. To taka sama zmienna. Nie trzeba nic definiować M$ już to za nas zrobił. Nazwa się nie podoba? Zamiast: Set ArkuszZrodlowy = SkoroszytZrodlowy.Sheets(Range("G2").Val... lepiej użyć instrukcji With, prostsze i nic nie trzeba definiować. With jest dobre również podczas otwierania...
Nazwę pliku(ów, w zależności ile ich zaznaczysz) masz w zmiennej vrtSelectedItem . Nic nie stoi na przeszkodzie aby przypisać ją do zmiennej obiektowej, otworzyć plik, skopiować co trzeba i zamknąć. Podpowiem trochę If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems Set wkb = Workbooks.Open(vrtSelectedItem) 'gdzieś tu powinna być...
Jeśli to sam sporządziłeś ten kod makra i masz wolę go usprawnić - to proponuję nauczyć się przede wszystkim tzw debugowania skryptów - zakładka deweloper :arrow: makra :arrow: wkrocz :arrow: i dalej przez F8 krok po kroku analizujesz co robi (lub nie robi :D ) Twój skrypt (makro). po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się...
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ź...
Spróbuj w module ThisWorkbook wstawić procedurę: [syntax=vbscript] Private Sub Workbook_Open() With Worksheets("Nazwa_arkusza") .Protect Password:="Hasło", _ UserInterfaceOnly:=True .EnableOutlining = True End With End Sub [/syntax] W cudzysłowach wpisz odpowiednie wartości. Jeśli nie ma hasła, zostaw pusty cudzysłów. Zapisz plik, jako skoroszyt z obsługą...
Dziwne. A co się dzieje po kliknięciu ikonek obok? Możesz zmniejszyć okno Excela do mniejszych wymiarów niż na cały ekran i ponowić próbę z zamknięciem?
Zapisać plik jako xls albo xlsm. Potem wcisnąć klawisze alt+F11. Pokaże się edytor VBA. Kliknąć na widoczny po lewej stronie "Ten_skoroszyt" albo "This_workbook", kliknąć potem prawym przyciskiem myszy i wybrać z menu "Wstaw" albo "Insert" i "Moduł" albo "Module". Skopiować i wkleić funkcję. Potem zapisać skoroszyt, zamknąć edytor i używać funkcji....
Przede wszystkim załącz przykładowy plik i jednoznaczny opis, aby było można zorientować się do czego zmierzasz ? Wstępnie można Ci zaproponować uruchamianie jednego makra, które w zależności od wstawionej opcji (1, 2, 3) w określonej komórce uruchamiać będzie różne działania (kopiowanie danych, drukowanie lub zamykanie skopiowanego skoroszytu) ;-)
Jeśli nagrasz rejestratorem makr kopiowanie arkusza do nowego pliku, nadanie mu nazwy, zamknięcie itd; po czym wkleisz nagrany kod do kodu skoroszytu (Thisworkbook) przy zdarzeniu "BeforeClose", to uzyskasz efekt bardzo podobny do opisywanego. Aby nabrać pewności warto byłoby zajrzeć do tego pliku...
Dlaczego Dir? Dlatego, że Autor nie chce zapisywać aktywnego skoroszytu do pliku, który nie istnieje. [syntax=vbscript] If Dir(Plik) ="" then ActiveWorkBook.SaveAs....[/syntax]
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
Dziękuję za pomoc Panowie, temat do zamknięcia Dodano po 6 Nazwę "AktywnyWiersz" zdefiniowałem dla całego skoroszytu.
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
a następnie usunęło duplikaty na podstawie wartości z kolumny F Usuwać chcesz całe wiersze w obu tabelach, czy tylko w jednej tabeli komórkę z kolumny F :?: :D Proszę przygotować przykładowy plik z przykładowymi danymi (żeby zrozumieć logikę Twoich przekształceń) i załączyć na forum Generalnie makro powinno działać na excelach, takich jak te które...
Cześć, Mam makro, które zapisuje plik co 30 minut. Kod jest wrzucony bezpośrednio do pliku - gdyż jest on jeszcze przysyłany dalej, a kopia tworzy się na dysku wspólnym. Włączenie następuje przy otworzeniu skoroszytu. Problem w tym, że nawet po zamknięcie co 30 minut otwiera mi się ten sam plik i się zapisuje. Próbowałem zmieniać interwał przed wyjściem...
Witam W zdarzeniach skoroszytu Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Save End Sub po zakończeniu procedury (na koniec procedury) Application.Quit
Mam kilka otwartych plików Excela (skoroszytów), np. test1.xlsm p1.xls p2.xls p3.xls Będąc w pliku test1 chciałbym aktywować skoroszyt p1 (arkusz1), następnie skopiować z niego dane, wkleić je do pliku test1 (arkusz2), zamknąć plik p1 i przejść do następnego pliku. próbowałem dostać się do drugiego pliku z poniższego kodu, niestety pojawia się błąd...
Hmm albo to jest takie proste albo czegoś nie wiem. Skoroszyt jest zamknięty więc jak mam zrobić pętle po arkuszach?
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...
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,...
Tak skoroszyt został "okrojony" na potrzeby załącznika. W normalnej wersji ten sam UserForm obsługiwał skoroszyt znajdujący się w katalogu "jpg", który zawierał pierwotnie wszystkie podzespoły i pokazywał ich cenę za pomocą tego samego UserForm (skoroszyt "Test" zawiera tylko elementy zakupione i znajdujące się w magazynie). Skoroszyt główny zawiera...
Można spróbować takiego obejścia. Wyświetlić okno dialogowe Find starszego typu, które nie ma tego pola wyboru pomiędzy skoroszytem a arkuszem, ale jest ustawione domyślnie na skoroszyt. Jeśli wywoła się to okno bez parametrów, inne ustawienia Find powinny pozostać bez zmiany. Można też wywołać to okno z parametrami (opcjonalnymi) i zmodyfikować te...
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...
Pobieranie danych z zamkniętego skoroszytu jest możliwe, ale jest to programistycznie skomplikowane, powolne i podatne na błędy. Zwykle prościej jest plik otworzyć, pobrać co potrzeba i zamknąć. Wynik jest wtedy w formie stałych. Trzeba znać szczegóły problemu: ile jest danych do pobrania, z ilu plików, czy lokalizacja tych plików jest stała, jak często...
Dzień dobry. Mam problem z swoim plikiem .xls, który cały czas był w pendrive umieszczonym w routerze i robił jako lokalny dysk. Był uruchamiany głownie prze ze mnie, z jednego laptopa. Jakiś tydzień temu zakończyłem pracę na pliku, zapisałem i zamknąłem. Po kilku dniach jak chce uruchomić plik to pojawił się komunikat: "W skoroszycie istnieje zawartość,...
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ść...
Witam, Można zrobić tak by excel zapisał każdy, nawet nowo otwarty plik bez makr, do nowego pliku jako zapisz jako ? Podejrzewam, że można do tego zastosować skoroszyt makr osobistych, ale tak proste zastosowanie jak BeforeClose nie działa :-) Chodzi o zrobienie backupu (przy zamknięciu każdego pliku), gdyż czasem nowo otwarty excel wyrzuca błąd i kasuje...
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Zgodnie z tym co napisał Maciej Gonet w wątku: https://www.elektroda.pl/rtvforum/viewto... Dzień dobry, Jeśli oba pliki są otwarte w jednej instancji Excela nie powinno być problemów z aktualizacją. Jeśli oba pliki są otwarte ścieżka dostępu nie jest potrzebna, np. odwołuje się Pan do komórki A1 w Arkuszu1 pliku Zeszyt3: = Zrobiłem...
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...
Wiem Wiem że dużo oczekuje a mało wiem i rozumiem, ogólnie wszystkie założenia tematu zostały rozwiązane ale człowiek zawsze stara się rozwijać i rozwijać i trafia na przeszkody w takim razie przepraszam że zawracam gitarę :) pozdrawiam i temat uważam za zamknięty.
Mam otwarty skoroszyt XX i gdy następny użytkownik chce otworzyć ten skoroszyt ma otrzymać informację "skoroszyt jest otwarty przez użytkownika Kowalski A." i skoroszyt zostanie zamknięty bez zapisywania.
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
Witam, Mam problem ze skoroszytem makr osobistych. Próbowałem usunąć z dysku wszystkie pliki o nazwie personal. Po otwarciu excel i zapisaniu prostego makra powstaje plik personal w lokalizacji C:\Documents and Settings\PD\Dane aplikacji\Microsoft\Excel\XLSTART, ale po zamknięciu excel i ponownym otwarciu makra nie są dostępne do momentu ręcznego otwarcia...
Jeżeli musisz powiązać jeden plik z wartościami z innego i znasz ich lokalizacje, to otwórz te dwa pliki jednocześnie, w pliku LUTY zrób odwołanie do pliku STYCZEŃ (po prostu - wpisz w komórce =, przejdź do arkusza STYCZEŃ i zaznacz w nim komórkę). Formuła przyjmie wartość mniej więcej taką: =[STYCZEŃ.xls]Arkusz1!$B$3. Jak teraz zamkniesz plik STYCZEŃ,...
Podłącz makro pod przycisk i wtedy zawsze będziesz miał swoje makro pod ręką. Wytłumaczę na excelu XP. Zrób na początku "czysty" arkusz i wklej do niego swoje makro. Na pasku z przyciskami "włącz" (prawoklik) "dostosuj...". Z zakładki "Polecenia" wybierz makro i przeciągnij "przycisk niestandardowy" lub "element niestandardowy" na któryś z pasków z...
Zaszyfrowanie dysku daje tyle, że jak ktoś niepowołany ukradnie dysk, to nie przeczyta, jeśli razem z dyskiem nie ukradnie np. karteczki z hasłem. Oraz tyle, że w razie usterki dysku wymagającej odzyskiwania danych staje się ono dużo trudniejsze, dla wielu firm za trudne, by cokolwiek w tym kierunku zrobili. A czy to w sumie poprawi bezpieczeństwo,...
Tabelka została trochę zmodyfikowana. Dodałem do niej w kolumnach, gdzie wpisuję datę po podwójnym kliknięciu na komórkę wyskakujący kalendarz. Wszystko jest ok, ale nie wiem, jak poprawić ten kalendarz, żeby po wywołaniu jego i zamknięciu na 'X' bez zapisywania daty kalendarz się zamkną i nie zapisał żadnej daty w aktywnej komórce. W tej chwili po...
Już złapałem gdzie jest błąd. Ja mam "ten skoroszyt" a kod jest "thisworkbook" pewnie używasz eng wersji ja mam polska w domu :D, w pracy mam eng wiec tam pewnie będzie działać poprawnie :D Dzięki za pomoc
Nie mam wielkoego pojęcia o probramowaniu, będę wdzięczna za pomoc Mam plik który zawiera 75 arkuszy. 5 akruszy jest "stałych" (zawierają m.in. dane do których się odwołują pozostałe arkusze), a pozostałe mają taką samą sktrukturę ale inne dane Muszę: 1. utworzyć 70 nowych plików, gdzie każdy zawiera 5 "stałych" akruszy i jeden zmienny 2. Zapisać nowy...
Witam, Prosze o pomoc z poniższym kodem: Dim lOstRw3 lOstRw = Cells(Rows.Count, 1).End(xlUp).Row With Range(Cells(3, 8), Cells(lOstRw, 8)) .Formula = "" _ & "=IF(VLOOKUP(RC[-7]...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
Witam Wszystkich, Postanowiłem napisać od początku do końca rozwiązanie problemu ze zliczaniem kolorów "dla zielonych". Być może komuś na przyszłość się to przyda. 1. Otwórz Arkusz excel 2. Wejdz w Plik/Zapisz jako tutaj wybierz z listy Zapisz jako typ: Skoroszyt programu Excel z obsługą makr i wpisz nazwę swojego pliku. Następnie zapisz go w dowolnym...
A na marginesie jeżeli byłbyś tak miły i wskazał mi strony/miejsca (oprócz tej którą znam) gdzie można pobrać takie darmowe oprogramowanie które będzie likwidować hasło arkuszy i skoroszytów a w szczególności hasła na makrach (aby docelowo obejrzeć kod makra) w excelach od 97 do 2007 (a nawet wyżej) to byłbym bardzo wdzięczny. Program o którym pisałem...
If haslo = "1234" Then 'sprawdza poprawność hasła Tutaj 'haslo' jest zmienna, ma wartosc "1234", Worksheets("arkusz1").Protect "haslo", userinterfaceonly:=True 'odblokowuje ochrone arkusza tu haslo naprosto ma wartosc "haslo" To moje niedopatrzenie, na potrzeby publikacji kodu na forum ciąg znaków będącym hasłem zmieniłem z właściwego na "hasło". Zmienna...
Tak, te funkcje wymagają, żeby oba skoroszyty były otwarte, ale za to są dość szybkie. Nie było warunku, że plik źródłowy będzie zamknięty. W takim przypadku należałoby użyć innych funkcji, ale należałoby też zawęzić obszar poszukiwań. Tu nie było przykładu ani informacji gdzie w arkuszach należy szukać danych.
Witam serdecznie. Mam mały problem dotyczący zamykania okien programu Excel 2013. Potrafię otworzyć powiedzmy 5 okien Excela za pomocą pliku wsadowego, ale dwa z nich chciałbym zamknąć również za pomocą polecenia z pliku wsadowego nie zamykając całego Excela. I to jest dla mnie wyzwanie, którego nie potrafię wykonać na dzień dzisiejszy. Proszę o pomoc....
Dziś chciałbym spytać jak sprawdzić czy, używając metody CreateObject("Excel.Application"), mamy już uruchomioną drugą aplikację Excela. Wyjaśnię pokrótce dlaczego chciałbym to sprawdzić. Generalnie w mojej aplikacji nie korzystam z arkuszy, to znaczy nie mam tam żadnych danych ani niczego nie zapisuje. Ale w pewnych sytuacjach potrzebuje wygenerować...
Strasznie namieszałem, wiem, przepraszam. Strasznie to mało powiedziane. Gdybyś od razu podał rzetelnie wszystkie informacje i nie pozajączkowały się zabezpieczenia przed- i zalicznikowe, ich wartości trzy razy aktualizowane - temat zamknąłby się w trzech postach a nie trzech stronach, bez zbędnych dywagacji. Jeśli dobrze ogarniam ten galimatias, to...
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Puki co sprawdziłem pod Excel 2003 i z drobnymi poprawkami działa. Później sprawdzę pod Excel 2007 Tu musiałem poprawić [syntax=vb] Dim i, wiersz As Long ' dodałem zmienną wiersz = 2 ' wartośc początkowa zmiennej fold = Range("B4") ' komórka w której znajduje się ścieżka dostępu do głównego folderu myvar = FileList(fold & "\" & dato) 'TU zmiana 'wywołanie...
Witam po przerwie, czas definitywnie zamknąć temat. Trochę czasu potrzebowałem na to aby zgłębić tajniki VBA i dokończyć mój pomysł na "tip top". Dzięki pomocy Marka i kol. PRL połknąłem bakcyla i się trochę podszkoliłem. Dopieściłem trochę kod wyjściowy aby tabelki końcowe ładnie wyglądały i aby dodać paski danych żeby zobrazować postęp wykonania....
No dobrze, zastanówmy się. Plików masz nieokreśloną ilość. Można te właściwe zaznaczyć w oknie dialogowym (Alow multiselect) lub dialog otwierać w pętli aż do zamknięcia bez wyboru. Arkusze mają różne nazwy. Mniejsza z tym jeśli będziemy kopiować tylko i wyłącznie z pierwszego i drugiego po indeksach (Sheets(1), Sheets(2)), zawsze z tych samych komórek...
Dokładniej to ... :cry: Twoja rada jest słuszna dopiero kiedy masz do czynienia z dwoma skoroszytami po jednym arkuszu :D z czego jeden jest zamknięty, lub gdy nazwy odnoszą się jedynie do zakresów poszczególnych arkuszy (a nie jak domyślnie - do całego skoroszytu) :idea:
Dzień dobry, Jeśli oba pliki są otwarte w jednej instancji Excela nie powinno być problemów z aktualizacją. Jeśli oba pliki są otwarte ścieżka dostępu nie jest potrzebna, np. odwołuje się Pan do komórki A1 w Arkuszu1 pliku Zeszyt3: =[Zeszyt3]Arkusz1!$A$1 Jeśli skoroszyt Zeszyt3 zostałby zamknięty odwołanie zmieni się automatycznie na takie ze ścieżką...
Witam. Czy ktoś potrafiłby napisać makro/formułę aby np. w komórce A1 w arkuszu głównym pojawiła się wartość z komórki A1 z innego pliku z tego samego folderu? Dodatkowym utrudnieniem jest konieczność wyboru skoroszytu (jest ich kilkanaście). Powinno to być też niezależne od tego, czy drugi arkusz jest zamknięty lub otwarty. Z góry dziękuję za pomoc.
mogl by mi ktos pomoc Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma...
Witam, Pracuję od dłuższego czasu nad makrem i niestety napotkałem kilka znaczących problemów, których pomimo szukania nie mogę zlikwidować. Makro działa w następujący sposób: 1. Po kliknięciu ikony pojawia się UserForm, który posiada różne opcje do wprowadzenia pewnych wartości do arkusza. 2. Wybieram przycisk "RUN", który odpala makro- makro ma za...
Plik csv można "klasycznie" otworzyć w Excelu poleceniem 'Workbooks.Open', skopiować potrzebne dane i zamknąć. Jeśli nazwy arkuszy w plikach WZ.xls oraz PZ.xls są pobierane z A2 odpowiednich dokumentów (csv), to można w pętli otwierać je kolejno, sprawdzać czy istnieje arkusz o nazwie=A2 i jeśli nie... Postąpiłbym wg następującej kolejność: 1. Z głównego...
Dziękuję za odpowiedź i wskazówki. Zastosowałem je, czyli wyłączenie 'Set MyWB' oraz uporządkowany kod wg Twojego wpisu i efekt jest następujący: Na dotychczasowym komputerze zapisuje csv zgodnie z oczekiwaniami Na nowym komputerze Excel nie wyłącza się, jednak nie zapisuje pliku. Na pasku stanu pojawia się "Zaznacz obszar docelowy i naciśnij ENTER...
a jak powinno to wygladać ? próbowałem na parę sposobów ale bez większych rezultatów. Moja wiedza z programowania VBA jest bardzo słaba. Chciał bym tylko skopiować dane ze skoroszytu B z aktywnego wiersza kolumny G do skoroszytu A. Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty...
zamykanie skoroszytu zakres skoroszytu hermetyczne zamknięcie
obniżenie transformatora spooler system niestabilny wyświetlacz
hulajnoga elektryczna hulajnoga elektryczna
Bezpiecznik świateł przeciwmgłowych Honda Jazz 2 - lokalizacja i wymiana Izolacja termiczna tylnej ściany zmywarki: wełna mineralna czy pianka PUR?