[syntax=vbscript] On Error GoTo SubStop For Each Sheet In Worksheets Sheet.Test Next Sheet SubStop: On Error GoTo 0[/syntax]
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ć)
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...
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...
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...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
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
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...
Co tu wyjaśniać - masz przykład (Excel 2007). ...chyba, że masz te checkbox-y wprost na arkuszu (nie na formularzu użytkownika).
Jeszcze nie działa... a nie powinienem dodać także nazwy arkusza?
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...
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....
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...
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...
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...
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,...
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...
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?
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...
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.
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...
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.
[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 :)
Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku obliczasz numer ostatniego wiersza w kolumnie 18. arkusza...
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ś...
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...
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...
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...
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ą...
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...
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ę...
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...
Ok, sprawdzę jutro, dzisiaj niestety nie mam możliwości zobaczenia, ponieważ na tym kompie mam jakiś Microsoft Works :( Ale jeszcze jedno pytanie, troszkę sobie chciałam zmodyfikować Twoje makro aby można było pobierać dane wejściowe z pliku zewnętrznego i utknęłam przy kopiowaniu określonego zakresu do nowo stworzonego arkusza, tzn. nagłówek, formatowanie...
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ść...
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)?
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...
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ć...
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...
excel aktywowanie innego arkusza excel blokada arkusza excel udostępnianie arkusza
lm317 lampa transfer plików denon bluray
słuchawki nauszne słuchawki nauszne
Wymiana grzejnika w bloku bez spuszczania wody - metody i porady Prędkościomierz nie działa w Hummer H2 - przyczyny i diagnostyka
