Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik...
witam ponownie mowile ze sie nie obejdzie bez Ciebie :) potrzebuje pomocy w zakresie: chce aby makro pilnowalo szegolowego wypelniania i nie pozwolilo na to aby ominac wypelnienia czy tez zaznaczenia CheckBox'ow ktore jak wczesniej wspomnialem sa umiszczone w roznych Frame niechcialbym sie...
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").Acti... IsEmpty(ActiveCell)...
Witam! Męczę się z tym od kilku dni potrzebuje pomocy przy stworzeniu pętli. potrzebuje aby program robił coś takiego [syntax=vb] Range("A16:V29").Select Selection.Copy Range("A30").Select ActiveSheet.Paste Range("A44").Select ActiveSheet.Paste Range("A58").Select ...
Witam, Dużo pracuję z danymi, które najczęściej ściągam z jednej bazy Eurostat. Dane zawsze mają taki sam układ (plik w załączeniu). Bardzo ułatwiłoby mi pracę uniwersalne makro, które dane dla jednego kraju skopiowałoby do nowego arkusza (przykład ręcznie przeniesionych danych w załączeniu). Rozumiem,...
Witam Mam macro do kopiowania danych z jednego arkusza do drugiego i kopiuje dane ale tylko 3 razy. Przy kolejnym zatrzymuje się na poziomie (pogrubiona linia): Sub DoBazy() For i = 1 To 200 If Worksheets("Baza").Cells(1, i) = Cells(2, 3) Then kol = i Exit For End If Next i For...
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...
Witam, Mam problem z makrem, które loguje się na stronkę "x", i za pomocą pętli wprowadza potrzebne dane z excela. W skrócie wygląda to tak: 1. wciśnij przycisk "Add" (przenosi do strony z formularzem), 2. wypełnij formularz danymi z excela 3. wciśnij przycisk "Submit" (przenosi spowrotem do...
Witam, plik w którym używam makro składa się z wierszy, w których znajdują się kolejno (data, imię i nazwisko, temperatura, ciśnienie, wartość pomiaru). Napisałem makro, które działa w następujący sposób: - w komórce A1 wpisuję interesującą mnie datę, - następuje wyszukiwanie podanej daty w...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach...
Witam serdecznie. Potrzebuje przerobić pewne makro, z dużą częścią przeróbek już sobie poradziłem i wszystko działa tak jak potrzeba jednak potrzebuję zwiększyć funkcjonalność tego makra. Mianowicie makro wczytuje dane z plików tekstowych za pomocą kreatora importu tekstu ;( chciał bym zrobić tak aby...
Witam Mam bazę danych w Accessie, z której zaciągam dane do exela następującym makrem: [syntax=vb]Sub Zaciagnij() Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String Dim i As Long, n As Long, lFieldCount As Long Dim rng As Range Dim wartosc1 As String Dim adoRecSet...
W pętli, Panie, w pętli ;) A poważnie - Wrzuć przykładowy plik (z tym działającym makrem). Bo piszesz o Word'zie, a makro jakby excelowskie... Jest jakaś lista tych plików do wydrukowania, wydzielony folder, lub tp? Jaka kolejność: alfabetycznie, data modyfikacji, inne (niepotrzebne skreślić)?
Dziekuję bardzo za odpowiedź! Podobnie jak moje, Pana makro u mnie też nie zadziałało. ale wiem już dlaczego.. Moje i Pana makro zakłada, że podczas działania pętli i sprawdzania wartości w kolumnie H poprzedniego wiersza zostaje ona zapamiętana. Jednak tak to nie działa, gdyż pętla zakłada sprawdzanie...
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)...
Witam Część mojego makra w pętli otwiera pliki, kopiuje z nich kolumny, wkleja i wkleja do arkuszy w pliku z makrem [syntax=vbscript] For i = 1 To .SelectedItems.Count Set wkb2 = Workbooks.Open(.SelectedItems(i)) 'TU wytępuje ostatni raz With wkb1.Sheets(tblArkusze(i - 1)) .Visible = True End With With...
Jeżeli kilku pracowników wykonuje taki sam przedmiot to ilość przeniesiona z zamówienia będzie nieadekwatna do stanu rzeczywistego (trzeba sumować ich produkcję). Proponuję działanie w druga stronę. W pliku z zamówieniami dodać kolumny z pracownikami i tam przenieść ilości przez nich wyprodukowane....
Jeśli Mamy raporty dzienne z każdego miesiąca zapisane w ten sposó; 5.MAJ-2011/R.D 5-1 do 5-31 i tak w każdym misiącu w folderze "5.MAJ-2011" są tylko pliki raportów, to bez wnikania w nazwy pobieramy kwoty z kolumny "C" (lub tych kolejnych) na podstawie tekstu z kolumny "A" z wszystkich znajdujących...
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"...
od razu mowie ze kompletnie nie znam sie na Makro To może trochę teorii na początek? Np Sub przyklad() sciezka = Application.DefaultFilePath & "/" plik = Dir(sciezka & "*.xls") Do While plik <> "" MsgBox plik plik = Dir Loop End...
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ę...
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ć...
Cześć, mam problem z poprawnym umiejscowieniem pętli w kodzie. Moje makro ma za zadanie umieścić w osobnym arkuszu każdy zakres ograniczony z góry i z dołu wierszem z ciągiem gwiazdek o długości 92 znaków z pierwszego arkusza. [syntax=vb] Sub Dostawy() Dim OstWiersz As Long Dim j, l As Integer ...
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....
pozostałe które byłe wprowadzone wcześniej pozostaną na swoim miejscu w "przyrządach pomiarowych" I tak będzie dopóki nie zmienisz czegoś w zakresie "C5:I5" w arkuszu "Rejestracja przyrządów" tzn przypisywana (kopiowana) jest wartość, której nie zmieniłeś. Jeśli jednak komórki te chcesz zostawić puste...
Makro jest proste i nie wymaga wiele pracy. W pierwszej kolejności sprawdzasz długość tabeli. Następnie w pętli powtarzanej tyle razy ile wynosi długość z pierwszej komórki pobierasz do zmiennej wartość do wyszukania w drugiej tabeli i kopiujesz resztę potrzebnych danych. Przechodzisz do tabeli z wynikiem,...
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane")...
poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End...
Cześć, Jestem początkującą osobą w kwestii VBA, więc mam nadzieję, że dobrze trafiłem i mogę liczyć na waszą pomoc, ponieważ chciałbym rozwinąć swoje umiejętności w manualnym tworzeniu makr niż nagrywaniu. Sytuacja jest następująca: Mam dwa arkusze, z czego do jednego codziennie przeklejam...
Hmm, u mnie zamiera na AutoFill... Nie mam cierpliwości, żeby doczekać do końca. Na próbce 1000 wierszy trwa to ~7min Pytanie zasadnicze: czy w kolumnach "M, N" muszą być formuły? Coś się będzie zmieniać w arkuszu po wykonaniu makra (wyniki formuł)? Bo niżej jest pętla, którą śmiało można wykorzystać...
Witam Chcę makrem przeszukiwać komórki w bieżącej kolumnie idąc w górę arkusza. Makro zatrzyma się jeśli znajdzie określoną wartość. Jednak jest problem jeśli nie znajdzie tej wartości. Przesuwam się po komórkach poleceniem: ActiveCell.Offset(-1, 0).Range("A1").Sel...
Witam w poniższym pliku mam utworzone makro, które ma za zadanie sprawdzać pewne założenia a wyniki analizy kopiować do arkusza "4". Pętla w nim umieszczona powinna wykonywać określoną procedurę, aż nie zostaną poddane analizie wszystkie wiersze w arkuszu "2" (w tym wypadku 15 razy). Makro wykonuje jednak...
Witam, staram się napisać mój pierwszy program w VBA. Ma on za zadanie automatyzację ewidencji sprawozdań. Jedną z cech tego programu, musi być zdolność do kopiowania zawartości określonych komórek z każdego arkusza dokumentu i wklejanie ich kolejno do oddzielnego pliku. Żeby nauczyć się samej pętli...
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...
Trzeba użyć instrukcji pętli. Jakiej to zależy od tego czy zakres przeszukiwania jest ściśle określony czy nie. Jeżeli wiemy że mamy sprawdzać np. od G6 do G45, to pętla "for”. Jeżeli zakres nie jest znany, to pętle do lub while w zależności od sytuacji. Osobiście nie korzystałbym z range()...
Cześć, chciałabym stworzyć makro, które będzie kopiowało dane z określonego zakresu, dodając jednocześnie określone dane do kolumny. Np. Zakres danych: A2:E5, zakres jest kopiowany, a do kolumny F (F6:F10), dodawana określona wartość. I tak z dwadzieścia razy. Range("A2:E6").Cop...
Moja nieudolna próba podejścia do takiego zadania w załączniku (będzie to Makro1 w module2). Regulując parametr DOKL regulujemy precyzję. W makrze tym brakuje jakiejkolwiek inteligencji, więc działa bardzo wolno. Sprawdza wszystkie wartości od 0 do 180 podstawiając je do O/P i w konsekwencji po 180*180...
Witam. Mam pytanie odnośnie makra. Chciałbym zrobić makro które działa w nastepujący sposób: Mam 1000 kodów produtrów do kazdego z nich jest przyporządkowana nazwa produktu np. pomidor21, ogórek 25 ogórek30. Chce aby makro tak działało że w komórce np C2 wpisuje unikalny kod np O25 i po wciśnięciu...
Pytanie o sens całkowicie zasadne ;) Nie rozumiem... Uruchamiasz powyższe makro skąd? W tym makro wywołujesz w pętli makro z jeszcze innego pliku (personal). Wcześniej odniosłem wrażenie, że w tych otwieranych plikach są makra o tej samej nazwie, wykonujące różne działania i je własnie chcesz uruchamiać....
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam...
Skoro 'jesteś słaby', to zapodam Ci trochę siły.;) 1. Włącz rejestrację makra, zaznacz tabelkę i skopiuj. 2. Ustaw kursor na komórce, gdzie ta tabelka ma być wklejona i wklej. Następnie zmodyfikuj to makro o pętlę. Jak zarejestrujesz makro i poczytasz o pętli 'For" w VBA, to na pewno sobie...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then ...
Wydaje się, że makro jest dosyć proste ale samo się nie napisze. ... żeby makro zliczało wszystkie powtarzające się wartości ... Do tego wystarczy licz.jeżeli() ... ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik... Tu też można "obejść" dodając...
myslalem ze jak "klikne" marka, pokaz makra to tam to makro tez bedzie, ale nie ma, Tam są makra nagrane przez Excela, pisane własnoręcznie są widoczne np. po kliknięciu przycisku VisualBasic i otwarciu odpowiedniego pliku. jesli chodzi o kod to jest dla mnie srednio zrozumialy... Coś konkretnego...
Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik...
Po mojemu nie zadziała, bo vb "zajęte" jest wykonywaniem pętli. Spróbuj z wywołaniem co sekundę makra "kontrolnego" i zmienną "decyzyjną". Makro 'kasowanie', to w tym przypadku po prostu skok na skróty . [syntax=vbscript]Private o As Integer Sub czekaj() o = 0 UpdateClock End Sub Sub kasowanie() o...
Witam. Prosiłbym o pomoc, ponieważ chcę wyjaśnić z ojcem jedną sprawę. Wszystko jest czysto hipotetyczne, raczej nie zamierzam tego robić ;p Opiszę wszystko łopatologicznie od początku. W Nokii 6610 jest radio. Można zapisywać ulubione stacje radiowe. W tym celu należy wcisnąć przycisk "w prawo"...
da sie coś takiego zrobić? Da się, Np przy użyciu pętli (For lub Do). Wewnątrz wstaw instrukcję wyboru (If) porównującą wartości komórek w kolumnach obu arkuszy i jeśli są równe, to licznik pętli będzie interesującym nas numerem wiersza, dalej już z górki. Podobny temat: [url=]Link, ostatni post.
Rozwiązaniem problemu jest zastosowanie pętli: For i= ... to ... ... Next Biorąc pod uwagę nazewnictwo plików zastosowałbym: Workbooks.Open FileName:="ścieżka\plik_" & i & ".xls" gdzie i będzie kolejnym numerem w nazwie pliku. Zrezygnowałbym tu z poprzedzającego...
michalko12 ma rację. Przykład nie powinien dawać warninga i nie daje. Zresztą wywołanie f(x1), gdzie f po prostu zwraca x1 jest celowym działaniem programisty i trudno tu się dopatrywać błędu, stąd warning byłby nie na miejscu. I zdecydowanie nie zgodzę się z tezą albertb, że inline wstawia kod funkcji...
Spróbuj zamiast "ActiveWorkbook" podstawić nazwę pliku z pętli i na końcu pętli włącz =True wbkSkoroszyt.Activate wbkSkoroszyt.UpdateRemoteReferences = False (...) wbkSkoroszyt.UpdateRemoteReferences = True wbkSkoroszyt.Close False Next i
Ad1) Zastosuj warunkowe zapisywanie (gałąź If-Else). Sprawdź stan/wartości kontrolek (w pętli wg nazwy typu, jeśli dużo) i jeśli spełniają warunki - zapisujesz, jeśli nie, wyświetlasz stosowny komunikat. Ad2) Wstaw licznik do pętli i wymuś wyjście, jeśli licznik=suma.
Dzięki za zainteresowanie problemem. Niestety tutaj makro by było bardzo pomocne, plik będzie używało kilka osób (zwykłych szarych użytkowników) Makro można podpiąć pod przycisk i po problemie, każdy sobie kliknie i mu się wszystko ładnie zrobi. Problem polega na tym że z tego jednego pliku...
Plik csv można "klasycznie" otworzyć w Excelu poleceniem 'Workbooks.Open', skopiować potrzebne dane i zamknąć. Jeśli nazwy arkuszy w plikach WZ.xls oraz PZ.xls są pobierane z A2 odpowiednich dokumentów (csv), to można w pętli otwierać je kolejno, sprawdzać czy istnieje arkusz o nazwie=A2 i jeśli nie... Postąpiłbym...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006”...
Włącz rejestrowanie makra i wykonaj z ręki wykresy. Zatrzymaj makro i przeedytuj jego kod usuwając zbędne elementy.
W dwóch zdaniach: chodzi o to by z arkusza baza pobrać pierwszy indeks "z" a do obliczeń w arkuszach 1-4 stosować indeks "na" wszędzie tam gdzie pojawi się ten oryginalny "z". Arkusz mam za zadanie dodawanie stanów, sprzedaży, itd. do indeksów w arkuszach 1-4 stosując zamienniki ("na") ale jednocześnie...
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...
Zdaje się, że zapętlasz się w nieskończoność. Ale bez analizy krok po kroku (klawisz F8), trudno coś powiedzieć pewnego. Pierwsze co rzuciło się w oczy to : [syntax=vb]ZnajdzNast = InStr(ZnajdzStop, Dokument, PozPocz, vbTextCompare)[/syntax]Gdzie przy następnym przebiegu: [syntax=vb]ZnajdzStart =...
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.
Chciałbym odgrzebać temat. Powyższe makro bardzo mi się przydało. Chciałbym dorobić przycisk NEXT. Jak przerobić to makro żeby w textboxie pokazywała kolejno jedną znalezioną pozycję? Po wciśnięciu następną aż do końca, a wtedy msgbox z info, że to koniec obszaru?
OK. Przed pętlą For wklej: w sytuacji gdy dla któregoś wiersza dane znajdują się w którejś z kolumn H:J ale jednocześnie nie jest wypełniona kolumna E lub G Jeśli jest inaczej, trzeba to zrobić w pętli, sprawdzając każdy wiersz z osobna. Edit rano ;) Np czymś takim: [syntax=vbscript] For w...
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"...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz...
Kod jest długi (odwołuje się do innych funkcji) wysyłam tą część która odpowiada za wysłanie maila i krótki opis całego kodu (próbowałam wrzucić późne wiązanie, ale chyba nie potrafię tego zrobić): 1. Definicja zmiennych 2. Ścieżka do załączników maila 3. Definicja typów maila do wysłania 4. Zdjęcie...
Sprawdzasz ostatni wiersz w arkuszu. np tak: ostatni = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Robisz pętle FOR od numeru wiersza nagłówka np 3 do ostatniego wiersza arkusza, czyli np tak: FOR x=3 to ostatni ... NEXT x w środku pętli warunek IF że jak komórka kolumny P równa...
Cześć, potrzebuję szybkiej porady jak stworzyć makro w VBA, rozzrysowałam sobie schemat 2 torowy z pętli, ale nie mam pojęcia jak przkesształcić go na ten język.... Dodano po 5 mam tabelę gdzie dane są wielkości 7x100 w przedziale i20:o119 i tam będę wpisywać różne rzeczy, chciałabym, żeby puste...
Masz kolego schemat makra uzupełniającego tabele 1 w zależności od zawartości tabeli 2 :D W zależności od potrzeb możesz go dowolnie rozbudowywać np przy zgodności loginów o porównywanie następnych kolumn :!: Ważne jednak jest jak widać zachowanie żelaznej logiki poszczególnych pętli porównujących...
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...
Cześć, Chciałbym stworzyć automat do tworzenia wykresów. Moje pytanie jest następujące: 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...
Witam Objaśnię mój problem. Posiadam formularz, w którym dobudowane jest makro odnośnie comboboxa. Chodzi o to, że po jego rozwinięciu i zaznaczeniu, w polu wyświetla się tam liczba (np. 3). Następnie chciałbym, aby po wciśnięciu przycisku "Delete" na formularzu, excel znalazł mi w innym arkuszu...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie...
Witam, Mam makro do usuwania wierszy, które zawierają w kolumnie A "0". Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
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.
Niestety ta pętla nie rozwiązuje problemu. Działa ona tak, że do tabeli we wszystkich zadanych komórkach wpisują się te same dane. Czyli jest tak, że wybieram Kowalskiego z ListBoxu i w każdej zadanej komórce mam Kowalskiego. Jak wybieram Iksinskiego to jest Iksinski. A ja chciałabym mieć możliwość wyboru...
Witam, Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 oczywiście słowo dzbanek się zmienia i jest jego 100 rodzajów i to samo z datą itd. I...
Witam, Mam problem z makrem. Chciałbym by komórki C3:D5 przeniosły się do pierwszego miejsca od góry w kolumnie E gdzie znajduje się "+", C14:C16 przeniosły się do pierwszego miejsca od góry gdzie znajduje się "+" ("+" w E5 już wtedy nie będzie), itd. Zrobione przez mnie makro nie działa w pętli i...
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ę....
chcę scalić sobie wiersze i napisałam takie makro: [syntax=vb] Sub scal() Dim i As Integer Application.DisplayAlerts = False For i = 1 To 12 Range("A" & i + 33).Select Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter Selection.Merge Next i ...
Witam, Potrzebuję pomocy z napisaniem makra (najlepiej gotowca ze względu na znikomą znajomość VBA), które będzie miało za zadanie automatyczne skopiowanie wartości w komórki poniżej w zadanym zakresie (by robić to etapami). Moja wiedza kończy się na tym etapie: [syntax=vb] Sub Makro2() ' '...
Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba"...
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...
aby makro wiedziało ze w danym pliku jest np tylko 850 Zaznaczanie do kopiowania/przenoszenia/itp. bez używania tzw. zmiennych. Jeśli masz tabelę w arkuszu, a w tabeli wiersze w kolumnach zachowują ciągłość danych, tzn. brak jest pustych komórek, to można w ten sposób:[syntax=vbscript]Range("H1",...
Cześć! W VBA moje umiejętność są szczątkowe i raczej używam nagrywania Makro w Excel jeśli zajdzie taka potrzeba i ewentualnie modyfikuje powstały kod w miarę możliwości i porad z internetu, niemniej nie potrafię znaleźć rozwiązania na następujący problem. Potrzebuje Makro, które wykona określoną...
Witam, Czy ktoś z was jest w stanie mi pomóc? Bedę ogromnie wdzięczny bo zupełnie się zatrzymałem na tym temacie. Chciałbym aby moje makro używało formuły złącz teksty i w komórce B2 złączyło teksty z komórek C2 i G2 a potem powielało to we wszystkich wierszach aż do końca (ilości wierszy zmienne)....
Napisałem pętlę która ma kopiować zawartość komórek z kolumny J do komórek z kolumny A jeżeli komórki z kolumny F i O są równe. Po prostu jeżeli np w komórka F4 = O1 to ma skopiować zawartość J1 do A4. Częściowo mi się to udało ale pętla nie wiadomo dlaczego zatrzymuje się tuż po starcie i wyrzuca błąd....
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ć...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły...
Witam ! Z góry przepraszam, ale jestem początkujący jeśli chodzi o programowanie jakiekolwiek. Mam pytanie odnośnie pętli w vba w przypadku update do bazy danych Mam w excelu kolumnę z poleceniami update (ilość wierszy może być różna) Napisałem kod, który wykonuje polecenia update z komórki...
Można zastosować funkcję Mid w pętli For (For Each Komórka in Zakres). Jeśli zmieniasz jeden konkretny numer, zastosuj instrukcję warunkową If i porównanie. Odn. realizacji: Pierwsze trzy znaki (48 ) są identyczne. Następnie mamy trzy cyfry rozdzielone spacją, które zwiększasz o 1 (jeśli o...
Witam. Owszem jest to do zrobienia...mało z tego całkiem prosto :D... Zacząć nalezy od makra, które tworzy nowy arkusz...nastepnie wklejane są dane i numer...nastepnie wydruk arkusza o numerze [ilosc arkuszy]...nastepnie zamkniecie arkusza o tym samym numerze... a wszystko w pętli aż do natrafienia...
ws to zmienna tymczasowa, w której pętla for each przechowuje Worksheet z kolekcji na którym akurat jest. To makro działa na arkuszach workbooka, na którym zostało uruchomione (ThisWorkbook.Worksheets), jego nazwa nie ma nic do rzeczy...
To jest to makro: Sub DataLabelsFromRange() Dim DLRange As Range Dim Cht As Chart Dim i As Integer, Pts As Integer ' Określenie wykres Set Cht = ActiveSheet.ChartObjects(1).Char... ' *********** Wyświetlenie pytania o zakres On Error Resume Next ...
Zamiast przerabiać było napisać nowe makro, bo np. po co ci pętle. Najpierw musisz "pobrać" nazwę arkusza z A1 potem nr wiersza z B1 A potem wprowadzić dane w arkusz o nazwie zapisanej w zmiennej "nazwa" w wierszu zapisanym w zmiennej "wiersz". C1 w kolumnie 2 a D1 w kolumnie 3 Private Sub CommandButton1_Click() nazwa....
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z...
To część kodu, na którym wywala błąd> For row_no = 5 To 154 miesiac = CInt(Worksheets("Rachunki_Walutowe").Cel... 10)) If miesiac = 1 Then pointer = row_no For row_no_1 = 4 To 33 ...
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'.
Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
