...Mam skłonność do wybierania krótkich kodów, Żebyś tak jeszcze miał skłonność do pisania krótszych postów ;P Niedawno miałem podobny problem, który rozwiązałem w ten sposób, że przed otwarciem pliku sprawdzam wszystkie otwarte arkusze. Coś w stylu: otwarty = false for each ws in Workbooks if ws.Name = "RAPORT DZIENNY.xls" then otwarty =...
Witam! A czemu nie załączyłeś "takiego" nietypowego pliku :?: :cry: IMHO - możliwości są co najmniej dwie :D : błąd pliku (np uszkodzony szablon nowego pliku), albo błąd aplikacji Excel :?:
Co w zrozumieniu ' blokowało '? (Tylko do odczytu, otwarcie z haslem, inne)
[syntax=vb] Sub nowy() Const stn = "\\server\vers\" 'sciezka do pliku na serwerze myName = ThisWorkbook.Name klon = Split(myName, ".")(0) typ = Split(myName, ".")(1) ThisWorkbook.SaveAs klon & "_old." & typ Workbooks.Open stn & myName ThisWorkbook.Close True End Sub [/syntax]
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]
To chyba pierwszy na tym forum wątek dotyczący poziomów prywatności w PQ. W skoroszycie są kwerendy PQ, które pobierają dane z adresów NBP: https://nbp.pl/podstawowe-stopy-procento... ora... Bezpośrednia odpowiedź - To blokada Zapory Prywatności Danych (Formula.Firewall) w Power Query: łączysz dane z Excela (Excel.CurrentWorkbook) z internetem...
Jednak lepiej będzie jak załączysz skoroszyt Excela zamiast pliku PDF.
[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...
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"
Z włączoną synchronizacją: Widzisz odpowiedź? [syntax=vbscript]sciezka = ActiveWorkbook.Path[/syntax] Jeżeli włączysz synchronizację twoja sciezka się zmienia przez co dir() się wysypuje bo nie obsługuje url-a tak na szybko to zmień na stałą ścieżkę [syntax=vbscript]sciezka = "c:\users\kotar\onedrive\dokumenty\aplex... Plik = Dir(sciezka & "\Dokumenty\Pracownik\"...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
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...
Na obrazku skoroszyt jest otwarty na Twoim kompie Na obrazku widać, że Excel jest otwarty na komputerze zdalnym (AnyDesk). Na filmie uruchamiam makro, które importuje z Arkusz1 (z zasobu sieciowego \\serwer\bekap\a.xlsx) do tabeli Excel, co działa. Chyba o pobranie danych Ci chodzi, a nie o kopiowanie pliku, prawda? [syntax=vbscript]Kill Ustawienia.Ścieżka...
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...
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
Znaj moje dobre serce :) Stany magazynowe tworzą się na podstawie wpisanych dokumentów więc "ręczna" ingerencja w arkusze DokumentyPZ i DokumentyWZ "rozwali" stany. Stany magazynowe robią się na bieżąco ale gdyby się coś zacięło Przycisk odtwórz stany na podstawie dokumentów od początku stworzy zestawienie Są pewne instrumenty zabezpieczające ale nie...
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)...
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.
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...
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. Jestem tu nowy i nie wiem gdzie zadać moje pytanie więc zakładam nowy wątek - jeśli mogę. Potrzebuję instrukcji jak pokazać (Excel 2010) zawartość kilku komórek ze "skoroszytów 1", "2", "3", "3", "4", "5" w innym "skoroszycie 6". Dodam, że w skoroszytach 1,2,3,4,5 jest kilka arkuszy i w każdym arkuszu są 4 komórki które chciałbym pokazać w skoroszycie...
(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
Witajcie. Być może prosta sprawa, ale poległem. Dostałem plik, w którym nie jestem w stanie zmienić rozmiaru skoroszytu (rozszerzyć go na pełny ekran). Zawartość arkusza nie jest istotna (nawet usunąłem). Chodzi mi tylko o zmianę rozmiaru. W jaki sposób to odblokować?
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Witam! Mam problem, wydaje być się prostym, ale nigdzie nie mogę znaleźć rozwiązania. Mam folder z plikami (skoroszytami) Excel - około 80 plików (czasami w każdym skoroszycie po parę arkuszy). Chciałbym scalić te wszystkie pliki w jeden skoroszyt, aby powstał jeden plik z 80-cioma arkuszami. Przykład: Mam folder X który zawiera: Skoroszyt A w który...
Witam! Mam 2 skoroszyty "teścik" oraz "wyprodukowane" - oba znajdują się w tej samej lokalizacji. W skoroszycie "teścik" mam raport do wpisywania wyprodukowanych towarów z podziałem na rodzaje (kody), udało mi się zaprogramować plik w taki sposób aby przenosił wprowadzone dane wraz z danymi pobocznymi do arkuszy odpowiadających nazwie towaru znajdujących...
Witam Serdecznie Mam skoroszyt w którym jest arkusz1 Zestawienie pracowników z nr telefonów arkusz2 tzw forecast grafik na mc listopad z wpisanymi godzinami na sztywno dla pracowników arkusz3 rozłożony na dni plan miejsc pracy (od 3 do 23 - pierwsza kolumna) arkusz4 grafik roboczy na mc listopad z wpisanymi godzinami ale do poprawy i do naniesienia...
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ę...
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
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...
A więc.. sprawa jest bardzo prosta, musisz stworzyć warunki w kolumnach np z prawej strony danych. Warunki takie będą wyświetlać 1 lub 0 w przypadku prawdy i fałszu (D, E, F), w kolumnie G za pomocą znaków konkatenacji lub funkcji złącz.teksty() łączysz wszystkie 1 i 0 z kolumn w których znajdują się warunki. Powstają Ci w ten sposób słowa kodowe np:...
Najprościej? Połączyć arkusze (jako źródła tabelek) w Access i już z poziomu Access'a można sobie widokami (kwerendami) porobić co się chce - włącznie z szukaniem duplikatów. Rzeźbienie tego w Excelu to będzie więcej roboty (np. z tym szukaniem duplikatów).
1. Najpierw o "chroń i udostępnij skoroszyt..." Nie znalazłem sprawdzenia "wprost" tych statusów, ale można zrobić obejście (funkcja): - dla MultiUserEditing (True) wywołać: - Workbook.UnprotectSharing ("xx") przy czym - hasło z założenia jest błędne => - jeśli hasła nie ma, to jesteśmy w domu (Ochrona=False) - jeśli hasło jest, to mamy błąd, który...
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...
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,...
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Dwa pytania na wstępie. Czy możesz ingerować w ten skoroszyt (dodać dodatkową kolumnę dzięki której później będziesz filtrował dane)? O jaką tabelę ci chodzi (z którego arkusza)? Jeżeli możesz ingerować w arkusz dodaj jedną kolumnę przy nazwisku. Wpisz formuły odnoszące się do nazwiska we wszystkich wierszach dotyczących tego nazwiska. Zaznacz grupę...
Kopiujesz arkusz (z formatami, filtrami, etc). A gdyby zastosować zwykłe kopiuj-wklej? Np [syntax=vb]Private Sub CommandButton1_Click() Dim wshSrc As Worksheet, wshDst As Worksheet Dim wbkSrc As Workbook, wbkDst As Workbook On Error GoTo Err_KopiujArkusz Set wbkSrc = ThisWorkbook 'ten skoroszyt Set wshSrc = wbkSrc.Worksheets("Arkusz1") wshSrc.Select...
Witam. Mam otwarty 1 skoroszyt w EXCELU. Klikając w górny "x" zamykałem skoroszyt i cały Excel (do niedawna). Teraz zamyka się tylko skoroszyt, a EXCEL pozostaje otwarty. DLACZEGO?
A może jakieś propozycje jak to elegancko rozwiązać? Wg. podanego przykładu ?
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...
Cóż, zamysł jest dobry. Projekt do najłatwiejszych nie należy i z pewnością jest czasochłonny. Uparcie brniesz dalej, gdzie większość woli gotowce i dawno rzuciłaby to w diabły nie narażając szarych komórek na przepracowanie. Tu tylko podziwiać, gratuluję. Szczerze mówiąc zaskoczyłeś mnie tym pytaniem :) Do tej pory szukałem tylko rozwiązań dotyczących...
"+" na początku jest tu zbędny, ale nie przeszkadza, natomiast dalszy przedrostek "_xlfn." przed angielską nazwą funkcji jest dodawany przez program Excel, gdy skoroszyt został zapisany w nowszej wersji Excela, a później próbuje się go uruchomić w starszej wersji, która nie obsługuje tej funkcji. Ten wygląd ekranu pochodzi od Excela, użytkownik nic...
Wstaw skoroszyt
Nie znam się ale myślę, że sprawdzając od pierwszego do ostatniego arkusza całe zakresy komórek.
Czasem pomaga zapisanie do formatu XLSX -> XLS. Zrób taki test, że: XLSX -> XLS a następnie ponownie do pliku: XLS -> XLSX XLS - to Skoroszyt programu Excel 97-2003
okno userform wywołuję tak: Private Sub Workbook_Open() WYDRUK_ETYKIET.Show End Sub w moim przypadku najpierw włącza się excel - potem userform - następnie arkusze się minimalizują a skoroszyt nie - a chodzi mi o to aby cały arkusz włączał się zminimalizowany a userform zmaksymalizowane
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...
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...
Jak otworzysz ten skoroszyt to otwiera ci się tylko ten excel na szaro, czy w drugim okienku jest poprawnie otwarty skoroszyt? Masz w exploratorze plików włączony podgląd zawartości (okienko podglądu)?
Czy masz może sposób na konsolidację paru plików, w których jest wiele skoroszytów ? Twój kod importuje tylko pierwszy skoroszyt Wydzielono z dyskusji archiwalnej => https://www.elektroda.pl/rtvforum/viewto... Proszę nie podpinać się pod stare tematy. RADU23
Rozwiązanie marek003 jest wydaje mi się prostsze i działało. Ale niestety jako laik próbowałem lekko zmienić skoroszyt i sie wykrzaczyło i niestety nie wiem dlaczego w pętli szukającej zlecenia sie wywala. Jeżeli mogę poprosić o sprawdzenie dlaczego.
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
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)...
Jeszcze nie jest tak jak mi się ,,wydaje że ma być" Przy nie wypełnionej komórce zamyka skoroszyt i dopiero po ponownym otwarciu informuje że jest pusta. Kopię zapisuje prawidłowo ze zmianami ale i z pustymi komórkami
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...
W przykładzie, gdzie Wziąłes formuła, została funkcja zdefiniowana przez użytkownika(Suma_Koloru), przepisz je do Twojego skoroszytu
excel skoroszyt skoroszyt excel szablony skoroszyt formatowanie
pokrętło regulacji głośności zmywarka mastercook fagor zastosować przekładnia zębaty
schemat skytec schrack integral
Brak kontaktu w nowym wyłączniku - co sprawdzić? Octagon SF8008 nie uruchamia się – bootloop, recovery, naprawa, firmware OpenATV, zasilacz
