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...
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...
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...
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 ??
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
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...
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 dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Musisz 'zamienić' pętle z warunkiem 'if' Co to jest to 'k' pętla ma działać dopóki znajduje "k"?
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...
Zmienną zadeklarowałem. A mógłbyś dokładnie wskazać gdzie tą pętle wkleić w istniejącym kodzie?
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]
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.
pętle podłogówki zagnieżdżone pętle programowanie pętle
działa obrotomierz mazda identyfikator komputera vestel 17ips72
płyta indukcyjna elektrolux płyta indukcyjna elektrolux
Schemat centrali CAME ZA3 - automatyka bram Immergas Eolo Star 23 kW - świeci czerwona lampka
