Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Jest funkcja rejestrowania i odtwarzania makra. Uruchom rejestrowanie makra i wykonaj 2-3 cykle powtarzających się operacji, potem możesz makro edytować w Visual Basicu. W kodzie powinieneś zauważyć pewne prawidłowości, wtedy zamienisz procedurę na pętle z tyloma iteracjami, ile potrzeba do przetworzenia całości danych.
czas wykonania procedury skrócił się z 10 minut do 1,01 minuty Aż za bardzo ;) Można też wcześniej obliczyć sumę z pierwszych pętli (wynik częściowy)... to nie za bardzo rozumiem jakby to miało wyglądać w kodzie by było efektywne Myślałem o tej linii: If x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 = 34 Then Ty poszedłeś po całości ;) Jeśli zapamiętalibyśmy...
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Pomysł ciekawy. Pozwoliłem się pobawić tym makrem. :arrow: do autora Makro działą tylko że nie znajduje sumy w kombinacji sum 5 liczb. (Można dodać okno z wyjaśnieniem) Twoja suma pojawi się (12 kombinacji) jak dodasz jeszcze pętle dla sumy sześciu (6) liczb. czyli w miejsce 'tu kolejna pętla dla kombinacji 6 liczb itd' wklej For n = m + 1 To a kontrol...
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
Co do zasad pisania kodu Jak już deklarujesz zmienne to powinieneś deklarować wszystkie. Zapomniałeś o zmiennej "mnoznik" i chyba błąd w nazwie zmiennej lastcell x Jeżeli potrzebujesz liczby całkowitej skorzystaj z operatora "\" a nie "/" lub z Fix(liczba) Czyli mnoznik = lastcell \ 10 + 1 lub mnoznik=Fix(lastcell / 10 + 1) Co do pętli niby założyłeś...
1. ... Chciałbym aby pętla opierała się na "numerze dostawcy" i po zmianie numeru na inny - początek nowej pętli. Pusta kolumna = koniec pętli. 2. ... działa, ale potrzebuję, aby obejmowało tylko dany "numer dostawcy". Po zmianie numeru na inny - start nowego macra. 3. ... Obecnie macro nagrywa mi całą zawartość tabeli ( tabela 1) Pkt 1 i 2 - Pętla...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
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...
Najlepiej by było gdybyś w załączniku podpiął twój przykładowy arkusz. Wtedy łatwiej będzie znaleźć ten błąd. I jeszcze jedno - na chwilę obecną to makro sprawdza wszystkie kolory z palety więc nie trzeba nic definiować. Wklej ten kod między Private Sub ...() a End Sub Dim kom As Range, i As Integer Application.ScreenUpdating = False Range("AB5:AC60")....
Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Uruchom poniższy kod w aktywnym Arkuszu3 [syntax=vb]Sub z() Dim iLstRw% Dim iLstNmRw% Dim rRng As Range j = 3 With Sheets("Arkusz1") iLstNmRw = .Cells(Rows.Count, 6).End(xlUp).Row Set rRng = Range(.Cells(6, 6), .Cells(iLstNmRw, 6)) End With iLstRw = Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To iLstRw rRng.Copy Destination:=Cells(j, 9) Range(Cells(j,...
"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
https://obrazki.elektroda.pl/3570276400_... Pokażę tutaj jak przyśpieszyłem programową komunikację SPI służącą do obsługi pamięci Flash. Sprawdzę jak dużo kodu może kryć się za warstwą abstrakcji GPIO BK7231 a potem spróbuję operacje na pinach zredukować tak, by działały bezpośrednio na rejestrach. Ile cykli procesora tracone jest...
takie coś wymysliłem że jeśli ktoś sobie założy filtry to potem skopiuje CRM do innego nowo powstałego arkusza i wtedy bedzie wklejac... ale jeszcze pętle bym potrzebował bo ja zrobilem sobie na A2 A3 A4 tylko tak zeby zboaczyc czy bd chodzic [syntax=vb]Sub drukuj() ' ' drukuj Makro ' ' Klawisz skrótu: Ctrl+Shift+Z ' Sheets("Dane").Select Range("B2:B370").Select...
Czy jest to możliwe aby to makro wpisywało w komórkę wcześnij zaznaczoną/odznaczoną (zanim się je uruchomi)?byłoby super jeśli jest taka możliwość. Tak. Zamiast: Range("A1") = lst Wpisz: Acivecell = lst
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Dzień dobry, mam funkcję, która pobiera dane z innego arkusza. Poprzez pętle poprawnie wypełnia 3 wiersze - tutaj nie ma problemu. Chciałbym zrobić żeby każde działanie pętli zmieniało zakres (ten X21:AE21), czyli byłoby X21:AE21, X22:AE22, X23:AE23 oraz ten drugi (AH21: AO21) analogicznie: AH21: AO21, AH22: AO22, AH23:AO23. Da się tu podstawić tą zmienną...
Ciekawe czy to jest w ogóle możliwe w VBA szukałem w necie jakiejś gotowej pętli ale nic nie ma Nagraj sobie makro i podstaw to pod np. pętle for
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
Dlatego myślałem o dodaniu ewentualnego oczekiwania na naciśnięcie klawisza w pętli tylko nie wiem jakim poleceniem. Jeżeli makro zostało już uruchomione to nie przerwiesz działania innym makrem czy przyciskiem, tylko możesz cisnąć szybko 2x klawisz escape. Tak jak pisałem wcześniej przenieś tą pętle pod 'worksheet calculate' i wtedy możesz zmieniać...
Pytanie nie jest precyzyjne. Albo wszystkie możliwe 6 cyfrowe kombinacje cyfr 0-9 - makro i pętle Albo 6 cyfrowa kombinacja z cyfr 0-9 -wtedy =ZAOKR(LOS()*-9+9;0)&","&ZAOKR(LOS()*-9+... itd
Musisz dodać kolejna pętle po hasłach.
jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak, wystarczy zamiast kodu wątpliwej jakości weryfikacji poprawności wpisywanych danych (można tu wykorzystać choćby natywne funkcje Excela poprawności danych :idea: ) wprowadzić makro typu Worksheet_Change, które będzie uruchamiało makro sumuj() po każdej zmianie w którymkolwiek arkuszu...
Niestety nic nie działa. Prosze o wsparcie. Próbowałem formuł jak poniżej: Jak widzę takie kody to ... Dodaj sobie pętle sprawdzającą i jak coś będzie zablokowane to odblokuje. Coś ala [syntax=vbscript]For Each w In Application.ProtectedViewWindows w.Edit Next Windows("20230725_INT.xls").Activate Application.WindowState = xlNormal Range("A:L").Select...
witam, bardzo fajne makro a czy można zrobić pętle tego makro bo to jest tylko przypisane do jednego wiersza a można tak zrobić dla większej ilości? jeśli tak to jak ??
Ok udało się dodać TRIM, zauważyłem tylko, że nadpisała się jedna komórka więcej z pustym ciągiem i kropką. Pozostało jeszcze dodać pętle na wyszukiwanie pionowo każdego z elementów. [syntax=vbscript]Sub CountDots() Dim w As Variant, x As Integer, s As String Dim kom As Range For Each kom In Selection w = Split(kom, ".") kom.Offset(0, 1) = "Kropek jest...
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
Teraz działa wyśmienicie :) Musze dorobić jeszcze do tego pętle tak żeby makro po wydruku uruchamiało się na nowo Ale będę próbował to zrobić własnymi siłami dopiero jak sobie nie poradzę będę prosił o pomoc Na razie PRL masz u mnie dobre %%%%
Ja nie widzę problemu z odwoływaniem się.. - pewnie zerwałeś połączenie (nie wiem skąd to się wzięło ? W pewnym momencie jak wpisywałem formułę "=" to ta formuła autentycznie zostawała w komórce ! dopiero jak następny raz otworzyłem plik i wyczyściłem zawartości tych kilku kolumn (aby rozpocząć nowy miesiąc) udało się wpisać formuły i teraz wszystko...
Bez sprawdzania [syntax=vbscript]Dim kom As Range For i = LBound(tblArkusze()) To UBound(tblArkusze()) With Sheets(tblArkusze(i)) Set rngTmp = .Range("O2:O" & Cells(.Rows.Count, "B").End(xlUp).Row) With rngTmp.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$BY$2:" & Range("BY2").End(xlDown).Address...
Witam, potrzebuję pomocy z napisaniem kodu, który będzie w stanie wyszukać we wskazanym zakresie komórki, które mają obramowanie w kolorze czerwonym. Jeśli komórka ma czerwone obramowanie, to dana kolumna w której jest komórka powinna zostać ukryta. Napisałem prosty kod, który to robi i wrzucenie tego w pętle to też nie problem, ale jest pewien szkopuł,...
u mnie nie pokazuje ilości plików. klikając F8 i mam dla próby 4 pliki i makro robi pętle 4 razy i za 4 kończy na end sub Dodano po 2 jak jest close to wywała błędy. saved jest ok tylko drukuje 1 plik i konczy na tym
Tylko makro i pętle w pętlach z formułą sprawdzającą za każdym przejściem wynik i jego tolerancję z E2. Swoją drogą to ciekawą pracę domową dał wam sor na święta, aczkolwiek nie za trudną - takie podstawy wykorzystania pętli :)
Musisz 'zamienić' pętle z warunkiem 'if' Co to jest to 'k' pętla ma działać dopóki znajduje "k"?
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
wszystkie działają poprawnie ze skrótów - to jest wyjątkiem i dlatego zagadka tak bardzo mnie nurtuje Wyjątkowość ta prawdopodobnie wynika z nieprawidłowego zarejestrowania makra :D 1051419 Po normalnym zarejestrowaniu opcji skrótu (i drobnej korekcie katalogu plików, oznaczeń arkuszy oraz kodu :ok: ) makro pracuje jak widać na zrzucie całkiem prawidłowo...
Zaczynając od wiersza 2 wykonujesz pętlę dopóki w A jest niepuste. Czyli np. jakoś tak:[syntax=vbnet] Sub Sumowanie() Dim Y As Long, S As Double Y = 2: S = 0# Do While Cells(Y, "P") <> "" If Cells(Y, "P") <> 0 Then S = S + Cells(Y, "P") Else Cells(Y, "R") = S: S = 0# End If Y = Y + 1 Loop Cells(Y - 1, "R") = S MsgBox "Gotowe" End Sub [/syntax]
Zmienną zadeklarowałem. A mógłbyś dokładnie wskazać gdzie tą pętle wkleić w istniejącym kodzie?
Może tak: [syntax=vbscript]Sub Duplikaty() Application.ScreenUpdating = False ow = Cells(Rows.Count, "A").End(xlUp).Row For w = 1 To ow For k = 1 To 8 If Cells(w, k).Interior.ColorIndex = 6 Then Cells(w, "K") = "Puste pole" If Cells(w, k).Interior.ColorIndex = 3 Then Cells(w, "K") = "Dulikaty" Next Next Application.ScreenUpdating = True End Sub [/syntax]
Witam, mam problem z napisanie makra które chowałoby wiersze po kolei, tzn. jeden przycisk chowa 4 wiersz, po kliknięciu go ponownie chowa się także 5, po ponownym kliknięciu jeszcze 6 i tak dalej, drugi przycisk odrywa te wiersze od tyłu, czyli jeśli ostatni schowany wiersz to był wiersz nr 6 to go odkrywa, po kolejnym kliknięciu odkrywa wiersz nr...
Prędzej uzyska Kolega pomoc niż wykonanie za Kolegę całej roboty (szczególnie w przypadku zastosowania komercyjnego). Pętle w VBA w sumie nie są niczym trudnym, więc jeśli tylko z nimi jest problem - to na pewno ktoś będzie w stanie pomóc.
Zastanawiam się czy jest możliwość, aby makro skopiowało mi tyle arkuszy ile jest wypełnionych wierszy w arkuszu głównym Zerknij Czytałem i próbowałem na różne sposoby, ale jestem jednak za cienki. Ledwo w ogóle ogarniam proste procedury, a pętle mnie przerastają.
Witam, Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 oczywiście słowo dzbanek się zmienia i jest jego 100 rodzajów i to samo z datą itd. I muszę zrobić tak żeby każda z tych danych znalazła się w różnych komórkach, tzn dzbanek...
Witam Tak jak (at)adamas_nt napisał wystarczy sam outlook trzeba trochę zmodyfikować jego kod i dodać pętle "lecące" po całej książce outlooka i wyciągnąć adresy wtedy porównać z nazwą plików (w nazwie nie muszą mieć pełnego adresu email) [syntax=vbscript]Sub bla2() Dim ksiazka As Outlook.AddressList Dim adresat As Outlook.AddressEntry Dim objOutlook...
Witam, Mam dane w lewym górnym rogu i chcę by makro kopiowało mi tak dane jak te które są pośrodku arkusza (te na niebiesko). Czyli input=dane w lewym górnym rogu, output= dane na niebiesko. Ja to zrobiłem w 2 częściach (gdyż jest to urywek większego makro które chce stworzyć i robie je w kilku częściach by się nie pogubić:) ). Pierwsze makro sprawdza...
makro działa ok ale przy małej liczbie wierszy. W przypadku gdy np: lp=300 to excel wpada pętle i cała operacja trwa bardzo długo i pożera dużo ramu. Da się coś z tym zrobić?
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.
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na temat szukanych danych. Druga szuka danych z pierwszej pętli w drugim...
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 Przewidziałam to:) Całe makro podzieliłam na 5 części...
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
Niestety, za każdym razem typy są różne i zakres danych również Dodano po 4 Jak zrobić pętle dla danych filtrowanych w kolumnie E dla różnej ilości wierszy, aby kopiowało mi w zależności od danych i wrzucało do nowego arkusza zapisując go tym typem oraz według tego co aktualnie mam w liście wyboru w kolumnie E? Mogę prosić o podpowiedź.
Witam ! Z góry przepraszam, ale jestem początkujący jeśli chodzi o programowanie jakiekolwiek. Mam pytanie odnośnie pętli w vba w przypadku update do bazy danych Mam w excelu kolumnę z poleceniami update (ilość wierszy może być różna) https://obrazki.elektroda.pl/4545887200_... Napisałem kod, który wykonuje polecenia update z komórki...
W mojej ocenie błąd powodowany jest poprzez niezrozumiałą pętle napalecie :?: :cry: Gdybyś podała przykładowy plik z wycinkiem Twoich danych to łatwiej byłoby przeanalizować Twój kod - a tak mam tylko wrażenie, że tu makro wprowadza jakieś wartości od "czapy" :D :arrow: wystarczy spojrzeć na kolumnę G :!:
Witam stworzyłem makro które dane z arkusza instrukcja przyporządkowuje do odpowiedniej daty w innym arkuszu. Mógłby ktoś zerknąć na to makro i np je trochę skrócić, ponieważ nie mam pojęcia jaką można by zastosować pętle żeby to zrobić? Drugie pytanie jest takie czy da się zrobić żeby podczas działania makra nie skakał on tak między arkuszami a został...
Dzieki wszystkim za podpowiedzi ale dalej nie wiem jak to rozwiazac. Moze powiem o co mi biega: chce monitorować pewne zdarzenia w wierszach mam wpisany czas i obok zdarzenie ktore ma nastąpić tego jest od groma (ok 350) i chce podświetlić te które teraz ma mjejsce np 9:01:24 - płączenie pradu 9:01:46 - zwiększenie pradu o ... 9:02:02 - włączenie czegośtam...
Witam Widzę tu "czary mary" [syntax=vbnet]Application.DisplayAlerts = False With wkb2.Sheets(2) .Delete End With With wkb2.Sheets(1) .Name = "Lista odczytowa" End With Application.DisplayAlerts = True [/syntax]
Niestety nie mam żadnej pętli, bo do tej pory nigdy nie robiłem takich pętli, w których był jakiś warunek i kompletnie nie mogę tego ugryźć, poza tym od dawna tego nie robiłem. Nie wiem jak wstawić licznik, makro do otwierania linków zajmuje 2 linijki, więc nie wiem czy się wam to przyda, bo problem polega na konstrukcji pętli, jeżeli nie da się tego...
To jest tak jakbyś wpisał formułę do komórki zawierającą odwołanie do innego pliku i w zmiennej a masz wartość z tej komórki jeśli chcesz pobrać więcej danych to musisz napisać pętle pobierającą dane do tablicy lub zakresu. Ale jeśli masz jeden duzy plik do którego wszyscy wpisuja dane, a nie powinien być on dostępny powszechnie a dodatkowo plik ten...
Cześć, W VBA jestem naprawdę początkującym, wiem, że jest, wiem, że są pętle, zmienne itd. Jednak za nic jeszcze nie potrafię tego przełożyć na praktykę. Chciałbym porównać dwa pliku. Stary oraz Nowy. W plikach Mam informację przykładowo Magazyn, Zamówienie, Ilośc, Komentarz: Chciałbym, aby Makro porównało po zamówieniu dwa pliki i te zamówienia, których...
Witajcie, Czy ktoś jest mi w stanie pomóc z poniższym makrem. W arkuszu1 mam listę 8 nazwisk (A2:A10) W arkuszu2 mam kolumna A: listę nazwisk tych samych co w arkuszu1 + inne, B: liczbę godzin (1,2...), ale również inne. Chciałbym aby w arkuszu1 w kolumnie C2:C10 sumował mi godziny dla danego nazwiska, które znajdzie się w arkuszu2. Musi to być macro....
Cześć, Chciałbym aby makro porównywało mi kolumne a z kolumną b i w kolumnie d wpisywało komentarz większe lub mniejsze Makro niech nie porównuje gdy niepuste wiersze bądź wartość 0. Udało mi się napisać coś takiego : [syntax=vbscript]Sub porównaj() Dim ostw As Long ostw = ThisWorkbook.Sheets("Arkusz1").Cells(Row... "c").End(xlUp).Rows For x =...
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
Chodzi o to ze pętla while jest bardzo rozbudowana (znajdują się tam też inne pętle), nie mogę sprawdzać warunku w pętli bo będzie to bardzo czasochłonne i będzie zajmowało za dużo kodu. Problem polega na tym, aby przerwać tą pętle natychmiast po naciśnięciu klawisza czyli w przerwaniu powinno być coś takiego: SIGNAL(SIG_INTERRUPT0) { //tu powinien...
Witam. Uczę się dla siebie samego pisania makr i mam prośbę odnośnie czy, ktoś z was zna jakiś dobry link do strony gdzie wytłumaczono by jak zrobić pętle w excel'u? Chce zrobić coś takiego, że w UserForm'ie wpiszę 10 liczb z zakresu od 1 do 100. Makro będzie zawsze losowało 10 liczb z tego zakresu. Gdy wylosuje 5 takich samych cyfr jak te z 10, które...
Wiesz co wziąłeś się za makro nie do końca chyba rozumiejąc zasady. Pierwsza część: Po co to, jak jeszcze nie wprowadziłeś żadnych danych do tablicy: AA = tablica(a, f) BB = tablica(b, f) CC = tablica(c, f) DD = tablica(d, f) EE = tablica(e, f) Wszystkie wartości tych zmiennych (AA BB itd.) będą puste. Druga rzecz Wydaje mi się że nie te pętle zastosowałeś...
Dzień Dobry, zakładam temat bo w sieci to co znalazłem nie potrafiłem wykorzystać. W załączniku plik. Piszę makro, które będzie kopiowało mi z Arkusz2 do Arkusz1 wtedy, gdy będzie spełniony warunek. W Arkusz1 mam nazwy kontrahentów według wykazu alfabetycznego, w Arkusz2 są kontrahenci w różnej kolejności. Pętlą For w Arkusz1 schodzę po wierszach w...
Witam, Potrzebuję pomocy z napisaniem makra (najlepiej gotowca ze względu na znikomą znajomość VBA), które będzie miało za zadanie automatyczne skopiowanie wartości w komórki poniżej w zadanym zakresie (by robić to etapami). Moja wiedza kończy się na tym etapie: [syntax=vb] Sub Makro2() ' ' Makro2 Makro ' Range("C39:D39").Select Selection.Copy Range("C40").Select...
Witam, Jak widać po problemie jestem początkujący w programowaniu VBA. Dlatego chciałem prosić o małą pomoc. Potrzebuje napisać makro w którym jedną z czynności będzie sprawdzenie czy wartości w kolumnie C (od C2) są równe wartościom w kolumnie D (od D2). Jeżeli tak się dzieje wówczas makro powinno usuwać cały wiersz. Jednym słowem jeśli C1 = D1 then...
Cześć, mam problem z poprawnym umiejscowieniem pętli w kodzie. Moje makro ma za zadanie umieścić w osobnym arkuszu każdy zakres ograniczony z góry i z dołu wierszem z ciągiem gwiazdek o długości 92 znaków z pierwszego arkusza. [syntax=vb] Sub Dostawy() Dim OstWiersz As Long Dim j, l As Integer Dim LArkuszy, LArkuszy2, LWierszy As Integer Dim zakres,...
napisz niewielkie makro np jak masz komentarz w komórce a1 a chcesz wpisać go powiedzmy do b1 to wystarczy napisać makro Sub Makro1() Range("B1").Value = Range("A1").Comment.Text End Sub i go uruchomić i wszystko. Myślę że sobie poradzisz. Jeżeli masz w parudziesięciu komórkach to trzeba by było zrobić automat i przez jakąś pętle warunkową podmieniać...
Można zastosować funkcję Mid w pętli For (For Each Komórka in Zakres). Jeśli zmieniasz jeden konkretny numer, zastosuj instrukcję warunkową If i porównanie. Odn. realizacji: Pierwsze trzy znaki (48 ) są identyczne. Następnie mamy trzy cyfry rozdzielone spacją, które zwiększasz o 1 (jeśli o to chodzi). Wydzielasz je w/w funkcją (Mid) w kolejnej, zagnieżdżonej...
defincje wksz as worksheet oczywiście były, dużo wierszy to już ok 200 (jesli ogranicze pętle Do - do na przykład x=5 wtedy też jakby lepiej działa jak jest wiecej to nawet cały widok czasem sie nie odswieża - skopiowana tabela sie wogóle nie pokazuje, muszę kliknąc 2 razy (dokładnie 2 razy) na jakąś komórke i wtedy pokazują sie skopiowane wiersze -...
Witam Mam bazę danych w Accessie, z której zaciągam dane do exela następującym makrem: [syntax=vb]Sub Zaciagnij() Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String Dim i As Long, n As Long, lFieldCount As Long Dim rng As Range Dim wartosc1 As String Dim adoRecSet As New ADODB.Recordset Dim connDB As New ADODB.Connection...
Witam, Wpadłem na ciekawy pomysł jak sobie ułatwić życie. Mianowicie co dzień w pracy muszę uzupełniać co raz to dłuższą listę wyjazdów samochodów do odbiorców. Dostawy robimy wciąż na stałą godzinę więc na podstawie odległości można wyliczyć jak długo trzeba jechać aby dojechać do celu o godzinie 6:00. Wniosek - godziny dla danych punktów są niezmienne....
Nie wiem czy Twoja odpowiedz traktowac jako zart czy chciales pomoc ale dopiero zaczynasz prace z excelem.Tak czy inaczej dziekuje za odpowiedz.Mi chodzi o pętle ktora bedzie kopiowala po dwie kolumny z kazdej zakladki i wklejala je do zakladki zbiorczej obok siebie.Czyli masz np.30 zakladek,musisz z nich skopiowac kolumny b i c,uruchamiasz makro i...
Można by spróbować z pętlą i uzależnić wskazania na daną komórkę od numeru pętli - jak znajdę chwilę to pokombinuje. Już znalazłem ale z pętlą w tym przypadku się nie da bo się pętla zapętla. Private Sub Worksheet_Change(ByVal Target As Range) For x = 1 To 200 If Range("c" & x + 10).Value <> "" And Range("b"...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Cześć, Potrzebuję podpowiedź z następującym problemem. Mianowicie chodzi o wyszukiwanie danych na podstawie daty. Potrzebuję w bazie danych usunąć wszystkie wiersze, których daty są wyższe niż wprowadzona przez użytkownika. Kolumna dat ma format dd/mm/yyyy, natomiast gdy używam poniższego kodu to nie wyszukuje mi nic, lecz gdy wejdę manualnie zobaczyć...
https://obrazki.elektroda.pl/4671082400_... Interfejs graficzny Home Assistant opiera się o potężny język szablonów Jinja2. Jinja2 używany jest do przetwarzania danych z czujników, tworzenia warunków w automatyzacjach czy dynamicznego formatowania komunikatów. W celu ułatwienia pracy z Jinja2 Home Assistant oferuje wygodne narzędzie...
Witam Zadanie które mam do wykonania polega na tym, iż mam dostępny arkusz "baza" w którym znajduje się ok 10 000 wierszy, każdemu wierszowi odpowiada kolejno w kolumnach od A do C , nr punktu , współrzędna X i współrzędna Y i muszę ustawić numery zaczynając od numeru C27 i kolejno każdy najbliższy odległościowo punkt aż do wyczerpania zapasów. Robię...
na chwile obecną mam taki kod: Sub Macro1() Dim POTS(1 To 2) As Variant POTS(1) = 0.2 POTS(2) = 0.3 Dim DSL(1 To 2) As Variant DSL(1) = 0.4 DSL(2) = 0.5 Dim inne(1 To 2) As Variant inne(1) = 0.6 inne(2) = 0.7 ' sprawdzenie ilosci wierszy w bazowej tabeli ostatniWiersz =...
A może coś jeszcze prostszego. Autor nie wspomniał jak będzie wprowadzał dane. Jeżeli to będzie robił "z ręki" i pojedynczo to może w "sekcji" Change każdego arkusza uruchamiać makro z odwołaniem do procedury w module która pobierze nazwisko z aktywnego arkusza (przed chwilą wprowadzone) i poprzez pętle sprawdzającą nazwiska w Total w przypadku braku...
Hej Zacząłem właśnie uczyć się samemu VBA i utknąłem z jednym problemem. Moje Makro ma a zadanie przy każdym uruchomieniu wyszukać ile wierszy jest zapisanych w pliku w kolumnie D i w tylu też wierszach w kolumnie T wpisać cyfrę "1". Zrobiłem pętle która przechodzi do pierwszego pustego wiersza i zwraca jego adres i wartość dla uzyskania liczby wierszy...
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
Będę bardzo wdzięczna za pomoc Na forum jest wiele podobnych przypadków. Proponuję nagrać makro, a następnie użyć metod (pętli) ze wspomnianych przykładów.
Dziękuje bardzo za zainteresowanie się moim tematem makro działa jak najbardziej prawidłowo. Zmieniłem linijkę While pcur <= src(r + 1, 1) ponieważ może istnieć kilka M na tym samym poziomie i potrzebuje wszystkie przenieść do arkusza nr2 ( trochę nie jasno opisałem w pierwszym poscie . Jest możliwość aby makro powtórzyło tą samą operację aż do pustego...
Okej, ogólnie to działa, wielkie dzięki za tamto. Mam jednak dalszy problem troszkę. Ogólnie chcę osiągnąć coś takiego, że wysyłam najpierw z Matlaba liczbę - jakąś flagę, po której uC wejdzie do odpowiedniej pętli. Po wejściu do tej pętli dopiero w niej ma odbierać wysłaną z Matlaba wartość. Czyli np. najpierw wysyłam liczbę równą 2 z Matlaba do uC....
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Ten kurs to tak też średnio jest zrobiony, bo nadal mieli w podprocedurach... Najlepiej byłoby w obsłudze przerwania timera obsługiwać licznik programowy, który po wyzerowaniu ustawiał jakąś wartość, która byłaby sprawdzana w podprocedurze pętli głównej... Ogólnie rzecz ujmując, należy pisać program tak, aby najsłuszniejszą pętlą była pętla główna....
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.
zagnieżdżone pętle programowanie pętle pętle indukcyjne
falownik silnika pralki electrolux alpine kostki czujnik wtrysk paliwo
myjka ciśnieniowa stanley myjka ciśnieniowa stanley
Toyota Starlet 1998 - Przyczyny dużego spalania Kompatybilność wiązki RD4 z radiem RNEG w C4 Picasso
