[syntax=vbscript] On Error GoTo SubStop For Each Sheet In Worksheets Sheet.Test Next Sheet SubStop: On Error GoTo 0[/syntax]
Niestety jestem zmuszony powrócić do tego tematu. Podczas pracy na stworzonym arkuszu, i w trakcie dodawania klientów, po tym jak zostało dodanych około 300 klientów i powstało około 300 zakładek, po pierwsze działanie programu i makr zwolniło po drugie plik waży ponad 5mb i nie jest możliwa praca w sieci na zasadzie współdzielenia, zaś w starszej opcji...
Możliwe, że pytanie banalne, ale nie sformułowane w jasny sposób. Co rozumiesz pod pojęciami "menu arkusza" i "aktywować tylko nazwę"? Jeżeli chodzi o przechodzenie między arkuszami to Ctrl+PGUp lub Ctrl+PgDn
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
Zrozumiałem to trochę inaczej (wiele arkuszy w jednym skoroszycie). Przy porannej kawie wyszło mi coś takiego (przykład w załączniku). Uparłem się na zminimalizowanie VBA i dlatego zastosowałem jedynie odświeżanie filtra przy aktywowaniu arkusza.
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Jeśli nie miałeś do czynienia z formularzami, to najprościej zamknąć InputBox w pętli w Thisworkbook, przy zdarzeniu Open. Coś jak[syntax=vb]With Sheets("NazwaArkusza") For i = to 10 .Cells(i, 2)= Inputbox ("Wpisz wartość dla komórki B" & i) Next .activate End With[/syntax]Dograj sobie rejestratorem polecenie drukowania, lub po aktywowaniu arkusza naciśnij...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Zależy co umieszczasz w komórce H26. Jeśli liczbę (indeks arkusza) to wystarczy tak, jak napisałem wyżej. Jeśli nazwę (bez cudzysłowu) to lepiej wkb = Range("H26") Workbooks(wkb).Activate lub jednocześnie wybierając arkusz wkb = Range("H26") ark = Range("I26") Workbooks(wkb).Sheets(ark...
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....
Co tu wyjaśniać - masz przykład (Excel 2007). ...chyba, że masz te checkbox-y wprost na arkuszu (nie na formularzu użytkownika).
Powinieneś załączyć plik z przykładem, a nie skrawki kodu, bo nie wiadomo jakie tam masz jeszcze błędy. W Twoim zapisie jest błąd polegający na tym, że mieszasz odwołania do różnych arkuszy. Zarówno obiekt Range, jak i właściwość Cells odnoszą się do konkretnego arkusza. Pisząc w kodzie: [syntax=vbscript]Sheets(2).Range(Cells(1... 11), Cells(1, KolumnaK))[/syntax]obiekt...
Wcześniej znalazłem komendę którą wpisywało się do do okienka uruchom, która aktywowało plik vba6.dll Pewnie chodzi o rejestrację biblioteki w systemie - sęk w tym, że rejestrujesz w ten sposób jakąś starszą wersję biblioteki, która nie istnieje/lub nie jest zarejestrowana/ w systemie. Pisząc makro od początku w nowym pliku nie powinieneś mieć żadnych...
Chyba pomieszałam. Niestety wcale nie "Chyba" :cry: , ale na pewno :D Komórka C5 nie jest powiązana z żadnym boxem umożliwiającym jakikolwiek wybór :!: Jeżeli cokolwiek wpiszesz do komórki C5 :arrow: zaczyna działać Twoje makro (oderwane zupełnie od arkusza Słownik :!: i tamtych tabelek), lecz po wybraniu checkboxa (ze względu na kod: If TrybEdycji...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Zapisuj w dodatkowym, ukrytym arkuszu wartości (argumenty położenia) przy dezaktywacji arkusza (ew. workbook_beforeclose) i pobieraj przy aktywowaniu...
Oczywiście. Z tym, że to jest, na oko, dość... proste. No i brakuje najważniejszej informacji. Na podstawie jakiego zdarzenia obrazki mają znaleźć się w arkuszu? Coś się musi wydarzyć, żeby zadziałało makro. Np zmiana w D6, naciśniecie przycisku, otwarcie pliku, aktywowanie arkusza (niepotrzebne skreślić)
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
I wszystko jest w porządku. Żeby wkleić całą kolumnę musisz aktywować komórkę w pierwszym wierszu. Ty robisz to w 14. Range("ag14").Activate To jest właśnie błąd, który pokazuje VBA.
Oferują sposób - aktywowany Arkusz 2, ma dialogu, który zaprasza zaznaczyc wierszy do edycji. Następnie Kliknij OK - dziala makro Inny sposób zapisz w makro w postaci "1:1 , 5:26, 29:57" np. [syntax=vb] Private Sub Worksheet_Activate() Dim k&, och As Boolean Set arw = Range("2:2, 3:3, 5:8, 12:24") With Me .Unprotect For k = 1 To 11 och = UCase(.Cells(1,...
Komunikat nie zależy od arkusza. Przed wywołaniem MsgBox należałoby aktywować właściwy. Ale nie znam zależności, więc trudno podpowiedzieć coś konkretnego. Właściwość Target.Formula zwróci to co wpisane do komórki w postaci String, więc może dałoby się "wydłubać" nazwę, rozdzielając string wykrzyknikiem. Możesz wrzucić jakiś przykład (plik jako załącznik)?
Po usunięciu wiersza (pozostał omyłkowo): ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True działa jak należy. Czyli jednak zdarzenie "SelectionChange"... Dziękuję. Mam jeszcze pytanie - czy jest możliwość ustawienia hasła dla aktywowanej w ten sposób ochrony arkusza?
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...
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...
No i widzisz bo pracujesz na aktywnym arkuszu. Jak sobie przypiszesz do zmiennej workbook to nie musisz fokusować drugiego okna. Autofiltr też możesz zrobić na obiekcie. A pliku do zmiennej nie musisz otwierać możesz go przypisać: [syntax=vbscript] Set Wrkb2 = Workbooks("zeszyt2.xlsb") [/syntax] A potem się odwołujesz do tego obiektu. Aktywacje możesz...
będąc w jednym skoroszycie nie mogę zrobić odniesienia do innego skoroszytu(np żeby dodać jakaś wartość z arkusza, który jest w innym skoroszycie). Nie mogę nawet jednego arkusza z danego skoroszytu skopiować do innego skoroszytu. Excel będąc w jednym z nich jak gdyby nie widzi drugiego. Jak jestem w skoroszycie A i w arkuszu nr 1 w komórce a1 chcę...
Doszedłem do tego, że uaktywnienie działa od ostatniego arkusza "wstecz" dlatego nie mogliśmy się dogadać. Aktywując makro w pierwszym arkuszu nie działa zamiana w kolejnych, zaś aktywując w ostatnim arkuszu - zamienia dane do tyłu. Dlaczego tak się dzieje, można odwrócić działanie, aby marko działało z Arkusza_1, a nie np. Arkusza_8?
Jeśli makro jest w module lub jest to kod formularza a wcześniej nie jest aktywowany właściwy arkusz, to wartość pobierana jest z komórki bieżącego (aktywnego w tym momencie) arkusza. Dla uniknięcia "pomyłek" lepiej użyć pełnego adresu Np w bloku "With-End With" With Sheets("Arkusz1").Rang... & j) .Value = .Value...
Który arkusz jest aktywny w trakcie podglądu ? Dlaczego właściwie do identyfikacji numeru wiersza, z którego pobierane mają być dane, służy zaznaczenie jakiejś jego komórki/komórek, czy to jedyny mechanizm, który można zastosować ? Makro aktywuje na poglądzie arkusz Etykieta. W podglądzie nie ma danych uzupełnionych z arkusza Baza oraz gubi się odwołanie.
Są różne rozwiązania, zaproponowaliśmy te, które wydają się najprostsze w opisanej sytuacji. Innym rozwiązaniem jest wyłączenie opcji "Użyj separatorów systemowych" i wskazanie kropki jako separatora dziesiętnego, a przecinka jako separatora tysięcy. Ale to automatycznie nie skonwertuje tekstów, które już masz w arkuszu na liczby. I tak trzeba każdą...
Wielkie dzięki za pomoc, dokładnie o takie rozwiązanie chodziło. Co do tego że nie lubię VBA, to nie prawda, lubię i już kilka rzeczy zrobiłem posługując się tym. Problem był jednak taki, że nie mam możliwości włączenia opcji w pracy, żeby makra działały automatycznie w arkuszu. Opcja jest zablokowana przez administratora. Jeśli są makra to wyskakuje...
W takim razie nie plik tylko arkusz kod to np. (w zależności od nazwy arkusza) Sheets("Arkusz2").Acti... 'aktywowanie arkusza Range("A100").Select 'zaznaczenike/przejście do danej komórki nagrywanie makr jest w zakładce deweloper (excel 2007 i wyżej) Jeżeli nie masz jej widocznej to ją włącz w opcjach. W niższych...
Udało się mi rozwiązać jeden z moich tematów: ... jak powinien wyglądać kod dla ikon przycisków (OK i Anuluj) żeby po kliknięciu na nie zamknąć to okno. Dla ikony przycisku (CommandButton1) wystarczyło podać odpowiedni kod VBA Jak aktywować wyświetlanie okna UserForm, poprzez kliknięcie w dowolną komórkę kolumn C, D lub E w Arkuszu1 Umiem już aktywować...
[syntax=vbscript] Sub Przycisk1_Kliknięcie() If Arkusz1.CheckBox1.Value = True Then Sheets("oswiadczenie1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("Formularz").Select End If End Sub [/syntax] Poszło w ten sposób. Jeszce tylko jedno drukuję formularz tak jak to widać w kodzie u góry, a więc uaktywniam formularz do drukowania, drukuję,...
Bardzo dziękuję. Faktycznie jest taka możliwość, lecz niestety taka funkcja zaczyna ona działać od momentu aktywowania jej, a ja potrzebuję obejrzeć mój arkusz sprzed jednego, dwu i trzech miesięcy, a funkcji takiej włączonej nie miałem i pomyślałem - być może gdzieś w systemie jakieś archiwalne temp co jakiś czas Excel zrzuca.
Aktywowany moglby być albo za pomocą skrótu klawiszowego albo za pomocą wstawionego przycisku w arkusz. Folder też mógłby być wybierany za pomocą takiego przycisku. :) Jeśli coś źle zrozumiałam to przepraszam ale jestem zielona w te klocki, potrafię co prawda stosować jakieś proste formuly ale to już jest chyba grubszy temat :)
Pomyśl, jak radzi kolega PRL . Przecież jeśli wstawiasz kwerendę With ActiveSheet.QueryTables.Add(Conne... to wystarczy jak na początku pętli dopiszesz wstawianie nowego arkusza (nagraj makro i przekopiuj), nadanie mu nazwy i aktywowanie (niekonieczne, bo nowy=aktywowany, ale dla porządku). Razem 3 (słownie: trzy) linijki ;) Pomocna uwaga: Nowo wstawiony...
ale to nie działa chyba dlatego że kod jest umieszczony w Module To nie to. Makro aktywuje arkusz o nazwie przypisanej do zmiennej 'grafik', dlatego ActiveSheet będzie zawsze Sheets(grafik). Najprościej byłoby przerobić je na procedurę z przekazaniem argumentu w postaci nazwy aktywnego arkusza. Ale jest jeszcze wiele niejasności... Najlepiej, gdybyś...
A no tak, sorka. Chodzi mi o makro w exelu. Nie mogę skopiować makr w arkuszu które pobierają dane bo te są chronione hasłem. Makro jest jednak przypisane do przycisku. Mam roboczy raport do którego ręcznie przeklejam dane. Istnieje sposób aby napisać takie makro Excel aby w tym moim pliku roboczym otwierało plik który pobiera dane i aby to makro aktywowało...
Można, wykorzystując VBA. Procedura zdarzeniowa przy otwarciu pliku lub aktywowaniu arkusza. Nagraj makro Formatowanie>Ochrona wiersza. Początek makra to założenie ochrony na wszystkie (Cells), następnie odblokowanie wybranego wiersza. Np w pętli, przez wyszukanie (Find), lub przez wskazanie (jeśli daty występują kolejno). Na początku oczywiście zdejmowanie...
Witam mam pytanie ... jak do jednego przycisku znajdującego się np. w arkuszu7 przypisać 2,3,4 lub więcej makr znajdujących (zapisanych) w rożnych arkuszach (arkusz 1, arkusz 2 itd.) W moim projekcie wygląda to tak że w arkuszu gdzie mam uzyskać wyniki muszę nacisnąć po kolei 10 różnych przycisków aktywujących różna makra odpowiedzialne za poszczególne...
Wywołuj formularz przy zdarzeniu arkusza "BeforeDoubleClick" w zakresach z datą i nie będą potrzebne żadne przyciski. Reszta do przerobienia w module klasy "clsInfo". Jeśli nie ma być aktywowana nst. komórka w pionie, wystarczy "zaremować" linie z offsetami.
Witajcie Magowie. Chcialbym podlaczyc sie do tematu choc tak naprawde dla mnie VBA i Makra sa kompletnie czarna magia. Jeszcze do niedawna kompletnie niedoceniany przeze mnie Excel byl poprostu ignorowany. Az do teraz. Sprawa wyglada nastepujaco. Mam trzy arkusze (lista, zamowienie i druk) w arkuszu lista jest spis wkretow i innych gwozdzi z ich danymi...
Sprawa jest bardzo prosta 1. dodajesz nazwę zakresu dla pierwszej kolumny pierwszego arkusza (dla wartości 100,200...). Wystarczy zaznaczyć wszystkie, kliknąć PPM i "nazwij zakres". Nazywasz to jak chcesz, ja nazwałem "dane" 2. w drugim arkuszu w komórce, w której chcesz wybierać z listy 100,200.. aktywujesz ją i w zakładce "dane" naciskasz poprawność...
Panowie, znowu mi wypada zwrócić honor. To raczej mój komp w pracy ma problemy a nie kod makro. W domu na laptopie wszystko wykonuje się szybko i bez problemów. Obydwa kody i kol. PRL i kol. marek003 . (at)marek003 - dziękuję za dodanie sprawdzania i informacji o braku wykonania. Super by było (jeżeli można) dodać na końcu wykonywania skryptu Msgbox...
O coś takiego mi chodziło tylko bardziej O zaznaczenie danej komórki i aktywowaniem przyciskiem aktywnym. Probowałem pozmieniać ale nie ogarniam. Arkusz "Oddziały" kolumna "nr zamówienia" i np przycisk 16 mam tam zrobiony. I chciałbym tym przyciskiem gdy klikam w daną komórkę (kolumna "Nr. Zamówienia") wyszukał hiperłącze z adresu: C:\Users\Biuro\Desktop\Dok...
Ja to widzę tak: Przyciski w arkuszach 2 i 3 label="Start". Klikasz i makro kopiuje dane wg "idWewnetrzneWniosku": 1. Jeśli osoba ma status "Nie figuruje w ewidencji" do Arkusza 3 i następnie realizuje pkt.3-4 2. Jeśli <> od "Nie figuruje w ewidencji", do tabelki w Arkusz2. 3. W zależności od statusu aktywujemy arkusz 2 lub 3. Przycisk zmienia...
Obawiam się, że tego wyświetlania od kolumny bieżącego dnia nie da się uzyskać bez makra, ja przynajmniej nie znam takiego sposobu. Ale makro do tego jest dość proste. Powinna wystarczyć taka krótka procedura w module uniwersalnym: [syntax=vbscript]Sub FindDay() Dim cel As Range Set cel = Sheets(1).Rows(5).Find(Date, LookIn:=xlValues) If Not cel Is...
Witam, mam w komórce hiperłącze prowadzące do skrótu innego arkusza (skrót z rozszerzeniem *.ink) Skoroszyt do którego prowadzi skrót jest na serwerze sieciowym , skrót na komputerze w sieci. Skrót włączany ręcznie na pulpicie działa Aktywowanie hiperłącza po kliknieciu komórki nie działa. Program prosi o potrwierdzenie zaufanego źródła - mimo potwierdzenia...
A tak przy okazji. Ponieważ kod działa mi już poprawnie to zamierzam teraz do niego dodać inne opcje dostępu jako Administrator. I zapytam: w pliku mam kilkanaście arkuszy i wszystkie są dokładnie takie same, są to tabele jednak każda służy do innej dziedziny, i teraz w każdej z tych tabeli mam jeden przycisk Delete do resetowania tabeli, każdy z tych...
excel kopiować arkusz arkusz wynik excel arkusz excel wyniki excel arkusz excel
discovery silnik tytan ds300 użycie procesor reset
ciśnieniowa myjka karcher program polon
Brother DCP-150C: Komunikat "nie moż. czyś." - Rozwiązania Porównanie kotłów Pereko Qmpell Evo 12 kW i Kostrzewa Twin Bio NE 12 kW
