W skoroszycie znajduję się wiele arkuszy i z poziomu każdego z nich aktywuję arkusz "Menu" w ten sposób: [syntax=vbscript]Worksheets("... chciałbym w tym arkuszu mieć przycisk, który zareaguje tak jak opisałem powyżej, czyli: Mam już aktywny arkusz "Menu" klikam w przycisk,...
Witam, Potrzebuję zbudować taki oto excel: 2 arkusze - 1 z nich będzie miał 8 kolumn po x wierszy. Pierwszy wiersz zawsze będzie nagłówkiem np. A, B, C, D, E, F... Każdy kolejny wiersz będzie miał unikatowy kod dla kolumny, np. A001, A002, A003... Dla kolumny B001, B002, B003... itd 1 arkusz...
W takim razie nie plik tylko arkusz kod to np. (w zależności od nazwy arkusza) Sheets("Arkusz2").Acti... 'aktywowanie arkusza Range("A100")... 'zaznaczenike/przejście do danej komórki nagrywanie makr jest w zakładce deweloper (excel 2007 i...
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...
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] ...
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...
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.
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....
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ć)
Bo "zapętliłeś" co 30 s procedurę a ona właśnie aktywuje arkusze. gdyż przyjęto że coś musi być zaznaczane (select) Czy mógłbyś podać kod makra KURS Bo jeżeli on "potrzebuje" zaznaczonej komórki do wpisania danych to nie wiem czy się to da ominąć. Ale wydaje mi się że wystarczy w niewielkim...
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...
Kiedy aktywujesz arkusza 2, wierszy i zakresy wierszy(do edytowania) już musi być określony. Jak masz zamiar zapytać tych wierszy? zmieścić się w makro (Array)-nie dość elegancki. Dodano po 38 Jest to opcja - Kiedy aktywujesz arkusza 2 przy użyciu przycisku 'Ctrl', kursor i przewijania zaznacyc...
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation...
Serdecznie dziękuję! Teraz jest idealne! Ja co prawda sam wróciłem do kopiowania ostatnich trzech kolumn w ostatnim kodzie poprawionym przez Ciebie bo poległem przy zaokrągleniach , a tak było prościej. Nie mogłem też na razie dojść do tego jak zaznaczyć cały zakres nowo powstałej tabelki aby zrobić...
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)...
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...
Witam wszystkich Szukam nietypowego rozwiazania do nietypowego problemu. Stworzylem pod Excelem 2003 makra zawierajace userform'y pobierajace od uzytkownika informacje. Po wcisnieciu OK forma sie zamykala i makro bylo kontynuowane. Wszystko ladnie dziala pod excelem, ale ja te makra chce (musze)...
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...
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać...
Zamykając temat. W pierwszym poście tego tematu jest kompletny kod pod EXCEL 2003 i XP (sprawdzony) Poniżej przedstawiam kod sprawdzony na EXCEL 2007 ( w większości opisane co i jak) [syntax=vb] Sub OperacjeHurtowe() 'makro dla excel 2007 'nazwa pliku startowego start2.xlsm i jest umieszczony...
Arkusz z danymi: nagrywasz makro, robiąc operacje jak niżej 1. zakładasz filtr 2. kopiujesz odfiltrowane dane do drugiego arkusza Na drugim arkuszu dodajesz przycisk którym aktywujesz nagrane makro Modyfikujesz makro tak aby parametry filtrowania były odczytywane z komórek arkusza a nie przyjmowane...
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...
Witam... Szukając tematu związanego z kalendarzem dla Excela, znalazłem na naszym forum post marcinj12 . Pozwoliłem sobie na wykorzystanie tego kalendarza do własnych potrzeb. Oczywiście mam jednak z nim związane pytania: 1. Kalendarz autorstwa marcinj12 , do swojej aktywacji wykorzystuje...
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.....
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,...
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...
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...
Jest sobie w "łekseselu" procedura np. 'Worksheet_Change', działa ona w ten sposób, że wychwytuje zmianę zawartości komórki arkusza, tj. stawiamy kursor na jakiejś komórce, wpisujemy coś z klawiatury i po wćiśnięciu 'pankracego entera' uruchamiana jest w/w procedura. No i niby mamy co chcemy, ale ...: 1....
Zacznijmy od tego że da się użyć zmiennej. Sub test() plik = "test.xls" //ten zmieniający się plik Workbooks.Open ("c:\test.xls") //tu jakaś ścieżka do niego Windows(plik).Activate //tu go aktywujemy...
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...
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...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim...
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...
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ć)....
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...
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...
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...
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.
Porównanie zrobiłem w ten sposób że w arkuszu mam utworzoną pomocniczą komórkę w której zawarta jest informacja który wiersz został aktywowany. Potrzebne mi to jest do tego żeby w aktywowanym oknie UserForm pokazywało mi pracownika z wiersza z aktywnej komórki. Wykorzystałem to i dałem poniższy kod....
Zapisuj w dodatkowym, ukrytym arkuszu wartości (argumenty położenia) przy dezaktywacji arkusza (ew. workbook_beforeclose) i pobieraj przy aktywowaniu... Jaki jest cel dodatkowego (ukrytego) arkusza? chce to zrobic mozliwe jak najprosciej. Wartosci przy zamykaniu akrusza nie sa mi potrzebne (tzn....
tytuł tematu trochę zagmatwany, ale już wyjaśniam. Mam takie testowe makro: [syntax=vb]Sub agregacja() ' ' agregacja Makro ' ' Sheets("agregacja").Select Range("A3").Select Sheets("kohezja").Select Range("G1").Select Selection.Copy Sheets("agregacja").Select ...
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...
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...
A czy da się zrobić w podobnym arkuszu że dopiero po zaznaczeniu pola wyboru aktywuje się przycisk opcji w której będzie można wybrać jedną z dwóch odpowiedzi?
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ć...
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...
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.
Nie jestem pewien, czy dobrze zrozumiałem, ale... wklej procedurę w kod arkusza "Arkusz2". Zadziała przy aktywowaniu.[syntax=vb]Private Sub Worksheet_Activate() kol = 1 wrsD = 1 Application.ScreenUpdating = False Columns("A:B").ClearContents W... Sheets("dane") Do While .Cells(1, kol) <>...
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....
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....
Witam serdecznie. Na formularzu umieściłem kilka ComboBoxów które zostały podzielone na grupy. Piony określają rodzaje linii i dodatkowe reaktory, poziomo określane są grupy stanowiące linię produkcyjną. Podczas aktywacji nowej linii aktywowane jest jednocześnie kilka ComboBoxów. Dopóki stosowałem...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej...
... Ok wstążka z makrami ogarnięta ... Na pewno ? I jak jest uruchamiana ? Uruchamianie i usuwanie menu "KOSZTORYS" aktywowane jest makrami z modułu "Ten_soroszyt": ... No i prośba o dodanie do tej listy tego pola z możliwością podania ilości j.m Jak by to miało wyglądać? I tutaj kolega pospieszył...
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...
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...
Nie bardzo rozumiem o co właściwie pytasz. Ten kod, który cytujesz wyłącza funkcję autouzupełniania w momencie aktywacji arkusza. W zależności od tego, który arkusz jest aktywowany, możesz tę funkcję włączać lub wyłączać. Problem jest tylko z pierwszym arkuszem (tym który jest aktywny zaraz po otwarciu...
Witam, mam Laptopa Dell d630. Do obsługi bluetooth-a używam programu toshiby bluetooth manager. Problem polega na tym, że gdy ten program działa to np. arkusz excela otwiera się 30 sekund, tak samo np film w sub-edit-cie. Po odinstalowaniu aplikacji problem znika. Program ten jest podobno przypisany...
Witam, mam Laptopa Dell d630. Do obsługi bluetooth-a używam programu toshiby bluetooth manager. Problem polega na tym, że gdy ten program działa to np. arkusz excela otwiera się 30 sekund, tak samo np film w sub-edit-cie. Po odinstalowaniu aplikacji problem znika. Program ten jest podobno przypisany...