excel pętla

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

co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...

[Excel] - Pętla przenosząca dane z kolumny A co C

[syntax=vb] Sub MojeKopie() Dim r&, myCopy As Boolean slowa = Array("Period", "Account", "Terminal") For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row myCopy = True For Each slowo In slowa If Cells(r, "A").Text Like "*" & slowo & "*" Then myCopy = False Exit For End If Next If myCopy Then Cells(r, "A").Copy Cells(r, "C") Next End Sub [/syntax]

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel VBA: Pętla przestaje działać po dodaniu dodatkowego kodu

le bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. Tak jak Maciej wcześniej pisał, bez załącznika ciężko cokolwiek doradzić ale tak bez sprawdzania na szybko zrób tak. Tą linijkę usuń [syntax=vbscript]Set SzukaneNazwiskoRow = tb_GrafikTSW.ListColumns("NAZWISKO_TSW")...

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

Konwersja wielu plików CSV na format Excel (xlsm) - pętla i zachowanie nazw

[syntax=vbscript]Sub Konwersja() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder z plikami CSV" .InitialFileName = Environ("userprofile") & "\Desktop" If .Show = -1 Then f = .SelectedItems(1) End With If f = "" Then Exit Sub x = "\PlikiExcel" If Dir(f & x, vbDirectory) = "" Then MkDir (f & x) csv = f &...

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

zapomniales Dir() przed Loop tj. plik=Dir()

Excel VBA - Pętla For next w połączeniu z Select case - ustawienie parametrów

Na pewno błąd jest w wierszu: [syntax=vbscript]Progresywne = Progres + Progres[/syntax] Nie zachowujesz dotychczas obliczonych składników, tylko ostatni pomnożony przez 2. Powinno być: [syntax=vbscript]Progresywne = Progresywne + Progres[/syntax]Nie wykluczam, że mogą być też inne błędy, ale do dokładnej analizy potrzebny jest załącznik w pliku.

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

VB Excel – Jaka pętla do zapisu studentów w kolejne wiersze i czyszczenia TextBox?

Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu [syntax=vb]a = Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row[/syntax] Później po wpisaniu do arkusza danych z pól tekstowych zostaje Ci jedynie zwiększyć wartość a o 1

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

Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie ;).

Excel - pętla do While a przeglądanie wybranych rekordów

Czy istnieje możliwość definicji zmiennej pętli do while na wybrane przez siebie liczby? Potrafię zdefiniować zmienną w ten sposób, by zwiększała się ona tak jak na przykładzie o wartość dowolnej liczby: wiersz=1 Do While Range("A" & wiersz) <> "" wiersz = wiersz + 1 Loop Chciałbym zamiast przeglądania każdego rekordu z przedziału ("wiersz+1",...

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

Ponawiam temat. Czy jest ktoś w stanie mi pomóc?

MS EXCEL - Excel - pętla do obliczania amortyzacji.

Może najpierw wypróbuj wbudowane narzędzia Excela, a VBA w ostateczności? Mam na myśli: Dane>Analiza symulacji>szukaj wyniku oraz menedżera scenariuszy.

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/VBA pętla na wykresy

Temat rozwiązany na innej grupie - do zamknięcia

VBA w Excel: Pętla do kopiowania numerów rejestracyjnych w kolumnie WYNIK

kolumna "POCZĄTEK" ma byc lub zamiast niej WYNIK? Dodano po 3 Na zdjęcie moglo byc nazwy kolumn(A, B, etc.) i początkowy wiersz. Dla VBA to jest wazne

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

zamykam

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

A jaki jest algorytm liczenia tych biorytmów? Po mojemu masz zły wzór, skąd go brałeś?. Wartości się zmieniają, tylko są to tak małe zmiany (na 11 pozycji po przecinku), że w komórce tego nie widać. Dodatkowo, jeżeli - jak przypuszczam - chcesz policzyć ilość dni życia i podzielić je przez coś, to w tej części wzoru: kolejność działań - i najpierw podzieli...

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

U mnie drukuje poprawnie. Jaki masz komunikat błędu?

Excel- skrypt, pętla która by drukowała dokument po zmianie

Nie wiem dokładnie co masz na myśli, pisząc: po zmianie numeru komórki A1 do określonego zakresu niemniej wydaje się, że powinieneś do tego zadania wykorzystać zdarzenie arkusza "Change". Przykładowo, w module VBA arkusza, który drukujesz , możesz umieścić kod: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target,...

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

Dzień dobry! Potrzebuje kod w makrze Założenia: Będzie powtarzał daną wartość np. 3000 lub tekst w danej kolumnie w askusz1 oraz powtarzał daną wartość np.0000 lub tekst 2 w arkuszu 2

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

google -> VBA pętla for Linków tam od groma :)

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

[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 - Modyfikacja pętli for - wpisywanie liczby porządkowej zamiast numeru wiersza

No to tak: [syntax=vbscript]Sub petla() Dim k&, i& For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(k, 2).Value Like "Symb." Then i = i + 1 Cells(k, 2).Offset(0, -1).Value = i End If Next k 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 vba makro petla kopiowa - problem, excel, vba, makro, pętla kopiowanie

Heja yyyyy przyznam że tak to opisałeś że... ciężko to dobrze zrozumieć :P Ale ok na początek napiszmy programik który: 1. "przeleci" przez wszystkie pliki z katalogu (do którego ścieżkę musisz wpisać w kodzie) 2. weźmie nazwę pierwszego z tych plików 3. otworzy go (np 1.xlsx) 4. z otwartego pliku skopiuje zakres 5. wklei ten skopiowany zakres do naszego...

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

Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...

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

Wrzuć spakowany, nie wszyscy ufają takim "przechowalniom". Albo wklej samą pętlę. W skrócie: Jeśli For-Next to nie ma problemu. Jeśli 'Do', to wstaw licznik. W obu przypadkach, gdy licznik osiągnie zadaną wartość =Range(tu adres komórki), wtedy Exit Sub.

Excel VBA: Rozbudowa kodu dla przycisków ActiveX i ukrywania kolumn

Zdaje się, że kolega Aldrin wskazuje dobry kierunek. Zginiesz z tymi checkboxami :) Proponuję pętlę sprawdzającą stan ukrycia kolumn, przypisanie argumentów w bloku Select Case i właściwa pętla działająca na kolumnach. Przykład w załączniku.

excel [VBA] zmiana właściwości ScrollBar w arkuszu za pomocą makra

Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?

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

Witam, Mam problem z przerwaniem pętli oczekującej na dane z portu COM. Makro które napisałem ma za zadanie odczytać wartość z urządzenia zewnętrznego, ale dopiero jak na urządzeniu zostanie naciśnięty odpowiedni przycisk. Chciałbym aby działanie makra wyglądało w ten sposób, że użytkownik klika na dowolną komórkę, w której chce wprowadzić dane, wysyła...

Jak w VBA Excel 2007 wstawić tekst z InputBox do kolejnej wolnej komórki?

zwykła pętla "while" załatwi sprawę :) http://dzono4.w.interia.pl/kurs/doloop.h...

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

[VBA] [EXCEL] - kopiowanie w pętli wybranych komórek z tabel arkusza

A mi się otwierają w 2016. Może masz coś nie tak z office2016? edit ------------------------------------ Na Twój problem: [syntax=vbnet]Sub Przenies() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("Arkusz1").Cells(Sheets("Arkusz1"... 1).End(xlUp).Row For x = 1 To ostatni_wiersz Sheets("Arkusz2").Cells(3 + x * 12 - 12, 2)...

[exel] VBA Excel: Błąd w porównywaniu pustych komórek w pętli Do Until

To cała pętla? Brakuje Loop a instrukcja Exit Do powoduje opuszczenie pętli już w pierwszym przebiegu... Przy takim zapisie a = a + 2 porównujesz co drugą parę. Chyba, że tak właśnie ma być...

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 2010 VBA - Jak zliczyć komórki według koloru czcionki?

Ta funkcja (choć właściwie powinna to być makroinstrukcja typu Sub, ale Excelowi to nie robi różnicy) liczy poprawnie, tylko prawdopodobnie nie o taki wynik chodziło. Ona sprawdza każdą kombinację danych z każdego wiersza, więc ponieważ są 4 jedynki, 2 cyfry kolorowe i 4 litery A, więc zwraca wynik: 4*2*4 = 32. A jaki jest wynik oczekiwany? Czy chodzi...

[VBA Excel] Jak wyszukać wiersz z kierowca i NIE w dwóch kolumnach?

Nie mogę dopasować tamtych wcześniejszych rozwiązań Bo trzeba to robić w pętli, gdyż 'Find' zatrzymuje sie na pierwszym znalezionym. pętla ... Dlatego najprościej O właśnie ... I drugi wariant: 902630

EXCEL - 'wygladzanie' odchylenia standardowego ze zbioru liczb.

Cóż... Różnice w najwczesniejszym załadunku a najpozniejszym były raczej losowe. Myślałem wczoraj np żeby uprościć cały proces do wprowadzenia formuły licz.jezeli z kryterium że jeżeli w kolumnie dana godzina występuje więcej niż 5 razy. To ma przesunąć godzinę o 15 minut w tył. Tylko Excel wywala mi błąd nawet nie mogę oszacować formuły. Podejrzewam...

VBA: Tabelka Excel jako treść maila, pętle, adresaci, utrzymanie stopki

Tabelka w mailu nie będzie Excelem, to raczej Word. Jeżeli wyślesz załącznik to będzie prawdziwy Excel. Zależy co jest dla Ciebie ważne. A czy potrafisz tę tabelkę z pola w kolumnie F zapisać gdzieś w Excelu jako tabelkę? To wtedy możesz zamienić to na HTML i wkleić do maila - są na to gotowce, też takiego używam. Tylko uwaga: HTML sklejony z innym...

VBA Excel - Wpisywanie nazwy aż do ostatniego wypełnionego wiersza

Ale dlaczego pętla for? Bardziej naturalna to będzie np. taka pętla: [syntax=vbnet] Dim Y As Long Y = 1 Do While Cells(Y, 1) <> "" If Cells(Y, "B") = "" Then Cells(Y, "B") = "XXX" Y = Y + 1 Loop [/syntax]

VBA Excel - Jak poprawnie zagnieździć pętle do kopiowania zakresów?

Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...

[Excel VBA] Jak automatycznie wstawić numer arkusza do komórki A5 w 200 arkuszach?

a jak na sztywno wstawić do np komórki "A5" cyfry zakresu od 1 do 50 w odpowiednim zakresie arkuszy np od 100 do 150 taka (pętla iteracyjna)?

c++ - Błędy w programie: pętla while i formatowanie wyjścia

1. ^ to operator logiczny alternatywy rozłącznej. Co on tu robi? Raczej chodziło Ci o potęgowanie. Nie ma operatora potęgowania - trzeba użyć funkcji. Operator potęgowania w postaci ^ to, jeśli dobrze pamiętam, tylko Basic wykorzystywał (i Excel ;) ) 2. Rozmiar tablic dynamicznych podaje się w nawiasach kwadratowych. Nie wiem, co oznacza zapis stworzony...

Excel - Jak wypisać wspólne liczby z wierszy w oddzielnych komórkach?

Coś więcej o tych liczbach? Czy się powtarzają w obrębie wiersza? Czy liczbę z kolumny A chcesz porównywać tylko z innymi w kolumnie A? Czy są uporządkowane rosnąco w wierszu? W każdym razie - w załączniku przykład takiej metody "brute-force" z zagnieżdżonymi pętlami.

[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 VBA - Błędy w działaniu kodu: niepoprawne wczytywanie danych, błędne porównanie kolumn

Tak się domyślałem. Po co w takim razie pętla czytająca pliki ?

VBA Excel: Błąd w pętli przy zmianie koloru wiersza na podstawie wartości w kolumnie 15

Kod który Ci podawałem ostatnio działa tylko dla jednej kolumny, takiej samej jak Target.Column. U Ciebie nie działa bo funkcja Intersect() [zwracająca wspólną część dwóch zakresów] poza 15-tą kolumną jest teraz wywoływane na nie takich zakresach jak trzeba. Zmień początek tego makra na taki: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range)...

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

Przypisanie wartości wypełnieniu pola komórki Excel 2007

Zasugerowałem się przyciskiem "kolor wypełnienia" w Excel2003. Jest tam tylko 40 kolorów. Sądziłem że sa po kolei ale jak przed chwila sprawdziłem - myliłem się. W zestawie 40 nie ma np ciemnego żółtego co będzie wpływać na ewentualne obliczenia. Więc we wszystkich makrach powyżej należy poprawić 40 na 56. (W przypadku pierwszego makra wydłuży to jeszcze...

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

Alan 48 Excel - Ciągły szum, brak odbioru i nadawania po latach nieużywania

r"]VCO to generator impulsów ? To serce odbiornika superheterodynowego. Od niego zależy częstotliwość pracy odbiornika jak i nadajnika. Jeśli nie będzie generować odpowiednich częstotliwości dla danego kanału lub w ogóle nie będzie pracować to będzie tylko szum, a odbiornik będzie martwy. Dodam że do stabilizacji częstotliwości VCO służy pętla fazowa...

Pętla nie zatrzymuje się przy użyciu InputBox zamiast zakresu w Excel VBA

Witam To fragment kodu z ktróym mam problem i szukam pomocy Do taj pory kod sprawdzał czy w komórce jest wartość i petla działała tak długo jak zakres. Jednak w wypadku kiedy zamiast zakresu dam InputBox czyli "y" petla wstawia w okno przegladarki tekst który jest cały czas wpisany w okno i nie przerywa petli mimo ze w kolumnie B nie ma wiecej wartości....

Excel VBA - Eksport wierszy z warunkami do pliku zewnętrznego

Załącz plik będzie prościej. Przeskakuje, bo skąd program ma wiedzieć co to jest "kol4" i "kol5"? Nie zdefiniowałeś do czego ma się ta zmienna odnosić. W tym przypadku stwierdza, że kol4 = "" i dlatego kończy pętle.

[EXCEL, VBA] - Usuwanie odpowiedniej ilości wierszy

Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...

Jak filtrować pozycje? Arkusz Excel, useform i listbox.

Lecz pomimo jej przefitrowania w listboksie widzę wszystkie pozycje. Jak zrobić bym widział tylko te po filtracji? Najszybciej przez 'additem' (czyli pętla po widocznych komórkach i ładowanie do listboksa)

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.

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.

Excel - sumowanie wartości w nowo tworzonych arkuszach

Najprościej nazwać arkusze i odpowiednio ustawić je na pasku zakładek. Ten z sumą nazwij "Suma" i ustaw go jako pierwszy z lewej. Pierwszy ze składnikiem/składnikami nazwij "Pierwszy", ostatni "Ostatni" Jeśli nowe arkusze będą wstawiane pomiędzy "Pierwszy" i "Ostatni", wystarczy Np taka formuła Dodano po 13 :arrow: markoz7874 A jeśli zakres będzie wielokomórkowy?...

EXCEL VBA - Jak kopiować wszystkie wiersze w pętli?

A jeśli bym chciał na odwrót?? żeby to z kolumny C przekopiowało się do kolumny A, z której wyszukuje tekst "aa" i zastąpiło ten tekst czymkolwiek co jest w kolumnie C, a C kolumnę pozostawiło pustą??? [syntax=vb]Sub Makro1() With Sheets("Arkusz1") For Each c In .Range("A1:A5") if c.Value = "aa" Then c.Value = .Range("C" & c.Row) .Range("C" & c.Row)...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

Aaa, to spróbuj Private Sub TextBox1_Change() Dim tekst As String, wynik As String tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption = wynik...

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 Excel - Jak odkryć pojedynczy ukryty wiersz po kliknięciu przycisku?

Sposobów pewnie jest kilka. Np taka pętla: [syntax=vb]Dim kom As Range For Each kom In Range("A10:A90") If Rows(kom.Row).Hidden = True Then Rows(kom.Row).Hidden = False Exit Sub End If Next[/syntax]

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

Excel VBA: Jak archiwizować umowy w nowym wierszu arkusza?

Tablica, pętla i jazda. Podepnij pod przycisk taki [syntax=vb]Sub rejestracja1() Dim zakres As Variant, i As Integer, ostW As Long zakres = Array("D2", "C4", "C13", "A21", "D48") With Sheets("Spis umów") ostW = .Range("A65536").End(xlUp).Row + 1 For i = 0 To 4 .Cells(ostW, i + 1) = Range(zakres(i)) Next End With End Sub[/syntax]

[VBA, Excel] Jak dynamicznie odczytać wartości Checkbox'ów w VBA Excel?

Co do pierwszego spróbuj tak TablicaCenniki(1) = "ABA" TablicaCenniki(2) = "..." .... nazwy_zmiennych = TablicaCenniki(1) 'tu będzie pętla temp = Form_AktCen.Controls(nazwy_zmiennych... W "dalszych konstrukcjach" jezeli już to tak bym uprościł: Chcesz kasować cały arkusz ? Jeżeli tak wystarczy:...

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

Dlaczego, dlaczego... Taka jest składnia tego polecenia i już. Masz tu przykład połączenia kilku poleceń w jednej linijce - dodajesz nowy worksheet, w parametrze after:= podajesz po którym arkuszu ma go wstawić, a na końcu zmieniasz jego nazwę .Name na własną... Wpisz na google VBA worksheet add i otwórz tzn jak mozna to sprawdzic? Jak wyżej. Google:...

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 - 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 Excel: Jak zastosować pętle dla comboboxów z tym samym RowSource?

Cześć, mam problem, chciałbym zastosować pętle dla kilkunastu comboboxów,których kolejne nazwy są zdefiniowane jako DEF. każdy combobox ma to samo źródło (rowsource). z tym że męczące jest klepanie tego samego 50razy.. [syntax=vbscript]If Left(DEF1.Value, 2) = "LK" Then Me.DEF1.RowSource = "DEF_LIST!A2:A300" End If If Left(DEF1.Value, 2) = "MN" Then...

Excel VBA - kod w którym liczba pętli zależy od podanej przez użytkownika liczby

Aaa. Tak to mniej więcej (po mojemu) powinno wyglądać. Z uwagi na późną porę nie testowałem. Sprawdź, dopracuj... [syntax=vb]Sub Makro1() m = 1 ile = Int(InputBox("podaj liczbę", "Liczba od 1 do 3", 3)) For i = 0 To IIf(ile >= 1, 1, -1) Step 0.1 For j = 0 To IIf(ile >= 2, 1, -1) Step 0.1 For k = 0 To IIf(ile >= 3, 1, -1) Step 0.1 If i + j + k = 1 Then...

Excel / VBA - Generowanie tabeli C na podstawie danych z A i B

Przesiedziałam już mnóstwo godzin, przejrzałam kilka tutoriali, ale dalej jest to dla mnie czarna magia... Czy ktoś mógłby mi pomóc? Ok. przedstawiłeś logicznie jak ma to wyglądać. Ale w czym ci pomóc? Przecież to proste więc nie wiem gdzie szukałeś. Dwie pętle "for". Najpierw dla tabeli A z warunkowym "if" jak w G jest X i zapis do tabeli C. Potem...

[Inne] VBA Excel Wstawianie zdjęć w shape, różne ścieżki

Witam Nie wiem po co ci ta pętla od 1 do 5? Ustaw zdj jako zmienna globalna i pobierzesz od razu scieżkę

Excel, VBA - Dwie pętle - wyszukiwanie z dwóch list

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

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

Formuły Excel - Automatyczne zwracanie wartości w sektorach A1, A2, A3

Pozostało mi jeszcze zrozumienie tego kodu może komentarze będą pomocne :) [syntax=vbscript] Sub Zakresy() Dim ark As Worksheet Dim i&, j&, w& ' deklaracje zmiennych Set ark = ThisWorkbook.ActiveSheet ' utworzenie zmiennej obiektowej w = ark.UsedRange.Rows.Count + 1 ' określenie ostatniego wiersza powiązanego z ilością iteracji pętli i...

EXCEL VBA: Tworzenie arkusza, nadawanie nazwy, wpisywanie danych w kolejnych wierszach

Zamiast: Range().Select ActiveCell.FormulaR1C1 = możesz także skorzystać z Cells(i, j).Value = wartość, gdzie i - wiersz, j - kolumna. Tu możesz się łatwo odwołać do współrzędnych, jeżeli tak byłoby Ci wygodniej. Potem pętla po i. Będzie łatwiej, jak podrzucisz przykładowy plik, bo nie jest dla mnie jasne poniższe: i jeszcze jak zrobić żeby wpisywał...

VBA excel, aktywowanie formuł przechowywanych jako tekst

Dokładnie o to mi chodzi, tylko żeby zrobić to nie w pętli, tylko dla całego zakresu od razu. Przy 100k+ wierszy powiesił mi się excel niestety. Jeśli robię to poprzez Text to column albo Zamień "=" na "=" takiego problemu nie ma. Taka pętla niestety jest zbyt wolna. EDIT: Ok, zadziałało w połączeniu z Selection , ale dla formuł które mają więcej niż...

Jak automatycznie eksportować dane z Excel 2013 do XML za pomocą VBA?

poniżej plik prawie gotowy tylko hmm nie wie jak sie zabrać za petle Zanim pętla, małe porządki: 1. W tym układzie arkusza ' max_row ' zawsze będzie ' 9 ', a nigdy ' 1 ', gdyż ' Row ' (nr wiersza) zawsze poda, że ' L.p. ' leży w 9-tym wierszu 2. Zanim zastosuje się ' MkDir sciezka ', trzeba wpierw sprawdzić, czy katalog określony przez ' sciezka '...

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 odjąć czas w pętli i wyświetlić w formacie hh:mm:ss?

3. poco napisałem na tym forum??? Rozczuliłeś mnie i wprowadziłeś w zakłopotanie :oops: do tego stopnia, że napisałem Ci nie tylko 3, ale całe 4 linijki: [syntax=vb] Sub timeSubtract() Const TIME_FORMAT = "hh:mm:ss" Range("E1") = Format(TimeValue(Range("C1").Text) - TimeValue(Range("B1").Text), TIME_FORMAT) End Sub [/syntax]Masz odejmowanie czasu za...

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 - 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 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 - przenoszenie i łączenie kolumn w nowych skoroszytach według filtru

Ja już kończę pracę. Jak Marek coś wyklika, to będzie, a jak nie, to obiecuję, że o 3ciej rano siądę do tego. Nigdy nie wdawałem się w takie tasiemce. Jedna pętla i się zrobiło już dwie strony na Elektrodzie. 80% za dużo.

[excel][vba] Stop pętli na komórce o określonym adresie

Adres musi być w cudzysłowie. Lepiej zrobić to tak: 'przeszukiwanie zakresu A1:A1000 For Each c in Range("A1:A1000") if c = "szukana_wartosc" then MsgBox "Znaleziono wartość w wierszu " & c.Row Exit For end if Next c A już najszybciej zrobić to z użyciem funkcji Range("A1:A1000").Find(....), ale przykładu...

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.

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 - Jak sumować wartości z tej samej komórki do innej?

Tu nie ma pętli...

Excel VBA - kopiowanie do innego arkusza z odpowiednim argumentem

:) Antoni nie denerwuj się tylko popatrz na własny przykłąd. W której kolumnie arkusza "Roczny" umieścił byś dane wg twojego opisu? Gdyby nie było takiego przypadku można by było uprościć kod a tak trzeba sprawdzić czy się nie mylisz bo będzie wywalać błąd. [syntax=vb]Sub Przenies() Dim x As Integer, nrKol As Integer 'Sprawdzenie za pomocą licz.jeżeli()...

[VBA] Jak zatrzymać wykonanie kodu VBA po naciśnięciu Cancel w MessageBox?

Pętla sprawdzająca nazwy arkusza w kolekcji: [syntax=vb]For Each ws In Worksheets If ws.Name = "Arkusz2" Then MsgBox "Arkusz istnieje" Exit For End If Next ws[/syntax] Jeżeli tworzysz arkusze programowo, to całość powinieneś albo ująć w blok obsługi błędów (On Error GoTo myError) i/lub sprawdzać, czy nazwa jest prawidłowa (Excel ma ograniczenia co do...

VBA excel. Wklejenie danych z excela do zewnętrznego okna dialogowego

Witam. Mój problem wygląda następująco: Posiadam zewnętrzny program w którym pojawia się okno zapisu. Chciałbym aby excel wklejał ze swojej kolumny wartość jednej komórki do okna zapisu i klikał ok aby zapisać plik następnie, kopiować kolejną komórkę i czekać aż otworzy się kolejne okno zapisu aby wkleić wartość (pętla) W tym zewnętrznym oknie mam największy...

Excel - jak ustawić jednolity format daty (dd-mm-rrrr) w wyszukiwarce?

Lub po pętli: Wks1.Cells(b + 2, 9).NumberFormat = Format(Date) Next i Wks1.Cells(b + 2, 3).NumberFormat = "dd-mm-yyyy" Na marginesie: Jeżeli "pętla i" (a tak wynika z szybkiej analizy) dotyczy tylko wpisywania danych w kolejne komórki jednego wiersza to to fragment kodu Wks1.Activate With Wks1.Range(Cells(b + 2, 1), Cells(b + 2, 10)).Borders...

Excel - VBA - Porównywanie kolumn i przypisywanie punktów w pętli if

[syntax=vbscript] wi = wi + 10 And wj = wj + 10[/syntax] - naprawdę nie wiesz co czynisz. na samym początku dodaj: [syntax=vbscript] addi = Array(10, -20, 25, 0) addj = Array(10, 25, -20, 0)[/syntax] zaś wewnątrz pętli: [syntax=vbscript]vv=2*(Cells(k, i).Value="K")+(Cells(k, i).Value="K") wi=wi+addi[vv]; wi=wj+addj[vv];[/syntax] to wszystko zasapi twój...

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

VBA Excel: Jak sprawdzić, czy zmienna jest liczbą w pętli Do While?

Najprościej jak tylko możliwe Dim p As Variant p = "a" Do While IsNumeric(p) = False p = InputBox("Podaj kapitał początkowy:") If p = "" Then Exit Sub If IsNumeric(p) = True Then Exit Do MsgBox "Zle dane" Loop

VBA Excel - Jak usunąć wiersz na podstawie wartości w kolumnie B?

Co tu tłumaczyć wrs = Columns(2).Find(what:=Ra... lookat:=xlWhole).Row Rows(wrs).Delete 'Rows(wrs).ClearContents 'w zależności od sensu słowa "wykasować" i wszystko jasne... Gdyby nie znalazł, warto ten fakt zakomunikować. Np On Error Resume Next wrs = Columns(2).Find(what:=Ra...

VBA Excel - kopiowanie danych z Arkusz2 do Arkusz1 w pętli

mnożenie :D To zwykła matematyka. Zasadniczo przetłumacz na polski i wszystko stanie się jasne :D