Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Po mojemu nie zadziała, bo vb "zajęte" jest wykonywaniem pętli. Spróbuj z wywołaniem co sekundę makra "kontrolnego" i zmienną "decyzyjną". Makro 'kasowanie', to w tym przypadku po prostu skok na skróty . [syntax=vbscript]Private o As Integer Sub czekaj() o = 0 UpdateClock End Sub Sub kasowanie() o = 30 End Sub Private Sub UpdateClock() If o = 30 Then...
Niestety dalej się zapętla. A jest możliwość dla osobnego buttona? tak żeby były buttony: Start Stop 1. Niemożliwe, pewnie kod przycisku masz w innym module niż procedurę. 2. To nie jest konieczne.
Do wyboru: 1. Włącz ochronę makr, zrób porządek i wyłącz ponownie. 2. Otwórz plik z okna Excela'a, trzymając klawisz 'Schift'. 3. Otwórz za pomocą Calc'a (Open Office)
Poproszę o sugestie... Moim zdaniem taki kod przy 1 mln rekordów jest bardzo ryzykowny :!: Jeżeli wytniesz taką kolumnę i z jakichkolwiek względów makro się zatrzyma - to tracisz te dane :cry: Bezpieczniej by było skopiować cały arkusz do drugiego arkusza i dopiero tam wykonać to makro :idea: :D
Witam Chcę makrem przeszukiwać komórki w bieżącej kolumnie idąc w górę arkusza. Makro zatrzyma się jeśli znajdzie określoną wartość. Jednak jest problem jeśli nie znajdzie tej wartości. Przesuwam się po komórkach poleceniem: ActiveCell.Offset(-1, 0).Range("A1").Sel... Nie wiem czemu jest w treści A1, ale działa. Teraz chciałbym...
Sub Makro1() szuk = Sheets("WPROWADZANIE").Range("B2") With Sheets("EWIDENCJA") wrs = .Columns(2).Find(What:=szuk, LookAt:=xlWhole).Row 'jeśli nie znajdzie, przerwie komunikatem błędu /zastosować On Error/ .Rows(wrs).Copy Sheets("WPROWADZANIE").Cells(3, 1) 'tu można podstawić wynik Range().End(xldown).Row End With Sheets("WPROWADZANIE").Range("B2")...
Może nie zauważasz :) Komputer za szybki? Zerknij do załącznika. :arrow: JVR - Zatrzyma się, gdy VBA "rozgrzeje się do czerwoności". Na różnych maszynach w różnych miejscach. U mnie Excel zawiesił się na amen.
Jeszcze mam drugie pytanie, w którym momencie trzeba zastosować ? To był tylko przykład żebyś zrozumiał jak działa pętla. Do komórek się odwołujesz .cells(numer wiersza, numer kolumny), są też inne sposoby, ale na razie stosuj ten. Pętlę zastosuj jakąkolwiek np: [syntax=vbnet] dim a as integer a=1 Set a1 = ThisWorkbook.Sheets("Arkusz1") Set a2 = ThisWorkbook.Sheets("Arkusz2")...
Jednak poradziłem sobie =) Prosiłbym o nie zamykanie tematu bo pewnie nie jedna rzecz mnie jeszcze zatrzyma w tworzeniu tej bazy, a Twoje podpowiedzi naprawdę ułatwiają wiele! Jeszcze raz dzięki Więc kolejny problem na który się natknąłem: To co stworzyłem to typowa tablica użytkowa. Teraz musiałbym stworzyć tablicę która będzie się wyświetlała na ekranie...
Warszawa dokłada do komunikacji miejskiej 70%, dlatego bilety są dość tanie. http://www.um.warszawa.pl/sites/default/... Czym innym jest dokładać 70% do komunikacji miejskiej, a czym innym do biletów (jak wcześniej stwierdziłeś). Owszem, miasto dokłada, bo nie ma innego wyjścia. Gdyby tak nie było, to po Warszawie...
Witam, Mam problem z makrem, które loguje się na stronkę "x", i za pomocą pętli wprowadza potrzebne dane z excela. W skrócie wygląda to tak: 1. wciśnij przycisk "Add" (przenosi do strony z formularzem), 2. wypełnij formularz danymi z excela 3. wciśnij przycisk "Submit" (przenosi spowrotem do stronki z przyciskiem Add) Problem mam taki, że po wciśnięciu...
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 = ... Przez to na pewno wolniej działa. Wyrób sobie dobry...
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
Jak wykombinować automatyczne wysyłanie wiadomości po otwarciu (Workbook_Open) przez menadżera oraz zamknięciu po wykonaniu w taki sposób żeby plik przy normalnym uruchomieniu nie wykonywał wysyłania itd Możesz zatrzymać wykonywanie makra przez otwarcie pliku z wciśniętym sziftem (lub "czarowanie" ze skryptami wtedy bez workbook open) ps Albo dodaj...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
nie wysypało się po prostu zatrzymałem makro ;) (ctrl+break)
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Wygląda na to że wszystko robisz dobrze. Prawdopodobnie nie masz uprawnień administratora i do zapisu bezpośrednio na dysk C, ew. to kwestia ustawienia czegoś w zabezpieczeniach Worda (widzę że to ten nowy, ja się zatrzymałem na 2007). Utwórz na nim jakiś katalog, zmień ścieżką w makro i do niego próbuj zapisać. Oczywiście nazwa pliku ma tutaj znaczenie...
Włącz rejestrowanie makra i wykonaj z ręki wykresy. Zatrzymaj makro i przeedytuj jego kod usuwając zbędne elementy.
Uruchom makro Private Sub Workbook_Open, lub zamknij plik i otwórz ponownie. Zatrzymanie ręczne makra (przez przycisk resetuj) zeruje wartość zmiennej.
A to o czym napisałeś - da się to przełożyć na makro? Przetestowałbym i powiedział czy o to chodzi. Da się. Wg. mnie to jest dokładnie to o co Ci chodzi. Jeżeli chcesz to zamienić na makro - włącz rejestrowanie makra, wykonaj po kolei to Co napisałem, zatrzymaj makro i podejrzyj kod. Jeżeli Ci nie wyjdzie, wieczorem jak znajdę chwilę pomogę.
Jeszcze lepsze się u mnie jaja dzieją. Losowo z nieznanych przyczyn działające wcześniej makro wiesza się w losowych miejscach. Straciłem sporo czasu zanim się zorientowałem, że w takim przypadku pomaga jedynie RESTART KOMPUTERA. Inny numer: WORD potrafi poprawnie mi wykonywać makro, a po którejś pętli (wykonywaniu tego samego makra od nowa) np. przestaje...
..a jeżeli da się to zrobić w VB to jakich komend powinienem użyć by otwierać kolejno pliki txt i zapisywać je jako nowe w formacie xls Włącz nagrywanie makra, wykonaj po kolei czynności dla jednego pliku, zatrzymaj makro, a następnie podejrzyj kod VB. Trochę mało czytelnie opisałeś swój problem i nie bardzo chce mi się wgryzać w treść pierwszego postu...
Włącz nagrywanie makra, zaznacz cały arkusz, naciśnij delete i zatrzymaj nagrywanie makra, a zauważysz: [syntax=vbscript]Sheets("Import").Select Cells.Select Selection.ClearContents[/syntax] ;) Proszę nacisnąć pomógł nie tylko mnie, a przede wszystkim Marcinowi. To jego był kod...:)
Wystartuj rejestrowanie makra, zmień interesującą cię komórkę na inny kolor, następnie zamień kolor na pierwotny, zatrzymaj rejestracje makra. Wyjdź w edycje makra, dodaj warunek i pętle jak się zmienia kolor i jak on się zapisuje będziesz miał już w tym zarejestrowanym makrze.
1. Pokaż co już masz zrobione 2. Napisz z czym dokładnie masz problem/na czym się zatrzymałeś 3. czym jest ta "baza tłumaczeń"?
Bez załącznika i nie wiedząc, jak dokładnie ma działać to makro, można się tylko domyślać, że polecenie [syntax=vbscript]If IsError(a) Then Exit Sub [/syntax]jest w złym miejscu. Wyjście następuje przed przywróceniem obsługi zdarzeń, więc wydaje się, że arkusz przestał reagować na zdarzenia. Proszę spróbować przesunąć tę instrukcję 2 linijki niżej po:...
Załóżmy, że wykonujemy plecenie: RS_SET dyrektywa: Dodano po 3 swoją drogą może to mały offtopic ale jak zachowuje się preprocesor w przypadku takich dyrektyw: [syntax=cpp]int main() { int x=1,y=2,z=3; cout<<x<<y<<z<<"... #define y x cout<<x<<y<<z<<"... #define z y cout<<x<<y<<z<<"...
Chciałem to użyć na swoich plikach i wystąpił błąd, wyświetla mi się Run time error '5': invallid procedure call or argument, czy moze być to spowodowane tym ze przed wierszem 54 i ta całą tabela mam tekst ? To ze wywaliło błąd oznacza, że całe makro się zatrzymało?
Tu mam wrażenie że jest coś z synchronizacją pomiędzy zamykaniem pliku i kończeniem makra, tak jakby zamykanie pliku trwa a on już skończył makro i dlatego się widok nie odświeża a przycisk cały czas jest jakby wduszony - nie odciska się, i wtedy czegoś mu brakuje, szukam sposobu by je jakoś zatrzymać może jakiś pasek postępu
Otwierając plik Excel ze strony www (klik w zwykły button) plik Excela nie otwiera się, aż do momentu kiedy nie zatrzymam działania makra - dla wyjaśnienia po kliknięciu w przycisk makro czeka na pojawienie się nowego pliku o określonej nazwie. Przechodząc kod krokowo wszystko działa poprawnie. Puszczając makro automatycznie niestety plik się nie włącza...
Cześć, Piszę do Was, bo może ktoś miałby pomysł jak rozwiązać pewne kwestie, nad którą się zatrzymałem robiąc makro. Sprawa wygląda tak, że jest arkusz 'umowy', gdzie są umowy, etapy ich realizacji i inne dane. Na ich podstawie makro obrabia dane i wprowadza je do zakładki 'faktury' i pojawia się pierwszy problem: - chciałem zrobić przycisk, pod które...
Dzięki czyli jak dobrze rozumiem muszę wywołać jedno makro w drugim jeśli chcę je zatrzymac ?
Dzięki, o to chodziło :) [syntax=vb]Public Function sciezka() As String Dim NazwiskoImie As String With Alpex NazwiskoImie = .txtNazwisko & " " & .txtImie1 sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie & "\" & NazwiskoImie End With End Function[/syntax] EDIT: Podczas testowania makra zauważyłem ze wyskakuje jedem maly błąd....
Witam, Czy ktoś z was jest w stanie mi pomóc? Bedę ogromnie wdzięczny bo zupełnie się zatrzymałem na tym temacie. Chciałbym aby moje makro używało formuły złącz teksty i w komórce B2 złączyło teksty z komórek C2 i G2 a potem powielało to we wszystkich wierszach aż do końca (ilości wierszy zmienne). Na pewno potrzebna mi jakaś zmienna która zaznaczy...
Powyższe działa bez zarzutu. Makro cały czas rośnie ale zatrzymałem się nad wyciągnięciem z plików źródłowych daty ich utworzenia. Czy ktoś ma jakis pomysł? MS
:) Zrobiłem tak jak pisałeś i do polowy wyszło jak trzeba. Zatrzymałem sie na tym że mam przekopiować makro od Ciebie. Nie mam pojęcia zielonego jak to zrobić? Jk je znaleźć? Jak przenieść??
Stworzyłem makro na to filtrowanie: http://obrazki.elektroda.net/17_12375753... Ten błąd pokazuje się tylko jeśli zmienię nazwę na inną lub dodam. Co może być jeszcze nie tak?
Witam, Niedawno zrobiłem programik, który generuje 3przebiegi przesunięte w fazie. Triggerem dla pierwszego przebiegu jest detektor zera sieci na INT0. Chciałem całą obsługę generowania sygnałów zrobić na przerwaniu Timera. Ale mój ból jak wywołać przerwanie Timera natychmiast po otrzymaniu sygnału na INT0 Wykombinowałem sobie takie o to rzeczy tuż...
Dziełasz na "zwykłym" adresowaniu czy na FormulaR1C1 Przy "zwykłym" kopiowanie: Cells(1,2)=Cells(1,1) Zaznaczenie cells(1,3).select Poza tym excel ma coś takiego jak "zarejestruj makro". więc włącz ten zapis, zrób co trzeba, zatrzymaj zapis i zobacz jaki kod powstał.
Tak makro uruchamia outlooka i wysyła wiadomość i robi to całkowicie automatycznie, a ja bym chciała np. dopisac do takiego maila treść, albo dodac inne załączniki, wtedy nie moge tego zrobić, bo nie zatrzymuje się ta wiadomość w kopiach roboczych Outlooka. Dodano po 3 W jakej postaci Chcesz zapisywac "ta wiadomość "? Jako klasyczna wiadomość poczty...
Już myślałem, że się nie doczekam na ten plik. Proponuję taki kod: [syntax=vbscript]Sub ReplaceTest() Dim i As Long Application.FindFormat.NumberFormat = "h:mm:ss" Application.ReplaceFormat.NumberFormat = "h:mm" With ActiveSheet.UsedRange For i = 1 To .Columns.Count .Columns(i).Replace What:="", Replacement:="", _ SearchFormat:=True, ReplaceFormat:=True...
Makro to też bardzo fajna rzecz, ale ja jakoś nie potrafię tworzyć makr z kodów, jak poleca JRV. Ale w zupełności wystarcza mi sposób z tego opisu: http://www.komputerswiat.pl/poradniki/pr... Czyli wykonujemy czynności z opisu do momentu gdy kursor zamieni nam się na "kasetę magnetofonową"....
Witam wszystkich. Aktualnie pracuję nad dużym plikiem analitycznym zawierającym trochę małych makr. W tej chwili mam problem z makrem do tworzenia arkuszy o nazwach pobieranych z zakresu komórek. Zależy mi na tym, aby makro sprawdzało, ile jest wypełnionych pól w dedykowanej tabeli (zakresie) przeznaczonym do wpisywania kodów przez użytkownika, a następnie...
Temat już mocno przeterminowany, ale w ramach wiedzy załączam poniżej makro autozapisu co 15 minut, które działa w nowszych wersjach excela np 2010 Wklejamy w ten skoroszyt Option Explicit ' Zmienna przechowująca czas ostatniego zapisu Private dtLastSaveTime As Date Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range)...
co może być innego przyczyną tego błędu ? Jaki masz zakres tabeli do kopiowania (?), bo z kodu: [syntax=vba] Range("H9").Select Range(Selection, Selection.End(xlDown)).Select [/syntax] można "odnieść wrażenie", że kopiujesz zakres od 'H9' w dół do ostatniego wiersza w arkuszu, tak więc kiedy chcesz ten zakres wstawić w inny arkusz:[syntax=vba] Sheets("DANE...
Napisałem takie makra w pliku2.xlsm [syntax=vba] Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim NazwPliku As Variant, Sciezka As Variant Dim Plik As Workbook NazwPliku = "Plik1.xlsm" For Each Plik In Workbooks If Plik.Name = NazwPliku Then Cancel = True End If Next Plik End Sub [/syntax] i jest OK. Ponieważ jest plik1.xlsm otwarty plik2.xlsm...
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
zatrzyma wirowa zatrzyma wydruk zatrzyma timer
tablet samsung galaxy karta pamięci hasło centrala blaupunkt tokyo kostka
podzielniki ciepła techem systemy grzewcze serwis
Różnice między głowicami F9Q U7 a F9Q K7 Raniero – kody błędów, diagnostyka Curtis, ZAPI, typowe usterki enkoder, hamulec, kontaktor
