makro excel pętla

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.

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

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

dzięki wielkie ! fajny kod, będę więc go też stosował.. ja przynajmniej moglem sie troche nauczyc przy pisaniu tego swojego prostego makra

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

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

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.

[Excel VBA] Usprawnienie makra w Excel VBA - jak uniknąć powielania pętli For?

[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]

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

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

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.

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.

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)

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

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

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

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.

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.

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: Makro tworzące arkusze z nazwami z kolumny A i kopiujące dane z KON

Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...

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]

VBA,EXCEL - podwójna pętla do kopiowania/segregowania danych

Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...

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

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

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

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: Makro do drukowania co 10 wierszy na stronę - jak poprawić?

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

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

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 - makro kopiujące kolumnę z pominięciem pustch komórek do nowego pliku

Jak zmienić mu "For wrs = 1" na "For wrs = "zależne od ostatnio wczytanych danych - od ostatniej pozycji w kolumnie A Przez podstawienie Nr ostatniego wiersza do licznika pętli, 'For wrs = Range("A" & Rows.count).End(xlUp).Row to ....' Musiałbyś tylko sprawdzać, czy nie jest większy od drugiego argumentu (pętla pojedzie wstecz), lub dodawać stałą liczbę.

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.

VBA Excel - Jak napisać makro do analizy cen z sygnałem +?

Jaka pętla, takie wyniki. Sprawdź... http://obrazki.elektroda.pl/2640890200_1...

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

[VBA Excel] Pętla w pętli / wyszukiwanie kilku zmiennych

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 :!:

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 wstawiające datę 1/1/2002 - błąd w pętli kodu VBA

Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...

Excel - Makro lub funkcja pokazująca który sklep zamówił dany towar

Dziękuję bardzo. Jeszcze jedno pytanie. Jak zrobić aby pętla zaczynała się od B4, a nie od początku arkusza jak teraz? Próbowałem zmienić For w = 4 To ow, ale jeżeli komórki na samej górze nie są wypełnione, to skrypt nie działa. A chciałbym aby zaczął on działać np od wiersza czwartego do końca :)

VBA Excel - Jak usunąć wybrane wykresy (4, 5, 6) w makro?

Ad.1 i 2 Najprościej: nazwij je przy tworzeniu Np dla pierwszego wykresy dodaj na końcu Wykres_01.Name = "Wykres1" wtedy: Sheets(Zak).Shapes("Wykres1").delete Ad.3 Przy Workbook.Open wywołaj makra usuwania i tworzenia. Jeśli będą nazwane (pkt.1), nie będzie trzeba nawet pętli, instrukcji warunkowej, itp. Ad.4 Array z nazwami i pętla. Zakresy masz po...

VBA Excel Przerwanie pętli po zmianie aktywnej komórki

Tak. Używam "Microsoft Communication Control" Problem udało się rozwiązać poprzez wstawienie do pętli DoEvents. Do DoEvents Loop Until MSComm1.InBufferCount >= 9 Program w pętli umożliwia zmianę komórek bez wysyłania danych, a pętla kończy się w momencie kiedy z urządzenia zostaną wysłane dane do komórki. Po zmianie komórki procedura startuje 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...

VBa, Excel, argumenty-wlasciwości nowo dodanego Arkusza, uzupelnienie

I tu się mylisz, niestety ale TAK Czy to "TAK" dotyczy pierwszego, czy ostatniego wiersza z mojego cytatu? Skłaniam się ku temu, że jednak chodzi o ostatni. Natomiast niema żadnego błedu Na pewno? http://obrazki.elektroda.pl/4256072200_1... A Twoim zdaniem co to za dziwadło? A powstało tu: http://obrazki.elektroda.pl/8661693700_1...

Excel/VBA - Makro do aktualizacji danych z innego skoroszytu z różnymi kolumnami

Makro niemal prosto z rejestratora, jeśli się nie mylę. Co, jeśli w arkuszu źródłowym będzie więcej niż dwie pozycje? Powinieneś pójść krok dalej i zainteresować się pętlami.

Excel VBA: Makro zamieniające wartość 1 na 2 w kolumnie A każdej zakładki

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

Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

A jak dokładnie są nazwane arkusze? Cała data, czy tylko numer dnia? Jeżeli cała data to: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name End Sub przy numerze dnia: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name & ".02.2011" End Sub To jest tylko dla jednego arkusza. Dla większej ilości...

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

EXCEL VBA: Jak kopiować dane z wielu arkuszy do jednego?

Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each. Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję. Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.

Dodawanie pozycji do bazy przez Userform jaka pętla VBA excel?

Witam, mam taki problem. Udało mi się jakoś napisać makro dzięki któremu dodaję nową pozycję do bazy (jak w załączniku). Wszystko działa dobrze jak dodaję jedną pozycję, jeśli chcę dodać kolejną pozycję pojawia się błąd i program się wyłącza. Domyślam się, że musi tu być jakaś pętla. Dodawanie pozycji do bazy odbywa się klikając na przycisk "Wstaw dane...

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

... jak się za to zabrać? :) Nie wiem czy pytający to przeczyta, ale wygląda mi to na szkolne zadanie. Tu też można pomóc. Więc tak: 1. Najlepiej poszukać w google (zakładam, że na pomoc kolegów czy nauczyciela nie można liczyć) hasła VBA Excel pętle. Na pierwszej stronie będzie trochę teorii i to po polsku. 2. Wybrać rodzaj pętli (jeżeli nie wskazano...

Jak napisać makro w Excel VBA do dzielenia danych wg typów w kolumnie E?

W szczególności co oznacza 7 różnych rodzajów typów? Coś mi mówi, że nie są to typy w rozumieniu programistów. I co oznacza różny zakres danych. Można kopiować więcej lub mniej danych w zależności od "typu", brać dane z innych miejsc? Ogólnie schemat powinien być podobny do tego: pętla po wierszach do końca (jak zdefiniujesz koniec? może do napotkania...

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.

Excel - makro do kopiowania danych rocznych do arkusza Divided

W tym wypadku wygodniejsza będzie pętla For . Jeśli docelowo dane mają być kopiowane do wielu kolumn należy zagnieździć jedną wewnątrz drugiej. Licznik pierwszej określałby wiersz, drugiej kolumnę. Twój opis nie jest oczywisty i można różnie go interpretować. Najlepiej wrzuć plik z przykładowymi danymi i układem arkusza wynikowego.

Excel VBA: Makro do zliczania i mnożenia rekordów spełniających kryteria

Czy ma ktoś pomysły jak to wykonać Mam jeden: Pętla For dla wierszy od pierwszego do ostatniego, wewnątrz której umieść instrukcję If testującą obydwa łańcuchy, w ciele której umieść licznik. Na końcu wystarczy wymnożyć licznik przez stałą.

Excel/VBA pętla na wykresy

Cześć, Chciałbym stworzyć automat do tworzenia wykresów. Moje pytanie jest następuj: w jaki sposób mogę zapętlić makro, aby pierwsza komórka była bez zmian (czyli mój nagłówek) a każdy kolejny wiersz to nowy wykres? Dla zobrazowania wklejam screena, oczywiście to tylko przykład bo takich wykresów musze stworzyć ok. 300 :/ https://obrazki.elektroda.pl/8896759700_...

makro VBO EXCEL wyszukiwanie nazwisk w kolumnie

Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle

[Excel] [VBA] Pobieranie danych z Listbox do komórki - pętla

Dzień dobry, Mam pewien problem. Zrobiłem sobie programik, który będzie tworzył listy obecności w danym miesiącu. Chciałbym ułatwić sobie jeszcze pracę tym, że nie będę wpisywał ręcznie do arkusza imienia i nazwiska pracownika. Zależy mi na tym, by makro dodawało pracownika w komórkę B5 i drukowało całą kartę. Proszę o pomoc jak zrobić coś takiego w...

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

Excel VBA - Makro do kopiowania wierszy z nazwą produktu 'Piłka' do innego arkusza

Tak znalazłem przez przypadek ten wątek to umieszczę swoje rozwiązanie bo... jeżeli mamy wiele wierszy do przeglądnięcia (np. 100 000 czy 500 000) to "lecenie" pętlą komórka po komórce jest wolne :/ Ja zawsze w takiej sytuacji korzystam z .Find dzięki temu pętla obraca się tylko tyle razy ile jest szukanych elementów :) czyli nawet jak masz 500 000...

Excel VBA – makro kopiujące dane między nowym a istniejącym skoroszytem i zamykające plik

Źle sformułowałem pytanie. W zapisanym skoroszycie o nazwie np abc znajduje się 100 wierszy, dla każdego z nich po kolei pętla ma: 1. utworzyć nowy skoroszyt, 2. wkleić dane i wyszukać odpowiednie informacje, po czym wkleić je do abc, 3. nowy skoroszyt zamknąć 4. przejść do następnego wiersza i wykonać ponownie wszystkie czynności

VBA Excel - Pętlowe zapisywanie danych - zużycie ramu

Witam, pracuję nad makrem które sukcesywnie będzie zczytywać odpowiednie dane z sieci WEB i wszystkie je zapisywać. Udało mi się już zmusić excel do automatycznego zczytywania danych co minutę. Problem polega na tym, iż taki plik coraz bardziej zużywa RAM. W związku z czym mam pytanie jak poradzić sobie z tym problemem? 1)Czy można włączyć excel który...

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

Excel VBA - Jak zautomatyzować makro dla zakresu komórek A2:D200?

Niestety nie mogę wrzucić tutaj pliku. Jako N miałem na myśli liczby zawsze powiększone o +1 np. A2 potem A3 itd. Znalazłem rozwiązanie które powinno mi pomóc. Mianowicie jest to pętla, której niestety po wielu próbach nie potrafię wykonać. Więc na ten moment moje makro jest "ręcznym" odpowiednikiem pętli czyli wszystko napisane krok po kroku a chciałbym...

EXCEL/VBA: Jak stworzyć pętlę z warunkiem if na podstawie numeru dostawcy?

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

VBA Excel - Kopiowanie konkretnych komórek między dwoma arkuszami

Rozwiązaniem, na oko, jest potrójnie zagnieżdżona pętla. Proszę o uzupełnienie: 1. Który plik jest "bazowy", tzn w którym ma być makro? 2. Czy w poszczególnych "blokach" mogą znaleźć się różne imiona? Inaczej: co jeśli w zakresie C3:F6 pliku źródłowego znajdzie się pusta komórka? 3. Czy pliki mają stałą nazwę, czy znajdują się w określonym folderze...

Excel VBA - Pętla Do While Loop nie przeskakuje na kolejne arkusze

Mam takie makro, które ma pobierać dane ze skoroszytów i wklejać do jednego. Wszystko działa dobrze z wyjątkiem pętli - nie przeskakuje na kolejne arkusze tylko ciągle pobiera z jednego, maksymalnie dwóch. Co jest nie tak? Sub Scalanie() folder = "D:\Pliki\" Set master = ActiveSheet plik = Dir(folder & "*.xlsx") wiersz = 14 Do While plik <>...

Działanie i objaśnienie makra w Excelu - Sub Makro2, autor XXX, zapis z 2012

Ale co, konkretnie, jest niejasne? To jest jakiś kod ramowy, który trzeba uzupełnić o obliczenia. Na razie określane są kolumny z danymi od kolumny D do ostatniej wypełnionej w prawo (ciąg bez przerw). Zakres wierszy 3..6 jest wpisany na sztywno. Dane z kolejnych kolumn od D w prawo są kopiowane do kolumny C i wyświetlany jest MsgBox po wykonaniu tego...

Excel VBA - Jak stworzyć pętlę do losowania liczb w UserForm?

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

Excel - makro wyszukaj wiersz z arkusza 1 w arkuszu 2

Witam, Mam problem z napisaniem makra w Excelu. Mam dwa arkusze. Chciałabym sprawdzić czy wiersz z arkusza1 znajduje się w arkuszu2. A następnie wyskakiwała informacja czy znalazłam odpowiednik wiersza czy nie. Próbowałam to zrobić pętlą, w której porównynwae są kolejne wiersze i do momentu zgodności zawartości wierszy jest ok. Jednak gdy nie znajdę...

EXCEL 2003 makro przypisujące kombinacjom danych w tabeli zdefiniowaną wartość

Tak, różne "kody" mogą mieć tę samą klasę, przy czym żaden kod się nie powtarza tzn. klasy A1 i B2 nie będą mieć tego samego "kodu". Wstępnie sprawdziłem i wydaje mi się że taka pętla powinna działać tak jak chciałem. Problem owszem mieć będę na pewno niestety żaden kurs excela nie pomoże jak się w temacie nie siedzi i nie rozwija, a wręcz się cofa...

Excel VBA – makro kopiujące dane z pliku 1 do arkuszy firm w pliku 2

Tu trzeba już więcej wiedzy z VBA i czasu (którego niestety na chwilą obecną nie mam - gdyż makra znam na poziomie podstawowym i trzeba by było szukać i nagrywać a później wnioskować i wykorzystywać to co potrzebne). Jednak przedstawię pewien tok który może ci pomoże (bo o większość rzeczy już się pytałeś na forum i powinieneś je znać - szczególnie...

Excel VBA - Makro do sprawdzania podzielności przez 59 w komórce A1

No, trochę zakręcone ;) 1. Dla pojedynczej komórki nie stosuj pętli For . Wystarczy Range () 2. Każda pętla (jeśli już) ma swój początek i koniec. Zjadłaś Next 3. Do porównania potrzebny jest wynik działania: If liczba Mod liczba = 0 Then Dlaczego przy Worksheet_Calculate ? Prościej byłoby przy Worksheet_Change gdzie warunkiem będzie Target.Address(0,0)="A1"...

MS Excel - warunkowe pobieranie danych z wielu arkuszy

Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...

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 Excel: Jak wypełnić kolumnę minimalną datą dla każdej paczki?

Jak już wspomniałem pomysł jest kolegi szaleniec . Kluczowa jest zmienna "maxOd", przechowująca Nr pierwszego wiersza paczki. Makro cyt: "Leci" po kolumnie B, aż znajdzie różną wartość. W tym momencie zmienna "i" ma przypisaną wartość ostatniego wiersza paczki no i mamy zakres. W następnej linii wyszukujemy najmniejszej daty w tym zakresie i przypisujemy...

Dodawanie kolumn z datą i numerem podczas scalania arkuszy VBA z unikalnymi nazwami plików

To nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...

Excel 2013 Kombinacje bez powtórzeń

Skoro już rozpisałeś, to użyj jej jako tabelki pomocniczej. Np: wpisz rozpiskę w L1:O15 w H1 wpisz =PRZESUNIĘCIE($A$1;0;L1-1) i skopiuj 4 w prawo i 15 w dół w h16 =PRZESUNIĘCIE($A$2;0;L1-1) i skopiuj 4 w prawo i 15 w dół etc, etc http://obrazki.elektroda.pl/1008993400_1... Ostatecznie możesz sobie napisać proste makro z wykorzystaniem...

Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

A co jest w komórce, na której makro się "wykłada"? I co dokładnie robi AUTOWIERSZ? Nie wiem ale gdzieś musiał się wkraść jakiś chochlik - zrobiłem od nowa i wszystko hula jak powinno. AUTOWIERSZ dodaje nowy wiersz wraz z formułami w poszczególnych komórkach. Dodano po 19 Troszkę muszę znów zmodyfikować początek kodu aby umieścić w innej karcie ( a...

Excel/VBA - Automatyzacja scalania komórek i sortowania danych księgowych

Chyba będzie trzeba podejść do tego trochę niestandardowo. Najpierw posortowałbym dane źródłowe wg. klucza Kol C, D, O, N, M - tu można nagrać makro. Dalej podwójnie, no oko, zagnieżdżona pętla -scalanie w kol.H (wg. partner), a na zewnątrz dopisanie wiersza ze scaleniem F&G i scaleniem w C, D, E (wg. NIP) + przepisywanie danych. Oczywiście najpierw...

Excel/VBA - Makro do wstawiania liczb w co drugim arkuszu nie działa poprawnie

Nie wiem, po co wprowadzałeś dwie zmienne j i k . Problem tkwi właśnie w tych zmiennych. Na początku przypisujesz im 1, potem wchodzisz w pętlę for . Pierwszy obieg pętli - wybrany arkusz, pętla Do While - wszystko OK. Drugi obieg pętli - wybrany kolejny arkusz, zmienna j ma w tym momencie wartość... 11 (pozostałą z poprzedniego wywołania pętli), Do...

Excel 2003: Jak zliczyć wartości w kolumnie na podstawie innej kolumny?

Najprościej napisać makro w VB i skorzystać z pętli

EXCEL VBA - Makro edytujące tabele o tym samym układzie nagłówków

Lub np. takie "sposoby": 1. metoda FillAcrossSheets - najkrótszy kod 2. Pętle For ... Each ... Next i For ... Next - krótki kod 3. Pętle For ... Next i Do ... Loop działająca na wcześniej utworzonym spisie nazw arkuszy - najdłuższy kod Pkt 1 i 2 - wymagają ręcznej roboty z utworzeniem spisu arkuszy, które podlegać będą formatowaniu, dodatkowo pkt 1...

Excel-makro zmieniające dane znaki na polskie litery

A nie dałoby się jeszcze ograniczyć tego zakresu kolumnami? Makro działa tylko w jednej kolumnie, czwartej (While Cells(wrs, 4 )). Doklej tylko te 6 linijek i dopisz warunek pętli 'Do'.

VBA kopiowanie komorek excela do schowka UTKNĄŁEM:/co dalej?

Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...

[Excel] - Czyszczenie zakresu z niepotrzebnych danych

Witam, Napisałem małe makro do czyszczenia błędnych danych z listy. Nie wiem dlaczego ale pętla nie wyłącza się gdy warunek jest spełniony. [syntax=vb]Dim zasieg as long zasieg = cells(5000,1).end(xlup).row For i = 2 to zasieg Step 1 usun = Cells(i,1).value if Is Numeric(usun) = true or usun = " -" or usun = "NONE" Then if(IsNumeric(usun) = false and...

EXCEL - makro - kopiowanie zawartości kom. do innego pliku

Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...

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

Przerobiłem tak aby było jak chcesz. Parametr 30 określa dla ilu produktów ma znajdować dane liczbowe. Parametry do makra nie musisz wpisywać w samym VBA ale te parametry w odpowiednim momencie makro może sobie pobrać z danej komórki w arkuszu. Tak wygodniej. Sub Makro_1() Application.ScreenUpdating = False Workbooks.Open Filename:= _ "plik1.xls"...

[excel] [Excel][VBA] Makro do kopiowania wierszy na podstawie wartości z arkusza 2

Interesują mnie wartości z dwóch wierszy- drugiego i czwartego. (...) Chciałbym użyć makra do wyszukania tych wierszy z pierwszego arkusza, gdzie występują wartości szukane w drugim arkuszu i przekopiowanie wszystkich tych wierszy do np. 3 arkusza. Z tego wynika, że szukasz duplikatów wierszy 1 i 4 z arkusza Nr1 w arkuszu Nr2. Zdaje się, że coś pominąłeś/pomyliłeś,...

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

Nie wiem czy zgodnie ze sztuka pisania makr w wordzie ale to chyba powinno działać jak chcesz. Zaznaczam że przerobiłem makro kolegi NAXIN. Nie jestem biegły w VBA dla worda (próbowałem się trzymać zasad z excela ale nie jest to identyczne). Opisałem jak to rozumiem Np. ItalicRun użyty za pierwszym razem włącza kursywę a za drugim ja wyłącza pomimo...

(Excel) Pętla przydzielania pod względem wymaganej liczby

Witam serdecznie, Potrzebuje pomocy w napisaniu makra, które jak się domyślam powinno bazować na odpowiedni rozpisanej pętli, niestety jeżeli chodzi o ten przypadek przerasta on mój poziom zaawansowania.. Opisze mój problem na podstawie załączonego pliku: - W tabeli "lista wszystkich zawodników" będę wklejał lub wpisywał odpowiednio zawodnika,rodzaj...

excel kopiowanie - kopiowanie automatyczne komórek z wartościami

Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym aby pętla kopiowała mi te wartości określoną ilość...

Excel - Makro do kopiowania z jednego arkusza do kolejnych

Witam, Potrzebuję pomocy osób obeznanych z Excelem. Mam problem: tak jak w załączniku mam plik w którym pierwszy arkusz to lista osobowa z wartościami do niej przypisanymi. Drugi arkusz to zestawienie ogólne (nieistotne dla mojego problemu) a kolejne to arkusze osobowe których nazwy to imiona i nazwiska osób. Wszystkie te arkusze są identyczne tylko...

Makro VBA: Kopiowanie danych z tekstu do nowego arkusza Excel

No nie działa. Czemu? Bo ta pętla robi... no właśnie, trudno się połapać :) Może spróbuj w ten sposób (zakładam, że tekst jest w wierszach w kolumnie A) Edit 20:15 trochę uzupełniłem, żeby wszystko jasne było. Sub Makro1() a = ActiveCell.Row N = InputBox("wiersz koncowy") If N < a Then MsgBox "za mała wartość...":...

Excel VBA Tworzenie wykresu z wypełnionych komórek

Wartość stała jest podana dla przykładu, na szybko napisałem stałą b. Chodzi mi o to żę gdy pętla uzupełni komórki do A10 (bo wpiszemy w inputbox 10) to żeby wykres obejmował do A10. Ale też że gdy wpiszemy w inputbox 3 to żeby wykres czerpał dane do A3 czyli ostatniego wiersza z liczbą. Wprowadzić potrzebną wartość zmienną (a,b lub inną) do zakresu...

VBA/Excel: Makro kopiujące wiersze przy spełnieniu warunku tak

I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...

[VBA] [EXCEL] - Prosta pętla i uzupełnianie wartości w zależności od punktacji

Witam, mam pytanie odnośnie prostego ćwiczenia w VBA które chciałbym trochę udoskonalić. Jest to prosta sprawa więc pewnie nie będziecie mieli z tym problemów. Makro działa ok, ale chciałbym je jakoś poprawić/udoskonalić? Poniżej kod oraz prosty przykład Excel. W pierwszej kolumnie zawsze będzie Imie Nazwiko, w drugiej punktacja w trzeciej ocena która...

VBA/Excel - Makro usuwa wszystkie wiersze zamiast wybranych, jak naprawić?

Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...