To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
No tak to jest, gdy poprawka dotyczy fragmentu wyrwanego "ze środka" ;) W załączniku uproszczony przykład kopiowania w ukrytym arkuszu ("Arkusz1"). -odkryj -popatrz -ukryj -naciśnij przycisk -odkryj i zobacz co się narobiło
Prawym klawiszem na wybrany arkusz i "Chroń arkusz", jeśli chcesz ukryć to wybierasz "Ukryj". Później dajesz "Chroń skoroszyt" w opcjach Recenzja z zaznaczeniem pola "Struktura" i nie ma możliwości odkrycia arkusza. Założone hasło nie jest wywoływane przy otwieraniu dokumentu. Trzeba je wprowadzić tylko w celu zaprzestania ochrony skoroszytu. Dziękuję...
Luknij do pomocy... Excel2007-zaznacz cały arkusz - Narzędzia główne>Format>Odkryj wiersze
W jaki sposób zaznaczasz lub chcesz zaznaczać te kolumny do wydruku? Sposób z nieciągłym zakresem wydruku ma tę wadę, że każdy jego obszar jest drukowany na osobnej stronie. Jeśli to nie jest problemem, można ten sposób stosować. Jeśli potrzebne jest uzyskanie ciągłego wydruku, nie ma prostego sposobu. Można się wspomóc kodem VBA. Można albo zapamiętać...
Toż to jedno drugiemu zarzecza - jak ktoś ma zablokowane makra, to jak makro "wymuszające" ma się odpalić?? ;) Nie ma takiej opcji. Możesz najwyżej ukryć wszystkie arkusze, zabezpieczyć dostęp do kodu VBA hasłem, i odkrywać je makrem na otwarciu. Jeżeli ktoś ma wyłączone makra -> makro na uruchomieniu się nie odpali i strony mu się nie odkryją. Jeżeli...
To działa ale tylko w przypadku jednej kolumny. Potrzebuje aby po wpisaniu wartości w kolumnie np D w arkuszu nr 1 zostały odkryte wszystkie kolumny D we wszystkich arkuszach.
Cześć Czy ktoś mi może pomóc w prostszej wersji powyższego, Potrzebuję żeby plik który ma kilka arkuszy odkrytych (dostępnych dla wszystkich) miał też jeden arkusz dostępny tylko dla osób posiadających hasło! Proszę o pomoc
Jeśli zamieścisz arkusz to może ktoś ustali dlaczego to nie działa ale sam kod to za mało gdzie on jest w arkuszu w skoroszycie czy w osobnym module? Mówisz że działa poprawnie, gdy ukryty arkusz jest aktywny... Ciekawe bo ukryty arkusz nie może być aktywny, aktywowanie ukrytego arkusza wyrzuci błąd, więc jeśli już musisz tak robić, to go odkryj, zrób...
Nie wiem co pominąłem w odpowiedzi. Po prostu plik był na dysku HDD Samsunga, na drugiej partycji, odkryłem jego brak po miesiącu - czy czas po zwykłym usunięciu do kosza, ma jakieś znaczenie później podczas próby odzysku? Tak, to jest właśnie ta brakująca informacja. Czyli jak wyżej, plik najprawdopodobniej jest częściowo lub w całości nadpisany.
Zgadzam się z kolegą marek003 z tym, że bystrzejszy użytkownik może przerwać działanie makra i... ma dostęp do w ten sposób zabezpieczonego arkusza. Innym rozwiązaniem jest skopiowanie (makrem) określonego obszaru/ów do innego arkusza i tam umożliwienie obróbki bez ograniczeń. W ten sam sposób można opracować plik "roboczy" dla użytkownika i później...
Jak mogę to zrobić automatycznie, nie chcę rezygnować z formatu numeracji. Przygotuj sobie szablon arkusza z odpowiednią tabelą (właściwie sformatowany) - zrób wzorcową numerację (zgodnie z zasadami logiki można to zrobić przez przeciąganie :D ), a w arkuszach roboczych (kopiach szablonu) użyj opcji ukryj/odkryj dla akurat niepotrzebnych wierszy.
Ale co chcesz osiągnąć? Nawet gdyby szło przewijać, zmiana wartości komórki w arkuszu nie zmieni wartości pola tekstowego. Musiałbyś wczytać ponownie... Jakimś sposobem byłoby umieścić ukrywanie formularza pod przyciskiem (UserForm.Hide), a w Thisworkbook_Open przypisać kombinację klawiszy uruchamiania makra odkrywania. Np dla Shift+a Application.OnKey...
Mam problem w pliku mam niewiadoma liczba ukrytych arkuszy chciałem wszystkie odkryć za pomocą makra z pomocą Internetu stworzyłem taki kod Sub odkryjbarkusze() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub niestety nie działa moja znajomość VBA nie pozwala mi znaleźć błędu. Excel 2010 podświetlana...
Dzięki za zainteresowanie. Jednak w rzeczywistości Arkusz B jest nieedytowalny i nie można w nim odkryć skoroszytu z danymi tak jak w załączonym. Zrobiłem taki arkusz dla przykładu. Jeżeli była by taka możliwość zastosowałbym funkcję WYSZUKAJ.PIONOWO. Tak więc muszę napisać takie makro aby mi pobierało numer z Arkusza A wklejało do Bazy Arkusz B i pobierało...
Tam są obrazki! ExecuteExcel4Macro chyba odpada (z ciekawości jeszcze spróbuję). Nie możesz po prostu otworzyć plik Workbooks.Open i skopiować arkusze? Ewentualnie można oba plik otworzyć w ukrytej instancji i tu kombinować z wywołaniem makra (tego jeszcze nie próbowałem) i odkryć dopiero po zamknięciu pliku z budynkami... Ale czy ma to sens?
Ja pracuję na excelu XP i 2003 wszystko działa jak trzeba. Po włączeniu autofiltru i ustaleniu jakiś kryteriów zaznaczam dane (całą tabelę) http://obrazki.elektroda.net/1_127307734... przykładowe dane: http://obrazki.elektroda.net/94_12730764... ustawienie kryterium http://obrazki.elektroda.net/50_12730764... wynik: http://obrazki.elektroda.net/54_12730764...
Mam jeszcze pytanko związane z plikiem i ukrytymi arkuszami. Teraz już wszystko działa Ok jednak chcę do pliku dodać jeszcze jedną opcję, mianowicie chcę dodać jeden przycisk którym odkryję wszystkie ukryte arkusze. Mam w pliku 20 arkuszy o nazwach od 1 do 20 i chcę żeby kliknięciem na przycisk pojawiły mi się na dolnym pasku wszystkie arkusze, jak...
W ostatnim z przedstawionych nie ma makra. Wszystko opiera się na formułach excela. Odkryj kolumny od K do Q a zobaczysz "silnik" funkcji zmieniającej cyfry w słownie. Zaznacza kolumny i klikam "odkryj", ale prosi o hasło??? A jak rozwiązać sprawę pisania np 30 - 40 różnych kwot słownie? Chcę coś takiego umieścić w arkuszach przetargowych - różne przetargi...
To powinno działać: [syntax=vb]Private Sub Workbook_Open() ActiveWindow.WindowState = xlMinimized WYDRUK_ETYKIET.Show End Sub [/syntax] Jeśli dodatkowo chcesz, aby arkusze ukryły się w ten sposób, aby tylko przez VBA można było je odkryć to dodaj: [syntax=vb] Private Sub Workbook_Open() Sheets("nazwa_arkusza").Visible = xlVeryHidden '.....tu wpisujesz...
1. Jeżeli nie używasz "select" przy kopiowaniu (czyli tak jak masz teraz) to możesz ukryć arkusze i skopiuje bez problemu ale można na czas kopiowania odkryć i ukryć przez np. Sheets("xx").Visible = xlSheetVisible Sheets("xx").Visible = xlSheetHidden 2. chodzi ci o że przy zapisaniu skoroszytu pobiera nazwę z komórki?
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Witam serdecznie, Mam następujący problem, udostępniam innym użytkownikom z mojej firmy pliki .xlsx do wypełnienia, które ze względu na późniejszą obróbkę makrami są poblokowane. Blokada polega na haśle w ochronie skoroszytu --> chroń strukturę i okna --> Struktura (nie chcę żeby pozostałe osoby widziały ukryte zakładki). Sęk w tym, że do późniejszych...
Tak dla pewności zapytam: 1. Jeśli użytkownik zmieni hasło w czasie pracy? 2. Jeśli otworzy bez VBA? To wszystko jest do ominięcia, ale trochę z tym zachodu. Makra muszą znajdować się w kodzie przy zdarzeniach skoroszytu (Thisworkbook). Ukrywasz przez .Visible = xlVeryHidden (odkryć można tylko z poziomu VBA!), odkrywasz przez .Visible = True. Lepiej...
Szanowni Panowie, Dyskusja staje się w dużej mierze bezprzedmiotowa. Podstawowa trudność wynika stąd, że funkcja UDF nie może dokonywać żadnych (z nielicznymi wyjątkami) zmian w skoroszycie czy arkuszu, m.in. nie może niczego ukrywać ani odkrywać. Takie operacje można wykonać tylko makro, czyli procedura Sub. Tych ograniczeń nie ma jeśli funkcja jest...
Siemka. Jako, że excel ma tyyyyle możliwości (których jeszcze nie odkryłem), mam takie pytanie: czy istnieje możliwość aby po wpisaniu pewnych danych do różnych arkuszy, określone dane zostały samoczynnie skopiowane do takiego arkusza nazwijmy go "zbiorczego" i uzupełniały się te dane z podziałem na miesiące (w załączeniu przykładowy plik). Szczegółowiej...
Ja zaproponuję jeszcze coś innego (oczywiście cały czas mówimy o możliwościach bez wykorzystania VBA [makr]). Zaznacz wszystkie kolumny. Ukryj je. Włącz ochronę arkusza z hasłem odhaczając wszystkie opcje. Najedź na nazwę arkusza kliknij ukryj. Nawet jak ktoś odkryje arkusz będzie widział szarość i by coś zobaczyć (odkryć kolumny) musiałby znać hasło....
Dołóż jeszcze ochronę arkusza (z innego pliku będzie można odczytać, ale zmienić już nie). O ile hasło będzie dosyć mocne dla "usuwaczy" freewarowych, o płatnych nie wspominam. Warto też chronić projekt VBA hasłem, żeby nikt nie mógł zmienić atrybutu Visible arkusza w edytorze i powinno być OK. Tu akurat, z innego pliku, odkrycie ukrytych arkuszy pójdzie...
Jeśli już masz makro ukrywania/odkrywania kolumn to: podpowiedź 1. W arkuszu chronionym nie można odkryć kolumn podpowiedź 2. Ochronę z hasłem można zrealizować w makro, konieczna ochrona kodu VBA. podpowiedź 3. [syntax=vb]I UserName = "User1" then 'odkrywamy jakieś kolumny ElseIf UserName = "User2" then 'odkrywamy inne kolumny Else msgbox "Jako " &...
Mój kod sprawdza czy w skoroszycie istnieje arkusz o nazwie takiej jak nazwa użytkownika i jeśli ten warunek jest spełniony to zostaje odkryty taki arkusz a wszystkie pozostałe są ukrywane. Jeśli w skoroszycie nie ma arkusza o nazwie takiej jak nazwa użytkownika to zostaje odkryty jedynie arkusz o nazwie "Arkusz1". Innych warunków nie przedstawiłeś.
Witam ponownie, dziękuję bardzo za podpowiedzi. Co do funkcji wyszukaj pionowo - zbyt skomlikowana, choc aż wstyd, bo miałam ja na studiach a nie umiem jej zastosować w praktyce. (tam jest potrzebna tabela odniesienia prawda? gdzies obok - stworzona) Posłużę sie juz gotowcem, (leniwa jestem okrutnie) bo sprawdziłam i działa. Jeśli odkryje co do niego...
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
Witam, chciałam napisać makro, które po zaznaczeniu odpowiedniego okienka ukryję bądź odkryje odpowiednie kolumny w następnym skoroszycie. Próbowałam jak poniżej, jednak wyrzuca mi błąd zaznaczająć podkreśloną linijkę. Jak inaczej odwołać się do innej zakładki? Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Sheets("sheet2").Columns("G:G").Select.....
Dobra zaczniemy od początku ze program nie był uzupełniony, dlatego nic nie liczył, już trochę uzupełniłem. Potrzebuje, aby program wyliczał w arkuszu1 wszystkie sumy począwszy od J8 do J18 "zestawienie”, czyli urlopu kursy chorobowe itd., jeśli chodzi o arkusz 2 to chciałem zrobić, aby każda osoba była do wyboru i jej dane można było przez zmianę...
Dobra zaczniemy od początku ze program nie był uzupełniony, dlatego nic nie liczył, już trochę uzupełniłem. Potrzebuje, aby program wyliczał w arkuszu1 wszystkie sumy począwszy od J8 do J18 "zestawienie", czyli urlopu kursy chorobowe itd., jeśli chodzi o arkusz 2 to chciałem zrobić, aby każda osoba była do wyboru i jej dane można było przez zmianę w...
adamas_nt, to co podesłałeś jest idealne :) Kwestia sformatowania tabelki to już pikuś, zrobi się to na piechotę :) Ale jeśli piszesz, że poprawiłeś jakieś "byki" to już zerkam na poprawiony załącznik :) Dodano po 7 hmmm... Tylko zauważyłem, że jeśli z Arkusz 2 skopiuję całą tabelę do Arkusz 1 i odpalę Twoje makro to gdzieś giną dane z wiersza 49 i...
Bardzo dziękuję wszystkim za zainteresowanie tematem. Być może, ale to tylko spekulacja, ponieważ w momencie zakończenia procedury arkusz z którego była wywoływana jest już ukryty, to program może mieć problem z zakończeniem procedury. No właśnie jest dokładnie na odwrót. Przy odkrytych arkuszach widać, że coś jest nie tak Można spróbować wykonywać...
Dziękuję za odpowiedzi i za skrypt. Niestety arkusz kalkulacyjny od Google jest bardzo problematyczny. A skrypt nie działa do końca prawidłowo ale to wina chyba google ewentualnie tego skryptu. Dane się nie odświeżają, prawidłowa wartość pojawia się jednorazowo przy wpisaniu formuły a później praktycznie w ogolę się nie zmienia przy dopisywaniu danych...
Dziękuję za uznanie. Bardzo lubię naprawdę dobre wina :) niemniej nie czuję, że takim drobiazgiem mógłbym no to zasłużyć. marek003 Kopiuje formułę ostatnia data i coś nie chce znaleźć Możesz wytłumaczyć na jakiej zasadzie działa Sama kopia formuły to za mało. Pisałem, że muszę się wspomagać wierszem pomocniczym (ukryłem go by nie zaśmiecał obrazu)....
Jak pisze w pomocy Sends a bit-by-bit image of a UserForm object to the printer. (...) PrintForm prints all visible objects and bitmaps of the UserForm object. PrintForm also prints graphics added to a UserForm object. (...) The printer used by PrintForm is determined by the operating system's Control Panel settings. Nie masz wpływu na wydruk tą metodą....
Mam makro, które kopiuje ze wskazanego pliku kolumny A:N i wkleja do odkrywanego arkusza w pliku z makrem. Takich plików, z których są kopiowane kolumny może być do 9 (może być mniej). Arkusze do których są kopiowane kolumny mają nazwy 'I L", "II L" itd do "IX L". Jak zrobić, żebym nie musiał każdorazowo uruchamiać makra do każdego pliku. Chodzi mi...
Traktuję to zagadnienie już nie tyle ambicjonalnie ale raczej jako ciekawą pasję. Grafik działa świetnie i jestem świadom tego że to narzędzie do wygenerowania wydruku, a nie przechowywania danych. Jednak im dłużej się temu przyglądam tym bardziej mnie to ciekawi i teraz na jego bazie chciałbym zrobić dla siebie "zbiór" fajnych formuł w różnych zastosowaniach....
Przerobiłem kod. Pozbyłem się wyszukiwania pierwszej wolnej komórki i zastąpiłem poniższym kodem: [syntax=vb]If Sheet3.Cells(69, 2) = Sheet1.Cells(2, 8) Then With Workbooks("testlatest.xlsm") With .Worksheets("Sheet1") .Activate .Cells(2, 22).Select End With Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Cześć. A może coś więcej bo na razie z informacją jest oszczędnie? Jak zablokowany (włączona ochrona)? Najprostszym sposobem jest go makrem odblokować, ukryć/odkryć wiersze i zablokować (też makrem) na nowo. Do odblokowania służy: [syntax=vbscript]Sheets("Arkusz").Unprot... Blokuje natomiast: [syntax=vbscript]Sheets("TMP").Protect[/...
Niestety nie umiem wykorzystać twoich kodów żeby poprawnie działały. Może dokładniej powiem co chcę osiągnąć tym kodem. Wykorzystałem w nim pięć przycisków CheckBox (wszystkie przyciski są w jednym arkuszu), w kodzie jak pokazałem w pierwszym poście wszystko działa ok, jednak chciałem aby zastosować kolejność odkrywania kolumn pod warunkiem że poprzednie...
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Witam. Mam pewien problem z arkuszem, dokładnie chciałem sobie zrobić coś takiego że jest sprawdzane kilka warunków by móc używać danego pliku excela. Z VB jestem niestety zielony, ale dzięki informacjom znalezionym coś tam sobie próbuje skleić. Mianowicie mam już coś takiego: ThisWorkbook: Kod: Option Explicit 'własna obsługa zapisu przy zamykaniu...
Cześć. Pojawił sie dodatkowy problem. Potrzebuje filtrować produkty do których podpinam zdjęcia. Robie to na bazie filtra zaawansowanego, niestety w przypadku gdy ukrywane sa wiersze, zdjecia z ukrytych wierszy nachodzą na odkryty nastepny wiersz. Czy jest jakis sposób alby zdjęcia ukrywały sie razem z wierszami?
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...
Tak, czy tak go otwierasz... Możliwość podglądu, to zadeklarowanie zmiennej obiektowej 'objExcel' jako globalnej, i w dowolnym makrze polecenie objExcel.Visible = True Gdzieś go trzeba też ostatecznie "zabić" (objExcel.Quit), jeśli go nie odkryjesz. To też sprawa do przemyślenia.
Cześć. Na początku chciałbym poinformować,że nie dawno odkryłem VBA czy tow Excelu czy Wordzie. Tym samym jestem zielony w tym temacie. Pocieszam się tylko tym że nie na wszystkim muszę się znać. Jak domyślacie na VBA nie znam się w ogóle :cry: . W związku z powyższym do osób które znają w tym temacie mam gorącą prośbę. Potrzebuję makra,które będzie...
Kompiluje się i usuwa wiersz, nic więcej nowego nie odkryjemy: [syntax=vbnet] 'i = 2 'Do Until String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) ' If String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) Then ' objRange = oSheet.Cells(i, 2).EntireRow ' objRange.Delete ' i = i - 1 ' End If ' i = i + 1 'Loop try Dim arkusz = oExcel.Application.Sheets("Korpusy")...
excel blokada arkusza excel udostępnianie arkusza nazwa arkusza excel
livebox router bezprzewodowo żarówka omnilux zrobić cennik
obrotomierz motocyklowy amica pa4560a420
Pralka do 2500 zł oszczędzająca wodę: Samsung, Bosch, Electrolux, LG Kompatybilność pilota GT3.2 z odbiornikiem GT2 EVO