Jaki kod byłby poprawny? Zamiast zamykać Excela (aplikacje :!: ) zamknij ten ukryty skoroszyt :D np.[syntax=vbscript] Workbooks("TenUkryty.xlsm").Close SaveChanges:=False[/syntax]
Tu problem mogą stwarzać tabele Excela. One w zamkniętych skoroszytach nie działają. Ewentualnie zmień odwołania ze strukturalnych na zwykłe adresowe. Na tym pliku, który przesłałeś nie bardzo wiem, co mógłbym przetestować. Potrzebne są 2 pliki: źródłowy i ten, w którym ma działać formuła. Żeby ten źródłowy można było otworzyć, zamknąć i porównać. Edit:...
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...
Witam, Jestem początkujący w VBA i chciałbym stworzyć dynamiczny raport pobierający dane z zamkniętych skoroszytów o zmiennych nazwach. Szczegóły: W jednym katalogu sieciowym codziennie dochodzi jeden skoroszyt o wystandaryzowanej nazwie np. "dane 04.01.2013.xlsx", "dane 05.01.2013.xlsx" itd. Chciałbym móc, bez otwierania poszczególnych plików, pobierać...
Nie wiem z jaka predkoscia dziala to co testujesz, a czy probowales np. otwierac jednak skoroszyt z ktorego pobierasz dane i po pobraniu go zamykać ? najprosciej: Sub Makro1() Workbooks.Open Filename:= "C:\\jakisarkusz.xls" //otwiera arkusz Range("C6").Select //wybiera komorke z ktorej bedzie kopiowac Selection.Copy //kopiuje ActiveWindow.Close //zamyka...
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Dzień dobry, Żeby poprawność danych mogła korzystać ze źródła w innym skoroszycie, należy posłużyć się nazwą zakresu. Najłatwiej zrobić to w taki sposób: 1. W skoroszycie źródłowym nadać nazwę zakresowi danych źródłowych. Jeżeli danych będzie przybywać najlepiej, żeby był to zakres dynamiczny np. formuła Nazwiska . Ta formuła odwołuje się do całej kolumny...
OK, testowałem oczywiście, co prawda na razie w domu, i jest w porządku, bardzo ci dziękuje za to rozwiązanie. Trochę się zamotałem opisując problem, jasne że nie chcę otwierać drugi raz tego samego pliku. Powinienem wyraźniej zaznaczyć, że chodzi o zatrzymanie procedury gdy plik jest używany przez kogoś innego. Ten raport jest na dysku wspólnym i mają...
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 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....
Problem jest z excelem, czy z jakimś konkretnym arkuszem? Może to problem wskaźnika myszy? Ustaw arkusze tak, aby oba krzyżyki (zamknięcia excela i zamknięcia arkusza ) były daleko od siebie i sprawdź czy jest to samo? Moje pomysły się skończyły. :( Problem jest z EXCELEM (z każdym arkuszem Excela). Oczywiście ustawiałem tak, by oba "x" były "daleko...
Zmiana skoroszytu po nieudanej próbie z lokalizacji sieciowej. Mam skoroszyt, który otwiera inny skoroszyt z lokalizacji sieciowej po ścieżce zdeklarowanej w makrze, zapisuje go w swojej lokalizacji, a następnie aktualizuje się, zamyka skoroszyt, z którego dokonał aktualizacji danych, zapisuje zmiany i zamyka najpierw skoroszyt źródła, a potem siebie...
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
Żeby zablokować zamykanie skoroszytu musisz napisać obsługę takiego samego wyjątku dla drugiego skoroszytu a w niej dać Cancel = True. Tylko trzeba będzie pokombinować, żeby to nie zadziałało gdy sam będziesz chciał zamknąć tą procedurką.
Mam jakiś tam plik w Excelu który pracuje na podstawie makro, mam w tym pliku kilka arkuszy. Ponieważ plik będzie uruchamiany na kilku komputerach a zarazem posiada kilka zabezpieczeń wpadłem na pomysł aby podczas zamykania skoroszytu nastąpiło ukrycie wszystkich arkuszy oprócz jednego. Wszystko działa OK, ale i zarazem denerwuje gdyż po ponownym uruchomieniu...
A teraz widzę ze zamyka stworzony skoroszyt i zapisuje w moich dokumentach. Myślałem ze nie tworzy, ale spojrzałem na kod. Chyba jest ok PS. Jak tylko cos zmienie w kodzie, np. wylacze zamykanie skoroszytu waze i mniej wazne to wszystko sie wykrzacza. Nie rozumiem tego. PS. 2 Może to ustawienia regionalne systemu (mam ENG) ale muszę udać się do IT bo...
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ą...
Przy zamykaniu skoroszytu Workbook_BeforeClose(Cancel as Boolean) należy zakończyć automatyczny zapis: Application.OnTime ActionTime, "TimeStart",,False Application.OnTime ActionTime, "Zapis",,False
A ja tak się napracowałem nad tym przyciskiem, żeby zmieniał się na nim opis. I wszystko na darmo, bo brak załącznika i dokładnego opisu użycia. :cry: Teraz bez przycisku, procedura włącza się przy otwieraniu skoroszytu i wyłącza przy zamykaniu. Działa w arkuszu o nazwie kodowej Arkusz1. W dalszym ciągu nie piszesz jak chcesz wskazać arkusz, w którym...
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, No to jeszcze jedno pytanko. W moim pliku "1" dołożyłem drugi przycisk "CommandButton1", który zapisuje mi dane i zamyka skoroszyt. Chciałbym zrobić tak, że gdy "aktywny" jest pierwszy przycisk to ten mój (do zapisywania) jest nieaktywny. I na odwrót. Jak to zrobić??
W Excel 2007 wykorzystuje w podobnej sytuacji drobne makro, które blokuje hasłem niepuste komórki przy zamykaniu skoroszytu :D [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cell As Range ActiveSheet.Unprotect Password:="haslo" For Each cell In ActiveSheet.UsedRange If IsEmpty(cell) Then cell.Locked = False Next cell ActiveSheet.Protect...
Dziękuję za pomoc. Zamykam temat :)
Z tą odbudową to też doszedłem że czasami pomaga, ale niestety nie da się w tym przypadku tego zrobić. Biznesplany mają hasło na wszystko co możliwe :-). Mają nawet mają taką funkcję żeby w nich nie dłubać za bardzo, więc przy pierwszym uruchamianiu pliku pojawia się informacja do odklinania: co nie wolno w nich robić sporządzającemu. Mają taką funkcję...
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...
Witam Wszystkich, Chciałbym aby podczas otwierania/zamykania określonego skoroszytu uruchamiało się makro z dodatku. Próbuję ze zdarzeniem [syntax=vb]Call AddIns.xlam!.Module1.MakroName[/syntax] Jednak to nie to. Proszę o pomoc
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ć...
Dziękuje. zamykam
Działa fantastycznie :) - zamykam.
Dzięki wszystkim za pomoc, temat zamykam.
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ć...
Dziekuje Panom za wypowiedzi - byc może w przyszłości to rozwiazanie znajdzie zastosowanie - jednakże wobec braku globalnego rozwiązania i tego że sama zmiana powiększenia zajmuje 3-4s po otwarciu pliku, 10s to zdecydowanie za długo. Zamykam.
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?...
nagrane makro nie rozwiązuje sprawy ponieważ, żeby działało skoroszyt docelowy musi być już otwarty potrzebna jest procedura(?), która ten skoroszyt otwiera, zmienia właściwość "tylko do odczytu", zapisuje, i zamyka go.
Temat zamykam. Wprowadzono poprawki w systemie.
Jak przerobić makro poniżej, by działało przy otwartym skoroszycie źródłowym (nie mogę go zamykać), z którego ma pobierać dane, gdyż obecnie wyskakuje mi taki błąd (dane oczywiście pobiera): http://obrazki.elektroda.pl/7726577100_1... i przenosi do tej linii Set wb = GetObject(strQ) Kod zamyka skoroszyt źródłowy (a chciałbym,...
Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...
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
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."...
Teraz jednak chciałbym, aby od czasu do czasu była możliwość zapisania tych dwóch plików jednocześnie Dziwi mnie Twój kod :D w którym najpierw zamykasz (bez pytania) aktywny skoroszyt, a potem chcesz go zachować :?: :cry: Ale w kwestii wyboru sposobu zapisywania - to można wykorzystać kod typu: [syntax=vbscript] Select Case MsgBox("Czy zapisać oba...
Ok wszystko fajnie tyle że ten kod zamyka mi cały proces excela czyli wszystkie otwarte skoroszyty a ja chcę tylko wybrane. I jeszcze jedno nie mam możliwości eksportu xlsm tylko xlsx Pozdro:)
Jeszcze raz dziękuję, przetestowane wiele razy, wszystko działa jak powinno :) Krótkie pytanie na koniec- jak zmienić w powyższym kodzie separator z tabulatora na średnik? Przyda się na przyszłość ;) Pozdrawiam EDIT: OK, wystarczy zmienić w fragment kodzie na: FileFormat:=xlCSV Wszystko jasne, dziękuję i zamykam temat.
Witam, mam pytanie dotyczące możliwości tworzenia kopii arkusza nad którym aktualnie pracujemy. Modyfikując i pisząc nowe formuły w VBA nie zawsze można przewidzieć konsekwencje powodujące zawieszanie się komend lub co gorsze wpadnięcie wykonywanych działań w "pętlę" co nieraz kończy się taką deformacją VBA lub samego arkusza, że trzeba wszystko zaczynać...
Rozwiązanie problemu: należy utworzyć połączenie z skoroszytem w którym interesujący nas arkusz jest widoczny. Po utworzeniu połączenia można ukryć arkusz, odświeżanie danych działa. Temat zamykam.
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 Mam taki oto problem, że w oknie excela 2007 w jednym konkretnym skoroszycie nie mam ikonek: maksymalizacji, minimalizacji i zamykania. Okna nie da się również powiększyć przez "ciągnięcie" za krawędź, dwuklik na belce tytułu również nie działa, próbowałem także ctrl + F10. Rozmieszczanie okien ukrywa ten jeden skoroszyt pod spodem, a rozmieszcza...
Nie wiem dokładnie o co Ci chodzi. Tak jak podałem rozwiązanie wyżej. ActiveWorkbook.Sheets.Copy Sciezka = "C:\Users\...\Dane" ActiveWorkbook.SaveAs Filename:=Sciezka & "\Raport_Dzienny" & "_Magazyn_" & adres1 & "_Tydzień_" & adres2 & "_" & Format(Date, "dd-mm-yy") & ".xlsx" ActiveWorkbook.Close Aby ominąć makra tworzysz kopię skoroszytu otwiera się...
No z tym trzymaniem w kupie to chyba nie najlepszy pomysł bo otwarty skoroszyt zawiera dużo informacji a tych skoroszytów może byc kilka. Więc lepiej by był otwarty tylko jeden. A teraz o tym zamykaniu i otwieraniu, to próbowałem ale jak pisałem coś działa nie do końca tak jak bym chciał. Całość ma wygladać tak: Otwieram skoroszyt powitalny, ma sie...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
witam, mam pewien problem poniżej zamieszczam fragment kodu: Dodano po 14 błąd już znaleziony :) nie zwróciłem uwagi że przechodzi mi do danego skoroszytu jednak nie zamyka wcześniej wywołanego inpotboxu, i formularzu :)
skoroszyt formatowanie chroni skoroszyt skoroszyt excel
tecumseh ustawienie zaworów kontrast laptop powoduje zakłócenia cyfrowe audio
głośnik modelarski zmywarka hisense
Mechanizm napędowy koguta 12V – silnik DC, przekładnia, BLDC, LED, Federal Signal, Whelen, Flight Light Rura spiro – kanały wentylacyjne ocynk, stal nierdzewna, peszle spiroflex – budowa i zastosowanie