Toż to jedno drugiemu zarzecza - jak ktoś ma zablokowane makra, to jak makro "wymuszające" ma się odpalić?? ;) Nie ma takiej opcji. Możesz najwyżej ukryć wszystkie arkusze, zabezpieczyć dostęp do kodu VBA hasłem, i odkrywać je makrem na otwarciu. Jeżeli ktoś ma wyłączone makra -> makro na uruchomieniu się nie odpali i strony mu się nie odkryją. Jeżeli...
Ok już dołączam: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Ale po co ci makro. Kopiujesz tekst z pliku txt. Zaznaczasz w excelu komórkę a1 i wklejasz. Zaznaczasz całą kolumnę A. W menu "Dane" wyszukujesz "Tekst jako kolumny..." . (excel 2003, XP i starsze - w 2007 też to jest tylko ja nie trafiam gdzie to teraz pochowali) Wciskasz "stała szerokość" i bez żadnych ustawień wciskasz zakończ. Lub dla pewności zamiast...
Czy takie makro w kodzie arkusza spełni zadanie? [syntax=vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False Application.CellDragAndDrop = False End Sub[/syntax]Pozostaje możliwość kopiowania przez schowek systemu Office i makrem.
Nie daję już rady i proszę o pomoc. Wpisywanie nowych danych działa poprawnie, natomiast gdy dam Odśwież pokazuje mi błąd. Już siedzę nad tym z miesiąc i noga. Nie jestem mocny w te klocki i już myślę nad rezygnacją wpisywania nowych danych przez wywołanie UserForm, i wpisywaniu ręcznie kolejnych pozycji. Tylko że będzie ich docelowo ok 2000. Proszę...
Poniewaz strona ma 5 rekordow i zakres 22 wierszy, to maksymalnie w Excel 2003 ~ 14,5 tys wierszy, w >=2007 ~ 230 tys. Z warunkiem ze typy zdarzen bedzie jak w arkusze KODY.
Witam, jestem na etapie pisania pracy inżynierskiej, napisałem sobie część makra która wstawia mi twardą spację po każdym ze spójników z tablicy (nie wiem czy jest to dobry pomysł, ale nie umiem napisać makra, które znajdzie wyraz na końcu linijki i wstawi po nim spację. Chciałbym do niego dodać kilka rzeczy i proszę o pomoc, otóż nie wiem jak umieścić...
Witam, jestem na etapie pisania pracy inżynierskiej, napisałem sobie część makra która wstawia mi twardą spację po każdym ze spójników z tablicy (nie wiem czy jest to dobry pomysł, ale nie umiem napisać makra, które znajdzie wyraz na końcu linijki i wstawi po nim spację. Chciałbym do niego dodać kilka rzeczy i proszę o pomoc, otóż nie wiem jak umieścić...
Witam!Bardzo proszę o pomoc w napisaniu makra/generatora kodów qr w excelu,mianowicie chce aby to co znajduję się w danym arkuszu zamieniało mi na kod qr.Bardzo bardzo proszę o wskazówki i pomoc
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Witam! Mam kawałek kodu z formą. Mam cały gotowy program tylko nie wiem jak go przypisać do makra?? Kiedy piszę w edytorze VBA i uruchamiam sobie formę z kodem to wszystko pięknie działa. Jednak po wejściu w menu Narzędzia > Makro > Makra... nie mam żadnych makr. Jak to powiązać?? W domyśle chciałbym aby makro było uruchamiane po kliknięciu obrazka...
1. To jak sprawdziłeś, że działa? odp1) Klikam na "button" i przypisane do niego VBA działa tzn wykonuje to co ma zapisane w wierszach poleceń dodawanie danych do innych arkuszy, MsgBox. To samo co jest nagrane jako makra czyli rejestrator moich kroków nie działa. Mam tu na myśli klikam na wcześniej działające makro (na moim kompie) i nic zero efektu...
Napisać kod w VBA z obsługą błędów. Niech makro jedynie wywołuje ten kod.
Nie wiem jak masz ułożone dane a w szczególności w jakim arkuszu jest umiejscowione "OperacjeSorted" ale u mnie działa z takim kodem: Private Sub Worksheet_Change(ByVal Target As Range) Sheets(2).Cells.ClearContents Range("Operacje").Adva... Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range...
Witam, pokrótce opisz mój problem na podstawie zamieszczonego poniżej pliku 'przykład1'. Makro które w nim utworzyłem ma za zadanie: kopiować z arkusza '3' wiersz z ciągiem 4 cyfr do arkusza '1'. Potem z tego arkusza kopiować kolumnę 'J' do arkusza '4'. W przypadku analizowanego przykładu, makro ma się zakończyć, gdy wszystkie wiersze (30) z arkusza...
Chodziło chyba o to, że w .PageSetup.PrintArea podaje się zakres komórek do wydruku, a u Ciebie są tam jakieś ścieżki podane... W każdym razie spróbuj może dla odmiany drukowania z linii komend i starego, dobrego .vbs ;) Choć zdaje się, że VBA też to zrozumie jak wstawisz ten kod do makra... 1. utwórz plik z rozszerzeniem .vbs i wklej mu poniższy kod,...
Witam Potrzebuję zrobić niby proste makro, ale utknąłem na kodzie do niektórych elementów. W skrócie wygląda to tak: mam arkusz z przyciskiem, do którego jest przypisane makro. Po uruchomieniu makra otwiera się panel z jednym textboxem i trzynastoma przyciskami Commandbotton. Przyciskami od 0 do 9 wprowadzam liczby do textboxa, a pozostałe przyciski...
Mam Excel 2007. Myślałem, że w nowszych wersjach jest z tym lepiej. Czyli musisz, po staremu, zapisywać jako tekst. Dzięki za zainteresowanie. Wybacz, ale jestem cienki z VBA i nie bardzo umiem poradzić sobie z tym kodem (raz mi chodzi, a raz nie). Spróbowałem twój kod wcisnąć do makra, które miałoby zmieniać format jeżeli zmieniałyby się komórki H10:H100,...
Witam, mam pytanie a propos załączonego kodu, zrobiłem makro, które zapisuje plik jako xlsb. Wg mnie ten format nie powinien już zawierać makr, a jednak każdorazowo, gdy uruchamiam plik zapisany przez makro - wykonuje ono ponowne połączenie z bazą Oracle i ponownie odświeża dane. Chciałbym , aby plik wynikowy był już plikiem, który zawiera wyłącznie...
Próbowałeś umieścić całe makro w jednej linii? [syntax=c] #define UpdateGrandparentOrRoot {if(i>0),if(pred[i-1]->right==pred[i]),p... pred[i-1]->left=Q;,else root=Q;,parent--;}[/syntax] +Kod który wkleiłeś się w ogóle nie kompiluje, prawdopodobnie jest to tylko część kodu, wklej cały.
Witam! Mam makro, które przenosi odpowiednie dane do odpowiednich arkuszy na podstawie tego w którym miejscu w kolumnach H:J wprowadzone są dane, makro nie pozwoli wstawić raportu jeśli nie wypełnione są komórki C2 oraz C4, potrzebuję jeszcze dodatkowo aby nie można było wstawić raportu w sytuacji gdy dla któregoś wiersza dane znajdują się w którejś...
Witam wszystkich Potrzebuję makra do otwierania hiperłącza znajdującego się w komórce b3 (=HIPERŁĄCZE("C:\Users\MazurkiewiczT\Des... - katalog wskazany w formule chodzi dokładnie o możliwość otwarcia dokumentu i wydruku w ilościach wskazanych w komórce c3 Z góry dziękuję
To można stosunkowo łatwo uzyskać formatowaniem warunkowym. Reguła: [syntax=text]=A2=A1[/syntax]Kod formatu [syntax=text];;;[/syntax]Dane muszą się zaczynać od drugiego wiersza w arkuszu (albo niżej, ale nie od pierwszego). Do tego nie potrzeba makra, ale jak koniecznie chcesz, to możesz sobie zarejestrować i dopasować do reszty kodu.
Witam, Mam problem z dostosowaniem kodu i proszę o pomoc. Chcę, żeby makro oprócz warunku sprawdzenia hasła sprawdziło dodatkowo użytkownika czy się pokrywa z użytkownikiem z pierwszego logowania do pliku. Makro, które przy logowaniu się po raz pierwszy pobiera od użytkownika i zapisuje w arkuszu (tabeli) w 2 kolumnie login w postaci numeru indeksu,...
Napisałem króciutkie makro tworzące arkusz przygotowania produkcji na podstawie wpisanych wartości do arkusza PRODUKCJA. Można przeanalizować kod działania makro i wnosić własne ulepszenia. Procedura uruchamia się przy zdarzeniu Activate() arkusza PRZYGOTOWANIE PRODUKCJI.
Witam sympatyków MS Excel W sieci znalazłem dwa ciekawe kody oraz makro, które chciał bym ze sobą połączyć tak żeby działały poprawnie we wspólnym arkuszu. Jak większość uczących się VBA napotkałem problem. Na jednej stronie znalazłem dość ciekawy opis formatowania warunkowego wraz z kodem VBA służącym do zaznaczania (wyróżniania) aktywnego wiersza...
Po prostu nagraj makro, które będzie robiło to co chcesz. Wrzuć je tutaj, a dopisze się kawałek kodu sprawdzający otwarcie arkusza. Przy czym makro będzie wymagało otwarcia zeszytu (nawet w tle) do skopiowania danych. Jeżeli chcesz bez otwierania zeszytów, to przecież można zrobić odwołania do arkuszy jako formuły (tzw łącza): ='C:\Users\jj\Documents\[html.xlsm]Arkus...
Dzisiaj niestety pojawił się u mnie problem, bo to makro jest częścią większego dokumentu, który ma się automatycznie wypełniać i w pewnym momencie zamiast pustej komórki w miejsce godziny wkleja się spacja (" "). Jak mogę zmodyfikować to makro, aby sortowało nie komórki puste, ale te zawierające spację? Niestety nie potrafię wywnioskować z samego kodu.
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...
Mam taki kod makra j.n.:[syntax=vbscript]Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Być może ten temat już był wyjaśniany ale przeglądam forum i nie mogę, niestety, znaleźć odpowiedzi. Mam w arkuszu obszar ukryty. Mam wypełnione wiersze przed i za tym obszarem. Powiedzmy, że ukryty obszar ma 100 wierszy. Wpisuję tam dane w kilku kolumnach, a w jednej jest formuła, która coś mi wylicza. Na starcie widoczny jest tylko pierwszy wiersz...
Prośba o skrócenie kodu tak aby makro działało szybciej oraz działało również w excel 2010 Podaję jeden z kodów oraz plik [syntax=vbscript]Sub Zestawienie() Dim lastRow As Long Sheets("USUNIĘCIE ZAGROŻEŃ").Select Application.Run "Hide_DeleteRows" Sheets("ZESTAWIENIE").Select j = 3 For Each c In Worksheets("zestawienie").Range("aa1:aa1... If c = "1"...
Jak uruchamiasz procedurę? Ja używam przycisku i po zaznaczeniu dowolnej komórki, w której jednak musi być prawidłowa część ścieżki, po kliknięciu przycisku makro pobiera tę wartość. Przykładowo zaznaczam komórkę B8 z tekstem "Obrazki" (taki jest podfolder z obrazkami u mnie), klikam przycisk i kod umieszczony w makro: [syntax=vbscript] imgLocation...
Witam, Napisałem proste makro, które koloruje mi zaznaczone obszary i przechodzi dalej. Zamiast tego chciałbym żeby obszary te były ukrywane. Czy da się to jakoś zmodyfikować? [syntax=vbscript]Sub Makro1() ' ' Makro Dalej ' ' Klawisz skrótu: Ctrl+b ActiveCell.Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select...
Witam Często muszę usuwać odfiltrowane wiersze w których znajduje się tez grafika. Znalazłem gotowe makro które działa dość szybko i usuwa je, jednak robi to bez grafiki. Dodam tylko że we właściwościach znajdujących się w pliku zdjęć mam zaznaczoną opcję "Przenoś i zmieniaj rozmiar razem z komórką". Czy da się zmodyfikować to aby razem z tymi odfiltrowanymi...
Znalazłem kod obsługi wyś 7-segmentowego, pozmieniałem rejestry pod swój mikro procesor (ATmega32). Tylko mam problem z linia " static const uint8_t __flash DIGITS To standardowy błąd eclipse i pluginu do AVR, nie wpływa ten błąd na kompilację, jedynie na "podkreślanie" składni w Eclipse. Rozwiązanie tego problemu znajdziesz m.in. w tym wątku: zrezygnowałem...
Witam ponownie. Ponownie potrzebuję pomocy mistrzów excela :) [syntax=vbscript]Sub Send_Range() ' zakres ActiveSheet.Range("A6:G6").Select ' envelope ActiveWorkbook.EnvelopeVisible = True ' opcje With ActiveSheet.MailEnvelope .Introduction = "This is a sample worksheet." .Item.To = "xxx(at)xx.pl" .Item.Subject = "AWARIA" .Item.Send End With End Sub[/syntax]...
Super, widziałem nagrywanie, ale nie zauważyłem że można podejrzeć kod takiego nagranego makra, sporo to pomoże :) Pobawię się w takim razie dzisiaj, dzięki.
Cześć wam, Czy ktoś ze zgromadzonych tutaj osób potrafi przenieść arkusz wraz ze wszystkimi skryptami i makrami z Excela do Google Sheets, wiem ze tam jest już całkiem inny język programowania. Czy byłby ktoś w stanie przerzucić te dane. żółte pole działa na skanowanie skanerem kodów kreskowych.
Nie spotkałem się z czymś takim. I żadnych komunikatów? A uruchamiane krokowo w edytorze? P.S. Ale skoro działają zarejestrowane: nagraj dowolne makro, zmień nazwę (tu sprawdziłbym, czy działa z nową) i podmień kod.
Witam Mam taki kod do makra jednak potrzebuję by w polu temat wpisywała się aktualna godzina i data Czy ktoś by mi mógł pomóc ?? Sub Przycisk1_Kliknięcie() Dim oWorkBook As Workbook Dim sAdresat As String Dim sTytul As String Set oWorkBook = ActiveWorkbook sAdresat = "r.s(at)interia.pl" sTytul = "Tu data i godzina" On Error...
Dzień dobry! Potrzebuje kod w makrze Założenia: Będzie powtarzał daną wartość np. 3000 lub tekst w danej kolumnie w askusz1 oraz powtarzał daną wartość np.0000 lub tekst 2 w arkuszu 2
Tak z pierwszego linka z google: masz licznik, masz od ilu (1) i do ilu (32000) oraz co ile (liczymy co 1). To wszystko, pod pętlą umieszczasz swój kod.
[syntax=vb]Sub Issuance() Sheets("Po za firmą").Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To Sheets("Issuance").Range("K18") Cells(nw, 1) = Sheets("Issuance").Cells(18, 2) Cells(nw, 2) = Sheets("Issuance").Cells(18, 11) Cells(nw, 3) = Sheets("Issuance").Cells(3, 1) Cells(nw, 4) = Sheets("Issuance").Cells(14, 9) ow = Cells(Rows.Count,...
Poprawiłem kod.
A może chodzi o coś takiego: [syntax=vb] Option Explicit Sub Posklejaj_Klik() Dim i As Long Dim Wprowadzone As String Dim IloscArkuszy As Long Dim OstWierszArkusz1 As Long IloscArkuszy = ThisWorkbook.Sheets.Count Do While Not IsNumeric(Wprowadzone) Wprowadzone = InputBox("Wprowadź od którego arkusza chcesz sklejać dane", "Sklejanie", "2") Loop i = Wprowadzone...
Masz zainstalowaną wtyczkę PDF? Próbowałaś powyższy kod?
W jakim celu używasz 3 kont i dlaczego nie stosujesz podanych tutaj rozwiązań swoich problemów? Dbasz o to, by inni się nie nudzili i pisali dla Ciebie kody?
Wkleja tak jakby od 2 Dodano po 19 Podzieliłem kod na dwa makra.
Cześć, Mam dwa pliki i chcę zastosować SUMIFS w VBA. Jednak mam dwa błędy 91 oraz 424 Plik 1 z którego są pobierane dane: DanedoSumIFs.xls Plik 2 - tutaj sumuje, kolumnę C z pliku 1, dla każdego kodu z Plik2 z daną datą z Plik2. Mam dwa problemy w napisanym makrze: [syntax=vbscript]Sub Makro1() Dim ok, ostk As Integer Dim ow, ostw As Integer Dim i,...
Witam Mam kilka makr, które są uruchamiane przyciskiem. Chciałbym jednak, aby można było też jednym przyciskiem uruchomić wszystkie makra. Zależy mi jednak na tym, żeby nie uruchamiały się jednocześnie, tylko np uruchamiało się Makro1, a po jego zakończeniu Makro2 itd. Jak powinien wyglądać kod. Próbowałem coś robić samemu, ale uruchamiały mi się wszystkie...
Hej, mam w pliku a.xlsm zapisane makro którego wykonanie powoduje zapisanie kopi tego pliku w innym folderze pod nazwą b.xlsm. Obecnie działam tak że otwieram plik a.xlsm muszę odczekać około 10-15 s aż plik automatycznie pobierze kwerendą świeże dane z SQL-a następnie ręcznie uruchamiam makro o nazwie Makro1. Po wykonaniu makra plik a.xlsm zamyka się...
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
Fanem fotografii to może nie byłem, acz zdarzało się jednej nocy wywołać 2000-3000 odbitek, człowiek padał na nos, ale pieniążki z tego były fajne. Wystaw kilka też popełniłem, ale to wszystko historia dinozaurów. Wszystkich aparatów nie testuję, raz że musiałbym nie pracować, nie jeść, nie spać. Dwa że staram się dostać w łapki tylko to co mnie samego...
Witam, mam spory arkusz z wartościami liczbowymi(w większości), niektóre z nich zakończone są symbolem * co zmienia formatowanie komórki na ogólne. Potrzebuje usunąć te nieszczęsne gwiazdki. Korzystam z polecenia zmień, ale formatowanie komórki pozostaje dalej ogólne, a chciałbym nie musieć przy każdym błędzie jaki wyrzuca mi po tej operacji excel klikać...
Przerobilem znalexione w sieci makro tak ,że działa ale tylko na 2 plikach :/ nie wiem o co chodzi.. A chciałem aby działało na tylu plikach ile zaimportuje.. Możecie coś podpowiedzieć? I ewentualnie pomoc w jeszcze 2 rzeczach: 1) Wstawianie zer tylko tam gdzie: a) osoba jest zgodna ale nie ma wartości w całym wierszu b) tam gdzie nie znalazło nikogo...
Jeśli dobrze zrozumiałam - to chodzi o uruchomienie makra po kliknięciu w dowolną komórkę w kolumnie A? To może wystarczy to: [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.column= 1 Then Application.Run "Makro1" End If End Sub[/syntax] Ten kod uruchomi makro. Czy samo Makro1 powinno być przerobione? To zależy...
Błąd polega na tym że makrem wpisujesz liczbę jako tekst. Najprawdopodobniej wpisujesz liczbę od razu z okienka. Aby temu zaradzić w kodzie makra przed samym wpisaniem do danej komórki excela wartości z okienka przemnóż przez 1 lub "przekonwertuj" na liczbę funkcją Cint() [liczby całkowite] lub Clng() [mniejsze liczby] czy Cdbl(). [duże liczby] Nie...
Witam potrzebuje zmienić kod tak aby w kolumnie 3 tabeli jeżeli jest wpis zostawiał cały wers a puste chował. Makro zrobiłem ale mam problem ponieważ chce jeszcze aby nie tylko jeżeli jest wpis zostawiał wers ( to mam kod pod opisem), ale jeszcze żeby tam był taki warunek że np. wpis > "-". Gdyż mam powiązane funkcję i nie dam rady tego inaczej połączyć...
Słyszałem wiele dobrego o użytkownikach elektrody i dlatego zwracam się do Was z prośbą o pomoc Kurcze kolega tak ładnie nas łechce ... :) Na marginesie Metoda kolegi pitermxa jest dobra od excela 2007 wzwyż a autor wspomniał że ma 2003. Niestety tu nie ma takiej opcji. Jak już ktoś wspomniał nie ma takiej formuły więc ... pozostaje makro. A jak makro...
Witam, Mam taki kod jak poniżej, ale mi nie działa - proszę o podpowiedź co spaprałem ;) Ogólnie ma przemielić wartości w tabeli i wypluć kolejną tabelę z wynikami. Sytuacja wygląda następująco: 1. mamy dwa arkusze: Raport i Wynik 2. w arkuszu Raport mamy nieznaną liczbę kolumn, z tym, że jest ich 1 +3*n nie wiemy też ile będzie wierszy 3. Kolumna pierwsza...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
Witajcie po przerwie. Jako, że długi czas ostatnio pauzowałem z konceptami, każdy kolejny staram się dopieszczać do granic możliwości. Dziś przyszło mi podzielić się z Wami kolejną moją zabawką, czyli następnym sliderem do pracy w trybie makro. Ponownie, jak w poprzednich konstrukcjach wykorzystałem silnik krokowy. Różnicę widać na pierwszy rzut oka...
(...) z nową nazwę pliku nowaNazwa = InputBox("Wpisz nową nazwę pliku:") 'Jeśli anulowano okno dialogowe, przerwij makro If nowaNazwa = "" Then Exit Sub 'Zapisz plik w nowej lokalizacji z nową nazwą ActiveDocument.SaveAs2 FileName:=nowaNazwa, FileFormat:=wdFormatDocument End Sub Wygląda na to, że podałeś niekompletną ścieżkę do lokalizacji, gdzie chcesz...
Witam, Mam makro do usuwania wierszy, które zawierają w kolumnie A "0". Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Kod w postach umieszczaj w znacznikach Syntax (to przy okazji), będzie czytelniejszy. Spróbuj [syntax=vb]Sub Makro1() Dim szuk As String, wrs As Long, ostWrs As Long With Sheets("WPROWADZANIE") szuk = .Range("B2") ostWrs = .Range("B" & Rows.Count).End(xlUp).Row + 1 End With If szuk <> Empty Then With Sheets("EWIDENCJA") On Error Resume Next...
Witam, Możliwe, że temat już się przedawnił i odpowiedzi nie uzyskam, ale kto wie:) Co do powyższego makra mam jeden mały problem, za każdym razem makro zwraca mi wartość prawdy, czyli knyps=TRUE, uruchamia zawsze makro1. Może to wynika z tego, że chciałbym, aby WymZloz był definiowany przez użytkownika za pomocą InputBox. Krótko mówiąc, ja to zadeklarowałem...
Jeżeli masz podobne nazewnictwo połapiesz się za pół roku o co chodziło "autorowi" przy pisaniu kodu? Dodam jeszcze, że tak zgodnie z teorią pisania programów to chyba pod przyciskiem, który ma uruchomić makro2 powinno się pisać raczej: Call Makro2 Ale mi działało zawsze z samym "Makro2" więc zasugerowałem takie rozwiązanie.
Ale przecież STROBE_old(1 downto 0) to właśnie jest cały synchronizator. 2 Flip-Flopy. Jeden stopiento za mało, napierw robisz: STROBE_old(1 downto 0) <= STROBE_old(0) & STROBE; a poźniej: if STROBE_old(1 downto 0) = "01" then Najmłodszy bit STROBE_old czyli STROBE_old(0) przechodzi tylko przez jeden przerzutnik. Jeśli jest w metastanie i ten...
To w takim razie przesyłam mój kod: Sub Makro1() If Sheets("Umowy").Range("U4").Value >= Sheets("Umowy").Range("O4").Value Then MsgBox "Całość kwoty etapu została zafakturowana" Else Sheets("Umowy").Range("A4:O4").Copy With Worksheets("faktury") ActiveWorkbook.Worksheets("faktury").Ran... 0).PasteSpecial Paste:=xlValues...
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...
Podepnij pod przycisk coś takiego: Sub Makro1() x = 1 While Worksheets("Arkusz2").... 1).Value <> "" If Worksheets("Arkusz2").... 1).Value = Worksheets("Arkusz1").... Then Worksheets("Arkusz2")....
Ciesz się, że nie wziąłeś Cortexa ;-) Na takich programach nie sprawdza się zużycia pamięci. Albo napisz w ASM, albo weź o wiele większy program. Rozmiar, który podajesz nie wynika prawie w ogóle z kodu, który napisałeś, To rozmiar kodu startowego C i ew. użytych bibliotek. Ewentualnie dopisz machanie drugą diodą i zobacz o ile program wzrośnie. Albert
Witam. Próbuje napisać makro, które będzie wyszukiwać w jednej kolumnie, np A kwot przeciwnych jeżeli istnieją (np kredyt noty i faktury) , dodatkowym warunkiem jest to aby wartość w kolumnie B (np nazwa przedsiębiorstwa) była dla obu kwot taka sama, jeżeli ten warunek jest spełniony to kwoty te są kopiowane do drugiego arkusza. Udało mi się napisać...
Witam Próbuję odwołać się do procedur z poziomu vba, ale powstaje błąd 449 arument not optional i nie bardzo wiem co z tym fantem zrobić. Chciałbym, żeby procedury były wykonywane dlatego odwołuję się do nich za pomocą Call. Może coś robię nie tak, dziękuję za każdą pomoc, kod wygląda tak: Błąd występuje w linii Call OpenEcxel. Te procedury znajdują...
Ja myślałem że należy skopiować wszystkie arkusze, tak od jednego użytkownika jest arkusz 1, ale jeśli następnie to są tej samej nazwy + 2...3 i itp. zapytał o to, ale nie otrzymał odpowiedzi Dodano po 2 ale teraz rozumiem, o co idze Dodano po 14 Ponieważ Total jest plik z powszechnego dostępu, następnie użytkowników może jednocześnie pisać w nim. Każdy...
Witam. Mam arkusz który ma służyć do kontroli wydań i przyjmowań towarów. W arkuszu mam łącznie 40 pól w które wstawiłem przycisk i podpiąłem do niego makro wstawiające datę i do tego momentu to działa. Problem pojawia sie gdy chce to makro przypisać do wszystkich 40 przycisków, wtedy wychodzi na to że musiał bym mieć napisane 40 makr gdzie w każdym...
Jestem laikiem jeżeli chodzi o VBA. Potrzebuję makro, które będzie sumowało komórki z danego zakresu względem kolorów jakie są w komórkach gdzie są wartości. Kod mam, ale po zmianie koloru komórki z zakresu automatycznie nie przelicza się, trzeba "odświeżyć". Jakieś pomysły jak to zrobić, żeby latało z automatu? Sub Makro1() Function SumujKolorowe(Zakres...
Witam, potrzebuję makro do Excela w VBA. Łamie sobie głowę, żeby to napisać i może ktoś umiałby to poskładać w sposób logiczny w makro. Z góry mówie, że to wygląda na dość obszerne makro ale myśle, że dla kogoś kto dobrze ogarnia VBA nie będzie z tym miał problemu. Dla mnie jest to troche ciężki temat :| Program ma kopiować komórki J2:J, K2:K, L2:L...
Spróbuj taki kod: Sub Makro1() kolumna = 1 wiersz=1; Do while Cell(wiersz,kolumna).value<&g... Cells(wiersz, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).Insert Shift:=xlDown wiersz = wiersz + 1 End If Loop End Sub
Trochę to klopotliwe, autor zastosowal aliasy rozkazów i makropolecenia, zawarte są one zapewne w inkludowanym pliku 16f84.h, ponadto niektóre nazwy zmiennych są niedozwolone, trzeba je zmienić. Początek już przerobilem, zobaczę czy dalej sie da. Jeżeli masz plik .hex to go daj, po zdisasemblowaniu bedzie widac wszystkie makra i aliasy w jawnej formie,...
To jest makro dostępu do rejestru. Bo DDRC czy inne tym podobne to rejestry specjalne (Special Function Register - SFR), które dodatkowo są rejestrami 8-bitowymi typu i/o - stąd to makro. Realizuje ono dostęp do konkretnego rejestru (umieszczonego pod podanym adresem) w taki sposób jak do zmiennej -> przecież trzeba jakoś przekształcić zrozumiałe dla...
Witam ponownie, chciałbym prosić o pomoc przy wyszukiwaniu tagów html o zmiennych parametrach. Aktualnie posiadam taki kod: [syntax=vb] Sub Makro1() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange i = 1 If kom.Value <> "" Then Do i = InStr(i, LCase(kom.Value), "<") If i = 0 Then Exit Do 'tu warunek opuszczenia /konieczny/...
Witam, chciałbym napisać makro sortujące od wartości największej do najmniejszej. Musi to być makro gdyż, będzie to częścią innego makro. Posiadam dwie kolumny A i B makro miałoby sortować wg. kolumny A. oto następujące problemy: - w niektórych komórkach występuje błąd #Value! kiedy sortuje od największej do najmniejszej komórki z błędem w posortowanej...
Witam, prośba o pomoc uruchamiam makro z poziomu sap które wyowłuje odpowiednią transakcje z danymi np mb52 niestety nie wiem za pomocą jakiego kodu uzyskane dane można zapisać do postaci pliku excel chodzi mi o kod VBA który zachowywałby sie analogicznie jak wywołanie manualne z poziomu sapa:List-> export->spreadsheet->format pliku + nazwa ścieżki...
Witam, ten [url=]Link temat idealnie wpasowuje się w mój problem. Czy można przerobić makro z postu #11 [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next w = Target.Row k = Target.Column If k = 7 Then If Target.Value > 1 Then a = w + 1 b = a + Target.Value - 2 Rows(a & ":" & b).Select Selection.Insert Shift:=xlUp,...
Witam. Mam za zadanie napisać makro kopiujące wartości z jednego arkusza do drugiego. Jak dotąd nie było z tym problemu ale teraz są to dość obszerne arkusze więc nagranie makra trochę mija się z celem bo dużo wartości musi zostać skopiowane. Najbardziej zastanawia mnie dlaczego wartości z komórek AF54 i AG54 usuwają się za każdym razem jak odpalę to...
Witam, Mam problem,chciałbym sobie ułatwić życie w pracy, ale jestem totalnym laikiem w tworzeniu makro. Opiszę problem: Mam szablon pliku excell w którym wpisuje dane do okreslonego zlecenia które później za pomocą makra (nie moja robota) lądują w tym pliku posortowane na 10 różnych arkuszach. Problem pojawią się kiedy kazdy arkusz z osobna drukuje...
Witam czy ktoś mógłby poprawić mi makro tak żeby pojawiało się okno wyboru pliku który chce zaimportować, a nie importowało ciągle tego samego pliku? Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Dziękuję za odpowiedzi, ale... chodzi mi o to, żeby tekst (nazwa dnia tygodnia) występujący w komórce A1 "Arkusz1" determinował do jakiego, wcześniej utworzonego w tym samym skoroszycie arkusza, będą zapisywały się dane umieszczone w tabeli, np. B2:F20 "Arkusz1". Dlatego też, wydaje mi się, że bliższą rozwiązania mego problemu jest odpowiedź otrzymana...
Witam Mam makro, którego część odpowiadająca za ustawienie sprawdzenia poprawności w kol O w arkuszu "I L" wygląda j.n. W jaki sposób zmienić ten kod, żeby nie kopiować go kilkanaście razy, a jedną procedurą takie sprawdzanie poprawności w tej samej kolumnie było ustawione w wielu innych arkuszach (np. "II L", III L") [syntax=vbscript] Sheets("I L").Select...
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
Witam, Mam problem z działaniem makropoleceń w centrali ProSYS. Chciałem zrobić szybkie uzbrojenie( nr pod litera "A"), ale niestety po wpisaniu standardowego makropolecenia ( np: 2222a1a ) system wpisuje kod logowania a następnie nie aktywuje polecenia "arm" a co za tym idzie wyboru partycji, tak jakby kod się nie zgadzał albo polecenia "a" (arm) nie...
No to to już jest ostry HardCore ;) Ale ten mój prekompilator i tak był dość inteligentny. To nie było zwykłe podstawianie kodu tak jak to realizuje makro. Możliwe było na przykład zagnieżdżanie: If S1 > Tab(i) Then '#C <-- info dla mojego prekompilatora żeby czepić się tego Ifa ;) Locate 1.1 LCD A; "A"; B; "V"...
A dokładniej: wrzuć go do katalogu w którym masz plik którego listening pokazałeś. Później albo kasujesz średniki w #define something something2; albo kasujesz je tam, gdzie wywołujesz makro. Bo preprocesor jedynie zamienia to co masz napisane za something na to co masz dalej. W konsekwencji piszac w kodzie something; masz dwa średniki na końcu wiersza.
Witam Tak jak w temacie mam napisałem program w bascomie który ma za zadanie zapalać cztery diody led po odebraniu po RS232 cyfr od 1-4 i chodzi to bez problemu ,ale teraz gdy uczę się języka C postanowiłem ten sam program przenieść na C i już nie jest tak dobrze.Objaw jest taki gdy wyśle 1-Zapalają się i gasną diody "STROBO I KULA" gdy 2-Tak sama 3-Też...
Jak ma być? Wg mnie, z tego co napisałeś to kod od (at)NAXIN działa jak należy.
A mógłbyś mi ten kod wstawić do arkusza, bo coś nie działa. W załączeniu arkusz.
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...