[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If ((Target.Row - 27) Mod 4) = 0 Then Target.Offset(1).Calculate End Sub [/syntax]
Twojego filmiku nie widać. Edit: Już się pokazał. Spróbuj jednak dokładniej opisać swoje obserwacje. Czy problem z tym plikiem "okrojonym" na potrzeby forum występuje u Ciebie na każdym komputerze i w każdej wersji Excela? Masz w pliku kilka ukrytych arkuszy, ale eksperymentujesz tylko z "B". Czy każdy arkusz po ukryciu zachowuje się tak samo? Ponieważ...
aby po zmianie wartości w komórce B11 recznie? With Range("B39") Gdzie End With ?
Musisz wykorzystać w kodzie danego arkusza np 'worksheet_activate' i wtedy call makro
Zobacz przykład. Makro uruchamiane jest przez dwuklik w komórce z krzyżykiem...
A jak to makro uruchamiasz, przyciskiem, skrótem? Wystarczy: [syntax=vbscript]Sub qq() Dim r As Range Set r = Range(ActiveCell, ActiveCell) Range("A1").Select MsgBox "Wybrałem A1." Range(r, r).Select MsgBox "Wybrałem poprzednią komórkę." End Sub [/syntax]
Zarejestrowałem Ci ten import jako makro. Uruchamiasz skrótem Ctrl+i. Sprawdź, czy będzie działać w Twojej wersji Excela (rejestracja była w 2007). Kolumny z kwotami są sformatowane po polsku. Jeśli wolisz, żeby były kropki dziesiętne, usuń te 3 instrukcje na końcu makra: [syntax=vbscript]Columns("E").NumberForm... = "0.00"[/syntax] Załączony plik ma...
dziennie może być od 30-60 i do każdego będzie osobne rozliczenie Jeśli tak :cry: to proponuję inne rozwiązanie budowy pliku z arkuszami oznaczonymi nazwą (lub kodem) klienta i datą ważenia :D po wypełnieniu tabelki danymi - makro (uruchamiane skrótem ctrl+r ) zrobi raport dla tego arkusza oznaczy go stosowną nazwą i przygotuje następny szablon do...
Sprawdź dobrze, bo pisane w przerwach między obieraniem ziemniorów i marchewy, i mogą być błędy. 919204 Stałe, zmienne i kod na tyle czytelne, że od razu zrozumiesz intencje. Kody z ich wartościami na oddzielnej zakładce, makro uruchamiane zmianą zawartości komórek w określonym zakresie (stałe dla zakresu początkowego i końcowego), zdefiniowanym w module...
Kreska jest błędem, natomiast makro działa jak należy. Makro jest uruchamiane przez przycisk, który należy dodać do arkusza lub przez menu Narzędzia.Makro.Makro.. Uruchom.
Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
Witam ;) Otóż mam do zrobienia przycisk w Excelu, bądź w Calc [url=http://bogdan.students.wmi.amu.edu.... zad. Ma on za danie pomnożyć mi pola przez liczbę procentową. Z góry dziękuję, pozdrawiam ;)
Mam problem z napisaniem makra które działało by przy następującym zdarzeniu: Zmiana wartości w komórce a1 -(lista rozwijana) powodowała by odpowiedni wpis do komórki b12. (ten sam arkusz) np. komórka a1 - wybór z listy - "spec" w komórce b12 - pojawia się zapis - "4210" oraz w komórce b13 - pojawia się zapis - "4260" i tak dla kilkunastu pozycji z...
Masz wprowadzony plik (PDFMaker.dot) który ma się zawsze uruchamiać przy starcie worda. Jeżeli tak ma nie być wykasuj go z katalogu c:\Program Files\Microsoft Office\Office11\startup (lub przenieś do innego) A dzieje się tak bo ten plik (szablon dokumentu) który chce się otworzyć ma w sobie makro. I zawsze będzie ci się otwierał z tym komunikatem w...
Zakłada, że z tego Mam dwa pliki filmowe o nazwach: film1_720p.mkv film2_1080p.mkv nie z "720p LEKTOR.mkv" bierzemy 8 znaków nazwy (od końca) i wycinamy 3 znaki z tych ośmiu - dobrze rozumiem? tak
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Application.Cursor = xlWait x = Target.Row a = Cells(x, "A") & "-" & Cells(x, "C") & "-" & Cells(x, "F") & "-" & Cells(x, "I") & "-" & Cells(x, "J") Set w = CreateObject("Word.Application") Set d = w.Documents.Add w.Visible =...
Witam :) Mam taki problem: Nie orientuję się za bardzo w VB, a chciałabym stworzyć makro uruchamiane, jeśli dana komórka zawiera jakąś wartość, a dokładniej, żeby sam tworzył się wykres. Nie wiem czy najpierw zrobić to makro i potem dodać jakąś linijkę kiedy będzie uruchamiane, czy jak? Z góry dziękuję za odpowiedź! :)
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Jeśli ma się to odbywać automatycznie, myślę że makro musiałoby być uruchamiane przy otwarciu arkusza. Powinno zawierać funkcję timer, a reszta kodu (badanie godziny, kopiowanie itd) w pętli, uruchamianej co czas określony przez PauseTime, lub coś podobnego. O to chodzi?
Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets
Nigdy nie słyszałem o takiej stronce bo i po co robić polskie napisy bez polskich liter? (chyba dla ludzi w twojej sytuacji). Za to polecam polskie napisy i np Worda. Robisz makro, które zmienia ci wszystkie polskie znaki na odpowiadające im znaki ISO, odpalasz plik z napisami, uruchamiasz makro i w parę sekund masz napisy przerobione.
Efekt "uporządkowania" - jak na zrzucie 951257 danych zapisanych w arkuszu 1 (u Ciebie "przed") można uzyskać poprzez przekształcenie tabeli do arkusza 2 (u Ciebie "po") przy pomocy makra (uruchamianego skrótem ctrl+b) - jak w załączonym pliku. 951258
Sprobuj[syntax=vb]For ark = 4 To 36 For wrs = 26 To 36 Sheets(ark).Rows(wrs).Hidden = Sheets(ark).Cells(wrs, 3) = 0 Next Next [/syntax]
Ale dlaczego chcesz makro uruchamiać w zdarzeniu 'OnChange'? I dlaczego w ogóle obliczasz średnie makrem, a nie formułą arkusza?
W tym przypadku to przejdzie, ale nie zawsze Jak nie będzie takiego przypadku szczególnego :D to proponuję Ci makro "wyszukajdaty", które uruchamiane skrótem ctrl+w wypisze w aktywnym arkuszu w jednej kolumnie pierwsze daty, a w drugiej - drugie daty :spoko: - tak jak na zrzucie i w załączonym pliku. 1054371 1054372
Spróbuj nacisnąć Alt + F4. Chodzi oczywiście o lewy Alt. Dzięki za info, ale mi chodzi o to, żeby te makra włączyć przyciskiem, które uruchamiałoby kolejne makra i dlatego potrzebuję procedury, która będzie kolejno uruchamiać te makra
W zależności od tego który przycisk wybierzesz: - z formularzy: zmieniasz nazwę makro i/lub przenosisz je do oddzielnego modułu wstawiasz przycisk z menu kontekstowego wybierasz opcję "Przypisz makro..." wskazujesz makro, które chcesz przypisać przyciskowi finisz - z przybornika formantów: wstawiasz przycisk z menu kontekstowego wybierasz "Wyświetl...
Witam Czy jest możliwe, aby makro uruchamiało się automatycznie po wciśnięciu przycisku "Aktualizuj" w oknie informującym, że skoroszyt zawiera łącza do innych źródeł danych?
1. Zmiana koloru nie jest zdarzeniem, więc musisz uruchamiać makro (w ostateczności można wykorzystać 'SelectionChange', ale ma to w tej sytuacji swoje minusy) Następna sprawa, to skąd Excel "ma wiedzieć" jaki kolor był przed zmianą? Potrzebna byłaby tabelka w dodatkowym arkuszu kolor>zakres obszaru wydruku. 2. Myślę, że wystarczy zwykłe JEŻELI(Arkusz1!suma>160;Arkusz1!suma-160...
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Wywołaj w kodzie arkusza 'Kredyty' (makro 'ListaZb' w module) [syntax=vb]Private Sub Worksheet_Activate() ListaZb 'nazwa uruchamianego makra End Sub[/syntax]
Spróbuj makra jak w załączniku uruchamianego przy otwarciu skoroszytu. Ale jeśli masz bardzo dużo zależności, to wyświetlenie wszystkich może być nieczytelne.
Ilość makr nie ma znaczenia, pod warunkiem, że wiemy, które makro uruchamiamy. Błąd jasno mówi, że nie zgadają się typy danych. Uruchom kod, który powyżej wysłałem. Nie może zwrócić błędu. Jak możesz, to zrób zrzut kodu z podkreśloną na żółto linijką.
Wyraziłeś się precyzyjnie. Tylko, że tym razem piszesz coś innego.;) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 16 Then r = Target.Row Dim n As Worksheet Set n = Sheets("Nieprawidlowosci") ow = Cells(Rows.Count, "A").End(xlUp).Row nw = n.Cells(Rows.Count, "B").End(xlUp).Row + 1 If nw < 4 Then nw = 4 If...
Witam ponownie., Jest tak jak mowisz. Z pliku raport chcialbym skopiowac dane do pliku makro (z pliku makro uruchamiam makro) tak aby w komorce "dostawca" znajdowały sie numery 85... a w komorce faktura - numery 4...... Nie chciałbym otwierac pliku z ktorego beda pobierane dane ( praca w tle) JEszcze raz dziekuje za pomoc
Nie jestem biegły jeśli chodzi o makra ale tak przeglądając parę stron o Excelu natrafiłem na makro uruchamiane przy każdym przeliczeniu arkusza, i uruchamiające kolejne makro pod warunkiem że zmieniły się wartości w pewnych komórkach. W Twoim przypadku można by uruchamiać makro sortujące wyniki przy każdym przeliczeniu arkusza (czyli po wpisaniu/usunięciu/zmianie...
Zawsze będą tylko te 3 komórki? Skąd te dane importujesz - jakaś kwerenda, makro, manualnie z pliku? Jak i kiedy chcesz to makro uruchamiać? Może wystarczy po prostu posortować po wartościach malejąco i zaznaczyć na żółto pierwszy wiersz /ew. zarejestrować makro z tego/?
Jest prosty sposób na uruchomienie makra jeśli aktywowana będzie określona komórka. Powiedzmy, że zmieniasz dane w A1. Jeżeli posługujesz się klawiaturą to następna aktywowana komórka będzie A2 lub B1. Przykład uruchomienia makra dla B1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) wiersz = 1 kolumna = 2 If Target.Row = wiersz...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Mi jednak chodzi o to by makro się samo uruchamiało. Tu masz makro, które monitoruje określony zakres pod kątem zmiany. Dodaj do tego kod swojego makra sortującego. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set...
Czyżby rejestrator makr u kolegi się zaciął? Nagraj makro, to przecież tylko zwykła suma...
Zwracam się z prośbą o stworzenie makra, bądź doradzenie innego rozwiązanie Jeśli chciałbyś wykorzystać do zestawienia danych tabelę przestawną :idea: np. tak jak na zrzucie 1075895 to możesz wykorzystać makro VBA do automatycznego (uruchamianie klawiszami ctrl+o) tworzenia aktualnej tabeli przestawnej :spoko: 1075898
Microsoft Excel 12.0 Object Library ==Starsza wersja nie może wiedzieć trzeba dostosować moduły do wersji 2003
Witam. Mam napisane makro, które uruchamiane jest za pomocą przycisku utworzonego z formularza, które oczywiście działa. Po wpisaniu słowa Private, celem ukrycia makra, niestety przycisk już go nie uruchamia i pojawia się komunikat o błędzie. Jak sprawić by wcześniej utworzony przycisk uruchamiał to - teraz ukryte makro? Bogdan
Najprawdopodobniej Makro nie jest zapisane w tym skoroszycie i dlatego nie działa na innym komputerze.
cześć prośba o pomoc mam zarejestrowane makro, uruchamia się w jednym arkuszu , prośba jest taka aby podpowiedzieć jak zmienić kod , żeby makro mogło uruchamiać się w innych arkuszach w pliku. [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Range("B8:U99").Select ActiveWorkbook.Worksheets("13_03_zm II").Sort.SortFields.Clear ActiveWorkbook.Worksheets("13_03_zm...
Makro jest uruchamiany z UserForm1 ?
Co masz na myśli pisząc, że "nie kompiluje automatycznie po otwarciu pliku"? Musisz mieć w centrum zaufanie włączony niski poziom zabezpieczeń dla makr, żeby się makro uruchamiało, masz to zrobione? Co do drugiego to powinna pomóc zamiana linijki na: [syntax=vb]Arkusz1.Range("A1").Value = nr & Format(Date, " \# MM \# YY")[/syntax]
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
Wygląda na to, że słabo sprecyzowałem mój problem. Chodzi mi o to,że w momencie, gdy wyświetlona jest formatka z textbox'ami to nie mogę przesunąć arkusz, aby wyszukać dane do wpisania w te textbox'y. Podobnie mam w innym makro. Uruchamiam makro, pojawia się inputbox z poleceniem wpisania danych z arkusza. Jeśli akurat jestem w innej części arkusz,...
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
...mam problem ... wszystko działa bez problemu :D Jeśli działa rzeczywiście :?: zgodnie z Twoimi oczekiwaniami - to przenieś przycisk uruchamiający do arkusza sterującego np ten ukryty "arkusz 0" lub zlikwiduj w ogóle przyciski i makro uruchamiaj skrótem klawiaturowym :!: .
Podmieniłam, ale nadal nie działa Chyba niejasno opisałam problem... Obecnie makro uruchamia listę rozwijaną po najechaniu na komórkę J5, następnie wybrane elementy trafiają do I1. W kolejnym kroku chciałabym, żeby uruchamiało się makro dzielenie - automatycznie przy zmianie komórki z J5 na inną i tylko raz, żeby nie zamulało arkusza, bo jest spory....
Witam Tworze makro które będzie otwierało skoroszyt o zmiannej nazwie, wykonywało w nim kilka operacji typu filtrowanie itd a potem przenosiło z niego pofiltrowane dane do pliku w którym uruchamiałem makro. Arkusz w którym będzie uruchamiane makro też będzie miało zmienną nazwę niestety. Teraz mam problem ponieważ po otwarciu pliku z makrem uruchamia...
Specjalnie pobrałem dla pewności przykłady z postu #3 Problem w tym, że r = Cells(Rows.Count, 1).End(xlUp).Row wykazuje "1" i nie uruchamia pętli. Jeżeli zmienię na r = 10 to wtedy k za każdym razem jest "0" i nic nie usuwa. Makro uruchamiam z "Zmienny" Mam office 2010
Tak na szybko: [syntax=vbscript]Sub Kopiuj() Dim irow As Integer Dim wiersz As Integer Dim kolumna As Integer wiersz = 1 kolumna = 1 For irow = 2 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value kolumna = kolumna + 1 End If If kolumna = 17 Then kolumna = 1 wiersz...
dalej nie mam pomysłu Tak jak pisałem wcześniej Twój plik html ma niekorzystne formatowanie danych i to komplikuje obróbkę :cry: Trzeba po otwarciu takiego pliku wpierw skonwertować dane z systemu anglosaskiego na polski :D Efekt zestawienie danych ściąganych cyklicznie z identycznych w strukturze plików html - tak jak widać na zrzucie 1018489 można...
automatycznie skopiowały się poniżej tabelki To spróbuj wykorzystać makro powiel() (uruchamiane skrótem ctrl+p ) :idea: :D z załączonego pliku. Dla pewności działania konieczne jest formatowanie ilości (Qty) jako liczby, a nie jako tekst :cry: (jak w Twoim przykładzie) :!: 1026922 1026916
Witam, Mam problem z napisaniem makra umożliwiającego zablokowanie wersów w zakresie kilku kolumn (powiedzmy od d do p, gdzie dane, pobierane mogą być np z kolumny f ), które już zostały wypełnione. Nie chcę, aby omyłkowo wprowadzone dane zostały skasowane/ nadpisane. Chciałbym aby makro było uruchamiane przyciskiem a nie automatycznie (nie przez Private...
:arrow: Hefal Zaglądałeś [url=http://www.google.pl/#hl=pl&source=... Już w pierwszym linku masz odpowiedź...
Ktoś coś podobnego rozwiązał poprzez dodatkowy plik z makrem uruchamiany w harmonogramie zadań.
Super, dzięki. A jak zapisać żeby makro samo uruchamiało kopiowanie danych gdy pojawią się dane w komórkach?
Mam nadzieje ze pod koniec tygodnia bede mogl wyprobowac podany przez "benbog" - KM Wakeup. Napisze jak to wyszlo. Zastanawialem sie nad : plikiem batch uruchamianym z Task Schedulder, moze makro uruchamiane w taki sam sposob. Niestety w Internecie nie znalazlem zadnego scenariusza zakonczonego pozytywnym finalem. Bardzo cieplo wszystkim dziekuje za...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
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...
Jest :D Użycie sortowania i zapisania jako makro. Kiedy będzie potrzeba znaleźć powtórzenia uruchamiasz makro... i gotowe :D
Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each. Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję. Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.
Witaj, może w wyniku działania kodu uruchamiane są zdarzenia? Można zobaczyć to makro?
A co jest w komórce, na której makro się "wykłada"? I co dokładnie robi AUTOWIERSZ? Nie wiem ale gdzieś musiał się wkraść jakiś chochlik - zrobiłem od nowa i wszystko hula jak powinno. AUTOWIERSZ dodaje nowy wiersz wraz z formułami w poszczególnych komórkach. Dodano po 19 Troszkę muszę znów zmodyfikować początek kodu aby umieścić w innej karcie ( a...
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
Dziękuję, wygląda, że to jest to. Tylko jeszcze pytanie bo mam to nie pierwszy raz. Kiedy próbuję odpalić w taki sposób napisane makro, prosi mnie o wybranie makra z listy jakby go nie widział lub mam taką informację jak w załączeniu. Czy mam tu jeszcze coś od siebie dodać czy może w zły sposób uruchamiam makro z początkiem typu "Private Sub Worksheet_Change(ByVal...
Uruchamiam makrem z pliku A kolejno 24 pliki i w każdym uruchamiam jakieś makro. A jak wygląda ten kod?
Witam. Utworzyłem makro do zmiany koloru karty w zależności od wartości komórki. Jeżeli w komórce F6 wartość będzie większa od 0 to karta zmieni kolor na czerwony. Makro działa, ale muszę je wywoływać każdorazowo uruchamiając to makro. Na razie poradziłem sobie tworząc we wszystkich kartach przycisk uruchamiający to makro, ale jest to trochę bez sensu....
Makro uruchamia się, gdy przechodzisz do "Arkusz2" (Np po zmianach w "Arkusz1") Po linii licznik=2 przydałoby się Range("J" & Rows.Count).ClearContents Ew. szukanie pierwszej niepustej w kolumnie. To już Tobie zostawiam. Oczywiście dość łatwo przerobić to na funkcję.
To "inne makro" jest uruchamiane na "żadanie", ktoś z kolegów i koleżanek musi kliknąć uruchom to "inne makro". Kwestia ile osób w danej chwili kliknie uruchom to makro, w jeden sekundzie(w danej chwili) może być ilość: 0, 1 lub 4 lub nawet 100. Nie mam na to wpływu.
Zmieniając kolumnę D w arkuszu1 nie ma reakcji w arkuszu2 :!: Teraz dopiero zrozumiałem :cry: , że Tobie chodzi o makro uruchamiane zdarzeniem zmiany danych w kolumnie D :idea: No to faktycznie kod na początku poprzedniego musi być zmieniony: 968656
Udało mi się znaleźć i zmodyfikować kod :?: Coś mi się zdaje, że modyfikowałeś ten kod tylko klawiszem delete ? :D Wg Twoich przykładowych plików makro "uruchamiane" ma być ze zwykłego pliku i kopiować z pliku z makrem ??? :please: Proponuje Ci przygotować najpierw właściwy plik typu xlsm i cały transfer danych przećwiczyć pomiędzy 2 arkuszami - w...
Zrób jedno makro jak uruchamia się skoroszyt które chowa paski oraz drugie uruchamiane jak zamykasz skoroszyt które będzie odkrywało paski. Powodzenia
Ale chyba częściowe wyłączenie aktualizacji nic nie da, bo program już po włączeniu i uruchomieniu makra (bez wprowadzania danych) zaczyna się "pętlić" Wygląda to tak, że jak usunę kilka zakładek, w których jest dużo obliczeń wszystko chodzi jak trzeba, natomiast z tymi zakładkami (arkuszami) program zaczyna się pętlić. Nadmienię, że w całym tym skoroszycie...
Witam wszystkich serdecznie ! Próbuję zrobić makro, które zakłada mi hasło ochrony skoroszytu. Podczas śledzenia ( gdy makro śledzi moje kroki ) daję opcjonalne hasło ochrony struktury jednakże gdy uruchamiam już samo makro o hasło się nie pyta. Co wpisać dodatkowo w kodzie VBA aby pytał się za każdy razem o hasło gdy uruchamiam makro.
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
makro, które po wypełnieniu komórki np. B2 (nazwisko) stworzy nowy arkusz nazwie go tak jak B2, zaś w komórce D2 utworzy hiperłącze do tego arkusza , ponadto nowo stworzony arkusz musiałby już zawierać określone tabele W Twoim pierwotnym opisie mowa była tylko o tworzeniu nowych arkuszy i hiperłączy do nich :cry: Dla uzyskania takiego pierwotnego efektu...
Zakres dat nigdy nie będzie występował w skoroszycie w którym będę uruchamiał makro.
Myślę że się da :) Funkcja użytkownika może wykonywać dowolny kod VBA, zrób sobie taką funkcję i zobaczysz że działa: Public Function myFunc() MsgBox "test" End Function Może się łączyć z bazą danych, pokazywać formę, usuwać pliki z dysku ;) czy co sobie zażyczysz... Pytanie po co robić coś takiego jako funkcję, nie makro uruchamiane...
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Wrzuć SQL do kodu VBA , a wymagane dane wprowadź np. za pomocą inputBoxa. Przykładowo: [syntax=vbscript] Dim sSQL As String, idRaport As Long idRaport = InputBox("Podaj ID raportu", "Wprowadzenie danych") sSQL = "INSERT INTO KS_delta_przedostatnie_dane " _ & "SELECT * FROM slajdy_KS_baza " _ & "WHERE id_raportu = " & idRaport dbs.Execute...
z niego uruchamiam makro Toż to zawsze będzie Thisworkbook, więc: Thisworkbook.activate
Dzięki za radę Całość mam wrzucone do modułu 'ThisWorkbook. Nie bardzo rozumiem jak mam zmienić aby nie wyskakiwał błąd. Zależy mi na tym, aby np. z arkusza 1 wywołać makro, które na podstawie danej z arkusza 1 wrzuci do arkusza tabele i a wynik z arkusza tabele zostanie przeniesiony do arkusza 1 i oczywiście chciałbym po wykonaniu makra pozostać na...
którego naciśniecie powodowałoby dodanie nowego, odpowiednio sformatowanego do wiersza wyżej wspomnianej tabeli. W zasadzie wystarczy ci takie coś: [syntax=vb]Sub DodajWiersz() Dim tblNew As Table Set tblNew = ActiveDocument.Tables(1) tblNew.Rows.Add End Sub[/syntax] aby dodać wiersz. Formatowanie brane jest "automagicznie" z tabeli. Oczywiście masz...
Dzień dobry Mam makro które jest przypisane do skrótu klawiszowego ctr+a makro działa bez zarzutu jednak chciał bym go uruchamiać z automatu gdy urządzenie zewnętrzne da sygnał by się uruchamiało makro. To co wymyśliłem to moduł klawiatury wpięty pod usb i poprzez przekaźnik zwierane odpowiednie ścieżki a to da nam wyżej wymieniony skrót, jednak jest...
Wkleiłem kod do ten_skoroszyt W Twoim przykładowym pliku xlsm masz już jeden moduł z kodami VBA :?: i to tam powinieneś wkleić ten kod :!: (ewentualnie możesz wstawić drugi - czysty moduł tylko z tym jednym kodem :D ). Jak już tam będzie prawidłowy kod - to proponuję ustawić w opcjach makr - skrót klawiaturowy do jego uruchamiania :spoko: niestety...
możesz odpalić excela z parametrem jako nazwa pliku np excel c:\plik.xls A plik.xls może uruchamiać makro przy starcie np w zdarzeniu Workbook_Open()
Harmonogram zadań>zaplanuj uruchomienie pliku>makro w Thisworkbook.Open W przypadku Application.OnTime plik musi być otwarty 4 lutego 2014 przed godziną 14:00 (kto ci o tym przypomni?).
Dzień dobry, Kolejny raz mam problem z funkcja niestandardową. Zrobiłem funkcję zwracającą wiek na podstawie PESELa, ładnie działa, w kilku arkuszach. Wiek jest obliczony w arkuszu"pacjent" [E6], potem zwracana wartość jest pobierana do "żywienie", "SOFA", "APACHE II..." Niestety po uruchomieniu pewnego makra w arkuszu "żywienie" automatycznie wpisującego...
Przepraszam za opóźnienie w odpowiedzi. Niezmiernie dziękuje za pomoc. (at)cbrman - Twoje marko działa, ale u mnie niestety pobiera również nagłówki. Ale poradziłem sobie z problemem, zarejestrowałem makro, w którym usuwam duplikaty. Później połączyłem Twoje makro z moim, rejestrując trzecie makro, które uruchamiało je po kolei.
OK,dzięki, zrobiłem wszystko tak jak mówicie i teraz musze wpisać kod, znalazłem coś takiego , ale nie wiem jak zmienić aby pasował do tej gry? Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Cells.Locked = False If Len(Target.Value) > 0 Then ActiveSheet.Unprotect Password:="haslo" Target.Locked = True End If ActiveSheet.Protect...
ale teraz zależy mi szczególnie na tej linijce kodu: mógłby ktoś napisać jak mógłby wyglądać działający kod z tym zastosowaniem Ważne, najpierw otwierasz skoroszyt tam gdzie masz makro, później otwierasz np. ten nazwapliku1.xlsx, przechodzisz do tego co ma makro i uruchamiasz. (nazwy skoroszytów nie maja znaczenia tylko kolejność otwarcia) [syntax=vbscript]Workbooks(2).Sheets("Sh...
Dzień dobry Mam makro które jest przypisane do skrótu klawiszowego ctr+a makro działa bez zarzutu jednak chciał bym go uruchamiać z automatu gdy urządzenie zewnętrzne da sygnał by się uruchamiało makro. To co wymyśliłem to moduł klawiatury wpięty pod usb i poprzez przekaźnik zwierane odpowiednie ścieżki a to da nam wyżej wymieniony skrót, jednak jest...
makro uruchamiać makro uruchamiać makro makro automatyczny uruchamiać
opalarka grzeje interfejs obrotów creative glosnosc
rezystor wentylatora chłodnicy peugeot wysoki rachunek
Siemens Siwamat XS 423 - Migająca kontrolka końca programu Miganie diod 1, 3 i 5 w baterii Bosch do roweru