makro pętla

vba makro pętla do kopiowania i wklejania komórek

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 +...

Makro (pętla for) kopiowanie wybranych wierszy do nowego arkusza

[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]

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Makro (pętla for) kopiowanie wybranych wierszy do nowego arkusza

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...

VBA Makro - Pętla zmieniająca wartości w komórkach z aktywnym filtrem

"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)

VBa Excel(makro, Pętla do utworzenia "Listy" wpisywanej w arkusz Exela

Ustaw w oknie właściwości pola pozycję "Locked" na True. Automatycznie szarzeje zdaje się tylko w Accesie. Ustaw ręcznie lub warunkowo w kodzie formy.

Makro, pętla sumująca zakres o określonych warunkach

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]

Makro VBA: pętla w danym wierszu, która wypisze błędy duplikatu i pustych pól

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]

[Excel, VBA] - Makro - pętla kopiuj-drukuj (z filtrem)

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...

[EXCEL- MAKRO] Pętla - ilość wykonania zależna od wartości w komórce

Witam, mam pytanie jak rozwiązać następujący problem mam komórkę, która przyjmuje określoną wartość np. 4 chciałbym, żeby makro pobrało tą wartość i wykonało jakąś czynność tyle razy ile jest wpisane w tej komórce np: ActiveWorkbook.Sheets("Zes").Activate Range("A2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If...

excel vba makro petla kopiowa - problem, excel, vba, makro, pętla kopiowanie

Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...

VBA Excel - poszukiwanie odpowiedniego makra - pętla x ile.niepustych

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,...

Jak porównać 4 bazy w Excelu według numerów katalogowych?

Makro + pętla zagnieżdżona.

Pętla przenosząca wartości z jednej kolumny do drugiej

Dzięki wielki. Super, makro działa

VBA – jak napisać makro do rozdzielania tekstu w komórkach na kolumny (pętla, warunki)

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 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...

makro jeśli komórka ma określoną wartość to przenieść do innego pliku

wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.

pętla - makro - tworzenie skoroszytów - jak zrobić pętlę

Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...

Pętla w VBA dla prawidłowego formatu daty i zysku - makro kończy działanie

'Exit Sub ' u mnia to nie bylo Prawdopodobnie nie usunuto w Ciebie

Makro złącz teksty dla zmmiennej ilości komórek

Pętla (lub dwie zagnieżdżone w zależności od układu) i warunkowe przypisanie (tekst = tekst & ", " & nextTekst).

makro połączenie w pętli sprawdzenia poprawności z formułą

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...

[VBA] excell - makro wykonujące się coraz dłużej przy kolejnych pętlach

1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...

pętla scalająca komórki i pozostawiająca wartość

Dzięki wielki. Makro działa, tak jak chciałem

makro usuwajace arkusze po sprawdzeniu wartosci komorki

ws to zmienna tymczasowa, w której pętla for each przechowuje Worksheet z kolekcji na którym akurat jest. To makro działa na arkuszach workbooka, na którym zostało uruchomione (ThisWorkbook.Worksheets), jego nazwa nie ma nic do rzeczy...

VBA - pętla do while, makro w Excelu jak stworzyć?

Witam ponownie Zacznę od tego, że mam takie dane w excellu: 1293.2750.4324.1294.2750.3765. 0. 0. 0. 1. 1. 1. 1. 2. 3. 1. 2. 3. I teraz chciałabym napisać takie makro, które kopiuje mi komórki z pierwszego wiersza jeżeli w komórkach w wierszu poniżej wartości są takie same. Chciałabym, żeby te skopiowane wartości (tutaj akurat po 3) były kopiowane do...

VBA Excel - Kopiowanie danych uzależnionych od dat

Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)

VBA: Jak porównać i skopiować dane między arkuszami Excel?

Jeśli makro, to prosta pętla porównująca każdą parkę z każdą. Można też bez makra. Oba (E2k0) rozwiązania w załączniku.

[Atmega8][C] pętla while i makro: dlaczego błąd kompilacji?

Mam problem z petla While.. wydaje mi sie ze wszystko jest poprawnie mimo to uzyskuje blad #define WAIT_NIRQ_LOW() while(PIND&(1<<NIRQ)) (...) void rfSend(unsigned char data){ while(WAIT_NIRQ_LOW()); //<< Blad writeCmd(0xB800 + data); } //taki blad // ../cosss.c:86: error: expected expression before 'while'

Excell 2003 vba jak zatrzymać makro działające w pętli.

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.

[VBA] Podział danych w arkuszu według dwóch kolumn i eksport do osobnych plików

Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.

[VBA] Jak w pętli makra podmienić arkusz w otwieranym pliku?

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]

Makro do zapisu i drukowania w PDF - automatyczny zapis dla każdego numeru rej. z kolumny 'B' i 'H'

Nie wiem co masz w kolumnie T ? w pliku, który wrzuciłeś pętla działa gdy ma wszystko różne od 0 (Cells(x, 8) <> 0), bo w kolumnie H ostatnie było 0, więc przerywa działanie pętli. Chociaż do końca nie mogę rozgryść tego "x" do czego on się odnosi.(x=3 i x=x+1)??? zmienna x to numer wiersza od którego rusza pętla.

EXCEL - Kończenie pętli po osiągnięciu numeru wiersza podanego w innej komórce

Witam, nie znalazłem rozwiązania na forum. Mam makro, które otwiera linki wpisane w komórki. Wszystkie linki znajdują się w pierwszej kolumnie i lecą daleko w dół. Problem w tym, że chciałbym, aby pętla wykonywała to makro otwierania linku do momentu osiągnięcia numeru wiersza wpisanego w inną komórkę. Czyli jeżeli wpiszemy w komórkę '500' to pętla...

Excel - Powtarzanie dla wartości, pętla w makrze

Witaj. Makro to dość precyzyjny zbiór poleceń, więc projektując jego działanie musisz określić dokładnie co skąd i gdzie ma kopiować. Wartość "na przykład" 3000 lub jakiś (jaki?) tekst ma być od czegoś zależna? Skądś pobierana? Gdzie ma być "dana kolumna", o której wspomniano? Znowu mamy inną wartość przykładową, "na przykład" 0000 lub jakiś tekst w...

Excel VBA: Makro do kopiowania danych z Zeszyt1 do Zeszyt2 według KOLOR i TYDZIEŃ

Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.

Makro do kopiowaina pewnego zakresu komórek do innego arkusza

Przeczytaj dokładnie to co Ci napisałem wcześniej. Policz linijki to zobaczysz, że to, co nazwałeś pomyłką, pomyłką nie jest. Za to ten kod jest pomyłką totalną. Edit: Jeszcze jedno. Jeżeli Zest jest pierwszym arkuszem to pętla musi zaczynać się od 2 . Czyli i=2

8052 - Timer0 i przerwania: dlaczego program restartuje po przepełnieniu?

Witam. Treść programu nie pokrywa się z Twoimi założeniami bo: sbit cz=P0^1 //stwórz zmienną bitową i przypisz jej wartość bitu P0^1 //chcesz przypisać alias do P0^1 ?? Powinno być: #define cz P0^1 //nie znam składni Keil'a , ale ma być makro. Zmieniona pętla "while" ... while(1) { if(TF0) { i+=1; //--------------------------------------...

VBA: Automatyczne dopisywanie nazw arkuszy do określonych komórek

Witam, Mam taki problem. Mam plik gdzie jest kilka arkuszy. Chciałem żeby makro pewnie jakaś pętla pobierało nazwę arkusza i wklejała tą nazwę w odpowiednie komórki. Załączam plik. Czyli wynik miał by być taki: W arkuszu "Tab1" nazwa Tab1 pojawi się w komórkach W2,W3 i W4 (czyli tylko w rekordach gdzie są dane). W arkuszu "Tab2" nazwa Tab2 pojawi się...

Jak napisać pętlę VBA do zamiany danych między kolumnami w Excelu?

1. Zamknij wszystko w jednej pętli For rozpoczynając z wartością licznika 0. 2. Jeśli wartość nie zostanie znaleziona w kolumnie A makro wywali błąd. Wskazane zabezpieczenie z warunkowym wyjściem (obsługa błędów). 3. Wyjście warunkowe (x="") z pętli For ! Zewnętrzna pętla Do jest zupełnie zbędna. p.s. Co tam masz w tym pliku, że żądasz zapłaty?

Makra Excel - zawieszanie się pętli do until loop przy usuwaniu wierszy

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....

VBA - excel - Vba excel makro do przerabiania plików

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.

makro sprawdzające czy jest wpisane prawidłowe hasło

Nie mam pojęcia jak ta pętla ma wyglądać. Niestety za cienki jestem w makrach

Excel VBA - Pętla pobierająca dane z komórek i wyrzucająca dane do komórek

Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.

Kłopot z makrem VBA do eksportu danych z Excela, do bazy MySQL

Aktualizacja, pętla działa, mam sukces, kłopot pojawił się inny, całość makra działa tylko z małą ilością danych. Przy dużej, to znaczy konkretnie 455 rekordów pojawia się błąd z obrazka. Teraz zastanawiam się jak pominąć nieszczęsną pętle, bo wydaje mi się, że tu o to chodzi. Wiem, że w rekordzie 455 i następnym nie ma błędu, bo jak zmniejszę ilość...

VBA - Makro w pętli kopiujące i wklejące miedzy arkuszami

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...

Excel- VBA Automatyczne numerowanie i sortowanie na podstawie zadanego numeru LP

Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.

[Excel] VBA wyszukiwanie wartości komórek i ich zamiana

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.

[Excel] VBA makro - przypisanie punktów do usług z różnych grup

Poszukaj informacji na temat sortowania bąbelkowego. Tak się składa, że w VB litery i łańcuchy też można porównywać. "b">"a", "Alicja">"Ala" itd Musiałbyś kopiować dane ze wszystkich kolumn wiersza do tymczasowej tablicy, co pokazałeś że potrafisz już robić. Sumowanie najlepiej zrobić funkcją SUMA.JEŻELI. W VB Aplication.WorksheetFunction.SumIf(argum...

VBA, problem z makrem, jak je zapętlić?

To udało mi się osiągnąć problem w tym, że chciałbym to zapętlić w taki sposób aby makro szukało tak długo aż w kolumnie nie wykryje tej szukanej wartości. To działa ci te makro czy nie bo tego nie rozumiem. (jeżeli makro nie znalazło szukanej wartości a przeszukuje całą kolumnę B to po co ta pętla?)

Excel 2010 - Makro do kopiowania danych z wielu plików do jednego pliku B

a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.

VBA - makro wysyłanie maila z komunikatem z tabeli do odbiorców z tebeli ws.błęd

Musisz 'zamienić' pętle z warunkiem 'if' Co to jest to 'k' pętla ma działać dopóki znajduje "k"?

[VBA i excel] Jak napisać makro VBA do porównania i kopiowania danych między arkuszami?

Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...

VBA - Obsługa błędów w pętli Do While, makra, harmonogram, rok wniosku, poziom

Załącz plik. Jeśli typ zmiennej jest Variant, nie powinno być tego błędu.

[atmega 8535] [atmega 8535][bascom] Jak określić jednostkę czasu PULSEIN dla różnych MHz?

Źle zrozumiałeś ten zapis. Część odpowiedzialna za taktowanie co 10us wygląda tak: ... _pulse_in5: (at)genus(9) ; THIS FOR 10 US UNITS but approx. depends on XTAL ; you can remove the above call and tailor this routine ; when remarked 10 cycles/loop are needed and for 1 Mhz this is 10 uS ; for 4 MHz you need additional 30 cycles and the...

Jak zrobić wskaźnik poziomu paliwa LED z Arduino Nano i diodami WS2812?

Jak dział ta pętla? (at)R-MIK To może być jakaś osobliwość kompilatora. Nie wiem, nie jestem w tych sprawach ekspertem. No mnie to sie nie kompiluje. Może jakieś makro Arduino? Całkiem możliwe. Jednak nie jestem pewien bo nie jestem w tych sprawach ekspertem. Tylko ciekawi mnie gdzie jest tutaj taka pętla... PS: "Makro arduino" <-- Made my day (at)mot4ba...

VBA Excel - Makro do formatowania danych i sprawdzania poprawności danych

Po mojemu, nie ma tu nic skomplikowanego, jedynie "trochę" grzebaniny... Pętla z zastawieniem kilku sideł w postaci instrukcji warunkowych i jazda. Excel nie jest od poprawiania błędów językowych, więc to zostawiłbym Word'owi, albo w ogóle się nie przejmował. Wstawienie grafiki do formularza nie jest problemem. Rzecz w tym, żeby przygotować źródło w...

Excel VBA – makro do generowania ciągów z liczbami z nawiasów (zakresy, przecinki)

Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.

Makro VBA modyfikujące zakresy komórek w pętli dla różnych dni tygodnia

Kod czego ... pętli ... tablicy ? Pętli przecież masz, a tablica niekoniecznie potrzebna, można np. tak (o ile problem poprawnie opisany): [syntax=vbscript]Option Explicit Private Sub CommandButton2_Click() Const pth = "P:\RAPORT\" Const fle = "Plan wk" Const sht = "Main sheet" Const fsht = "R" Dim x As Integer, week As Integer Dim dzientygodnia As...

VBA - pętla - Jak zoptymalizować przeksięgowanie danych w arkuszu?

W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...

Makro VBA do scalania komórek w pętli - dlaczego nie działa?

Czułem, że trzymasz coś w rękawie ;) Z takim pryszczem poradziłabyś sobie. Spróbuj takiej pętelki [syntax=vb]Sub Merguj() Dim wrs As Long, merg As Long wrs = 1 merg = wrs Application.DisplayAlerts = False Do While Cells(wrs, 1) <> "" If Cells(wrs, 1) <> Cells(wrs + 1, 1) Then With Range(Cells(merg, 1), Cells(wrs, 1)) .Merge .HorizontalAlignment...

VBA excel - Pętla złe wartości, generowanie wykresu na podstawie danych

Włącz rejestrowanie makra i wykonaj z ręki wykresy. Zatrzymaj makro i przeedytuj jego kod usuwając zbędne elementy.

Komputer nie uruchamia się po awarii prądu - pętla trybu awaryjnego

Ustaw bootowanie z napędu CD. Płytę z systemem włóż do napędu. System zabootuje z płyty. Czytaj uważnie to, co się wyświetli na ekranie. Opcja naprawy pojawi się 2 razy - pierwszą zignoruj skorzystaj z drugiej. edit: Makro myślisz, że chkdsk tutaj pomoże? Można spróbować ale na wiele bym nie liczył. Wydaje mi się, że drugie R byłoby bardziej na miejscu...

Excel-Makro - Makro służące do generowania kolejnych plików

Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...

EXCEL VBA - Przypisanie MsgBox w BeforeSave do wielu skoroszytów

Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok

Jak stworzyć makro w Excelu do zmiany cen produktów po nazwie?

To pewien "mankament" VB dla VB liczba z przecinkiem jest "ciągiem" a z kropką jest wartością. W związku z tym trzeba takie przecinki zamieniać "ręcznie" Poniżej kod [syntax=vb]Sub ChgInfo() Dim WS As Worksheet Dim Search, Search2, Replacement, Prompt, Title, Zakres As String Dim MatchCase As Boolean Dim Kom As Range Dim Stara, Nowa As Double Zakres...

Makro VBA - Porównanie sąsiadujących wierszy i zmiana wartości w wierszu

Dziekuję bardzo za odpowiedź! Podobnie jak moje, Pana makro u mnie też nie zadziałało. ale wiem już dlaczego.. Moje i Pana makro zakłada, że podczas działania pętli i sprawdzania wartości w kolumnie H poprzedniego wiersza zostaje ona zapamiętana. Jednak tak to nie działa, gdyż pętla zakłada sprawdzanie wiersza po wierszu. (skok o jeden) Wystarczy wpisać...

[VBA Excel] Automatyzacja makra do przetwarzania plików tekstowych w pętli

Tak na szybko... Bez obsługi błędów, gładzenia kodu itp. Sub czytajpliki() Dim linia, sciezka, fs As Object, f, f2, k 'Application.ScreenUpdating = False sciezka = "C:\Documents and Settings\admin\Desktop\test\" Set fs = CreateObject("Scripting.FileSys... Set f = fs.GetFolder(sciezka).Files For...

Excel Makro - wyszukaj pionowo z tablicy w innym pliku

Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...

Excel - Makro - kopiowanie wierszy do jednego pliku

Przejdź krokowo (klawisz F8) i zobacz ile kroków wykonuje pętla. Może trzeba zmienić warunek, może kolumnę. Nie wiem, nie widzę pliku źródłowego... Jeśli działało Ci to (na tylu zmiennych obiektowych) dla jednej linii, powinno działać w pętli.

Makro Word 2013 - Jak wypunktować komentarze jako tekst pod dokumentem?

Ale się trafił klient awanturujący się :) Może tak: Będzie pan zadowolony . :)

Powtarzanie całego makra - tyle razy ile wynosi wartość konkretnej komórki

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))...

Excel VBA: Jak wczytywać wielokrotne zdarzenia z CSV do różnych komórek?

W jednej linii masz jedną datę, pętla więc jest zbędna. Trzeba by makro "zauważyło" zmianę daty, a jeśli nie (wiele zdarzeń tego samego dnia) Nr kolumny + 1 dodano po chwili Uwaga, zmieniłem załącznik.

[AVR][asm] Niepoprawny powrót z obsługi przerwania

Procedura obsługi przerwania używa tych samych rejestrów co pętla główna (mam na myśli makro delay1sek - rejestry r17, r18, r19), więc powinieneś odłożyć je na stos na czas wykonywania procedury obsługi przerwania.

Word VBA kreator makro nie rejestruje opcji "Zaznacz w Dokumencie Głównym.

Sub Makro2() ' ' Makro2 Makro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Color = 5287936 With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute...

Makro VBA Excel do przenoszenia kolumn po nagłówkach

... jak masz zamiar je wybierać? ... z tym mam problem ... Nie masz żadnego - po prostu w dodatkowym arkuszu ("konfiguracyjnym") w pewnym zakresie komórek (np. kolumny "A") wpiszesz sobie jeden pod drugim owe nagłówki do wyszukiwania. Makro będzie pobierać nazwy nagłówków (z tego zakresu) i wyszukiwać je w pętli po pierwszym wierszu arkusza z tabelą...

VBA EXCEL: Jak zastąpić MsgBox userformem w pętli wyszukiwania?

Dzięki za szybką odpowiedź pomogło ale jest jeszcze jeden problem. Opiszę to dokładniej. Makro szukaj uruchamiane jest z komórki "B12" i przez InpudBOXa szuka podanej wartości. UserForm szukaj ładowany z makro szukaj w którym jest ta pętla ma 5 przycisków CommandButton z czego: szukaj_dalej ma przeszukiwać pętlę a pozostałe zakończyć makro szukaj i...

Jak napisać makro VBA do wyszukiwania i zwracania wartości w Excelu?

Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...

Jak uniknąć pętli w VBA przy zmianie wartości dwóch list?

Cześć, w Excelu mam dwie listy, przykładowo: 1: nazwa artykułu w języku polskim 2: nazwa artykułu w języku angielskim Chciałbym utworzyć makro "Worksheet_Change" aby działało w taki sposób: podczas zmiany w liście z językiem polskim zmienia mi się lista z językiem angielskim i na odwrót. Problem w tym, że tworzy się pętla bowiem makro odpala się przynajmniej...

Vba Excel - Makro wyszukujące ciąg znaków i zmieniające jego czcionkę

Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...

Makro pobierające nazwe kolumny i szukające w nastepnym arkuszu

Witam, Potrzebuje napisać makro, ktore bedzie mialo dwie pętle. Pierwsza pobierać nazwy z nagłówka kolumn, kopiować je, przechodzic do nastepnego arkusza, tam druga pętla bedzię szukała wartośc pobranej z pierwszego arkusza, czyli nazwy kolumny. jesli znajdzie taką samą nazwe kolumny to kopiuje nagłówek z całą zawartością kolumny i wkleja ją do pierwszego...

VBA pętla w excelu, która będzie drukować wyszukane dane

Borykam się z problemem założenia pętli. W załączonym pliku nie ma żadnej pętli, z którą byłby problem. Chciałbym założyć makro, które będzie mi drukować wskazane indeksy... Co stoi na przeszkodzie?

Jak napisać makro z polem wyboru i pętlą Do Loop Until w Excelu?

Cóż, jeśli masz Exit Do bez żadnego warunku... Z drugiej strony: Jeśli wyrzucisz Exit Do pojedziesz do końca kolumny (pętla nieskończona). Chyba, że o to Ci chodzi...

Makro VBA: Nadpisywanie cen z zakładki DWA do JEDEN na podstawie ID

Cześć, Potrzebuję pomocy z pętla działająca na zasadzie vlookup. Mianowicie chciałbym aby makro szło po zakładce JEDEN i nadpisywało cenę na podstawie ID i Ceny z zakładki DWA, czyli taki VLOOKUP, tylko aby w przypadku gdy nie znajdzie odpowiedniego ID z zakładki DWA to aby pomijało cene. Dzięki za pomoc

VBA Excel - Excel VBA - pisanie makra - formatowanie i pętle.

Witam, generalnie to mam wrażenie, że Twój opis jest bardziej zagmatwany niż to czego faktycznie potrzebujesz. Niestety w załączniku nie ma makr, którymi planujesz generować swoje zestawienie i to trochę utrudnia znalezienie właściwego rozwiązania. To co mi się na początek rzuca w oczy to układ pliku. Dodanie kolejnych produktów spowoduje przesunięcie...

HMI Weintek EB8000 - Pobieranie rejestrów poprzez "macro" Weintek HMI

Wszystko działa tylko w starym EB8000 brakło możliwości wykonywania makra w pętli czasowej.

Excel - makro kopiujące kolumnę z pominięciem pustch komórek do nowego pliku

Witam serdecznie. Jestem nowym użytkownikiem trochę początkującym w makrach i VBA w Excelu aczkolwiek mam problem: Chciałbym napisać makro kopiujące kolumnę komórek z pominięciem pustych do NOWEGO pliku (ścieżka stała, nazwa zależna od 1 komórki w arkuszu) .xls Nawet nie wiem czy potrzebna jest pętla czy wystarczy sprytne makro. Proszę o przykład na...

Excel makro(Wytnij i wklejTxt) - Wycinanie pogrubionego tekstu z wiersza A1

Witam serdecznie. Mam wiersze z tekstem pogrubionym i normalnym(oba rodzaje tekstu występują w pojedynczej komórce) .Chciałbym aby w pętli makro wycięło pogrubiony tekst z komórki np A1 i wkleiło tylko (pogrubiony tekst) do odpowiedniej komórki C1 itd czyli A2 do C2 czy A3 do C3 itd.Może się tak zdarzyć że w którejś z komórek nie będzie pogrubionego...

Makro VBA: Warunek If zawsze zwraca True zamiast False - jak to naprawić?

Chodziło mi o Exit For umieszczone ZA if'em - w takim wypadku Twoja pętla wykona się zawszy tylko jeden raz, bez względu na warunek wewnątrz...

Word Makro - Odczyt wartości z pliku TXT i ich zapis do tabel

Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...

Szukam programu do zarządzania listą pracowników w firmie 300+ osób

To ty potrzebujesz program kadrowy a nie tylko listę pracowników. Rzeczywiście w samym excelu będzie to dość pracochłonne do zrobienia a na pewno trzeba będzie zahaczyć o makra. W innych (samych) bazach danych też nie będzie prosto. Jeszcze sam wybór i przyporządkowanie do stanowiska X Y ilości pracowników to spoko (pętla w makro) ale pamiętanie o tym...

Excel VBA - Niepoprawne wpisywanie wartości w kolumnach przez pętlę for

jak zrobić żeby gdy podamy 1 to żeby pętla wpisywała wartości do 1 a nie do 0,8? Tu padasz "ofiarą" zadeklarowanych zmiennych zmiennoprzecinkowych :please: (sprawdź co tam dokładnie makro wpisuje do poszczególnych komórek :D ). Jeśli ten warunek (wpisywania maksymalnej wartości) jest ważniejszy od równego podziału :?: to możesz to uzyskać kodem :spoko:...

Excel, VBA- kopiowanie danych i wklejanie do nowego pliku w konkretne komórki

Rzeczywiście ta linijka [syntax=vbscript] nw = b.Cells(3, 10).(xlUp).Row + 1 [/syntax] nie ma sensu. Skopiowałam z innego kodu robiącego cos podobnego i sama się w tym pogubiłam Zmieniłam deklarację zmiennej b na arkusz otwartego skoroszytu, ale nadal makro nie robi tego co trzeba. Mam wrażenie, że pętla For wgl się nie rozpoczyna. Nie wiem jak ją "zapętlić"...

EXCEL - makro - kopiowanie zaw. kom. do innego pliku w pętli

:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...

Makro VBA Excel - Jak skopiować dane między FZ w kolumnach A-W?

No cóż, opis nie jest bardzo czytelny, ale jeśli taki miał być efekt: https://obrazki.elektroda.pl/4588789900_... to kod, który to zrealizuje może wyglądać następująco: [syntax=vbscript] Sub FZ() r = 1 'kolejny sprawdzany wiersz (row) rstart = 0 'numer pierwszego w serii wiersza do którego wklejam wartości, jednocześnie numer wiersza...

VBA Excel: Pętla DO WHILE nie działa poprawnie - analiza kodu Makro2

Próbuję stworzyć kod pętlę, niestety za nic nie wiem co robię źle. [syntax=vb]Sub Makro2() ' ' Makro2 Makro ' ' Range("D1").Select Do While ActiveCell.Value <> "" ActiveCell.FormulaR1C1 = "=RC[-3]+RC[-2]" ActiveCell.Offset(1, 0).Range("a1").Select Loop End Sub[/syntax]

Źle działająca pętla - jaka może być przyczyna?

Witam w poniższym pliku mam utworzone makro, które ma za zadanie sprawdzać pewne założenia a wyniki analizy kopiować do arkusza "4". Pętla w nim umieszczona powinna wykonywać określoną procedurę, aż nie zostaną poddane analizie wszystkie wiersze w arkuszu "2" (w tym wypadku 15 razy). Makro wykonuje jednak tylko jeden cykl, jeżeli się nie mylę analizując...

Makro zmieniające pozycje ze względu na wartość w komórce

Na pętlach wyszło mi coś takiego (załącznik). Ale gdyby trochę to przeorganizować + arkusz pomocniczy, niepotrzebne byłyby makra...

Makro rozdzielające kilka zdań, następnie wyszukiwanie tłumaczenia w bazie

Rzeczywiście słuszna uwaga, czyli potrzebuję użyć innej funkcji która wyciągnie pojedyncze zdanie które będę chciał wyszukać formie z kropą i bez spacji na początku. W głowie mam pomysł jak to powinno być, czyli zliczenie ilości kropek powie mi ile jest zdań. Następnie z funkcją LEFT wyciągnąć pierwsze zdanie, następnie MID zdanie środkowe i kolejne....

Jak napisać G-kod dla stożka za pomocą elektrodabot?

(...) nd G0, G1, G2, G3 - współrzędne początkowe: X0, Y0, Z0 - za każdym przejściem wysokość Z zmniejszana o 0,05mm - średnica początkowa: 13 mm - głębokość: 4 mm - kąt stożka: 90 stopni - średnica końcowa wynikająca z matematycznego wyliczenia z kąta, średnicy początkowej i głębokości. (at)ElektrodaBot Wstępna ocena dostępnych informacji Zadanie polega...

Makro, VBA - wszystkie kombinacje prawdopodobieństw

Witam, Czy chodzi Ci o coś takiego jak w załączniku? Makro napisane na szybko, "na kolanie", z bezczelnie zagnieżdżonymi 5 pętlami FOR (gdzie aż się prosi aby użyć jakiejś rekurencji...), dodatkowo operacje wykonywane na liczbach całkowitych, żeby uniknąć problemów z sumowaniem i porównywaniem liczb zmiennoprzecinkowych (czyli 1 = 0.1, 2 = 0.2 etc).

Pętla VBA z funkcją konwertującą skróty na pełne nazwy w zakresie komórek

Zmienna Macro1 nie jest zadeklarowana, ani nigdzie dalej w tym kodzie nie jest wykorzystana. Dzięki, umknęła mi ta zmienna. Usunę tę zmienną i zostawię jak jest bo kod jest bardziej uniwersalny. Domyślam się, że chodzi o plik, z którego były kopiowane dane. Dokładnie tak, brakowało mi tego. To teoretycznie mój kolega mógł mieć ten plik otwarty jako...

Makro do obliczania średniej arytmetycznej i kwadratowej [EXCEL/VBA]

1. Ustawiasz w arkuszu układ danych, tak aby jak najlepiej pasował ci do wyliczeń 2. Określasz i deklarujesz typy zmiennych - jeśli będziesz je wykorzystywać 3. Zliczasz ilość komórek z danymi (liczby) 4. Dla średniej arytmetycznej wykonujesz dodawanie liczb, a następnie podział sumy przez ilość komórek z danymi (liczby) 5. Dla średniej kwadratowej...