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.
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...
dzięki wielkie ! fajny kod, będę więc go też stosował.. ja przynajmniej moglem sie troche nauczyc przy pisaniu tego swojego prostego makra
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...
Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.
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....
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...
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]
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...
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,...
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...
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.
Włącz rejestrowanie makra i wykonaj z ręki wykresy. Zatrzymaj makro i przeedytuj jego kod usuwając zbędne elementy.
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...
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.
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
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...
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...
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...
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
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.
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.
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...
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...
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]
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...
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...
#N/D! w Twoim arkuszu prawdopodobnie nie jest stałą tekstową, lecz wynikiem formuły. Metoda Replace, którą chciałeś zastosować odnosi się do stałych i do fragmentów formuł (ale tak jak zostały zapisane w komórce, a nie do ich wyników). W tym przypadku sugerowałbym użycie np. kodu: [syntax=vbscript]Dim r As Range For Each r In Range("G2:G10") If IsError(r)...
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...
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...
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...
... 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ą...
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ś...
: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...
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:...
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ę.
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.
Jaka pętla, takie wyniki. Sprawdź... http://obrazki.elektroda.pl/2640890200_1...
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...
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 :!:
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ć"...
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...
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 :)
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...
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...
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...
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...
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.
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
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...
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...
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.
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...
... 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...
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...
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.
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.
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łą.
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_...
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
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...
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]...
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...
Jak byś wytłumaczył wszystko spokojnie na początku to by teraz nie było tej dyskusji. Po prostu co chwila zmieniasz założenia. Albo my nie nadążamy za twoją myślą. Kolega adamas wskazał ci błąd z "search" Owszem nazwałeś zmienne search i search2 ale nigdzie nie wykorzystujesz search2 a zmienna search jest zaraz po określeniu jej w pierwszym okienku...
Ź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
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...
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...
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...
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...
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...
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 <>...
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...
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...
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ę...
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...
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...
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...
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"...
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 -...
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,...
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.
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...
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...
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...
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...
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...
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Najprościej napisać makro w VB i skorzystać z pętli
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...
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'.
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...
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ę...
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"...
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?
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ś,...
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...
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...
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ść...
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...
excel makro pętla makro pętla excel pętla
nissan qashqai obroty silnika termostat danfoss parametry podłączyć silnik trójfazowy
internet mobilny internet mobilny
Jak odblokować interfejs ADAKO? Porady i kroki Samsung HT-DB120: Jaki laser do odtwarzacza DVD?