Mógłbyś jeszcze mi podpowiedzieć jak zrobić makro na wszystkich plikach w folderze ? W poprzednim moim temacie napisałeś kod: [syntax=vbscript] Sub DzialajNaPlikach() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder" .InitialFileName = Environ("USERPROFILE")...
Cześć, Moglibyście podpowiedzieć w jaki sposób wstawić poniższą formułę do makra, tak aby ją w odpowiednim momencie wstawiało poprawnie =IF(ISERROR(VLOOKUP(A2;MTS!A...
Witam, trochę zmieniłem podejście i stworzyłem coś takiego co w dużej mierze odpowiada moim oczekiwaniom ale mam dodatkowe pytanie: "Plik Baza" jest dużym plikiem i długo się otwiera. Chciałbym, żeby napisany kod mógł sprawdzić czy plik jest już otwarty i jeżeli tak, żeby pominął krok otwierania pliku...
Cześć Chciałem prosić o pomoc w następującej kwesti, mianowicie potrzebuję zrobić vlookup'a pomiędzy dwoma plikami, jeden pliczkek jest to plik makra okreslony jako wb1, natomiast drugi w trakcie działania makra będzie otwierany i zamykany kilkakrotnie i ustawiam jego nazwe jako wbwartosci. Poszukiwane...
Nie znalazłem w internecie opisu makr z tą zaletą, że można wpisać w makro dowolną funkcję np. ową Wyszukaj.Pionowo [url=]Link
Hej, Stworzyłam kod w wykorzystaniem Vlookup, niestety Excel mieli to kilka lub nawet kilkanaście minut, przy raptem 200 wierszach z danymi. Jest jakiś sposób, żeby przyśpieszyć działanie makro? Z góry dzięki wielkie za pomoc! [syntax=vbscript] On Error Resume Next Dim Dept_Row As Long Dim...
PRL - tak dokładnie o to chodzi , vlookup ok,ale wtedy bede musiał szukać po całej kolumnie. Jak nie znajdzie, wyświetli mi 0. Nie chcę vlookup :)
Minimalnie daj nazwe makro nie vlookup, np Sub MojLookup() lub cos inne, np Sub Najdz(), Sub Szukaj() ets.
Witam, Proszę o pomoc w wyszukiwaniu pionowo gdy w przeszukiwanej tabeli nie ma szukanej wartości; Mam taki kod: [syntax=vbscript]Sub makro dim komorka as long komorka = 4 On error resume next do while cells(komorka,1) <> "" cells(komorka,2) = worksheetfunction.vlookup(cells(komorka,...
piszę swoje pierwsze macro Zawsze przy nauce, a szczególnie przy VBA trzeba dokładnie poznać podstawy, rozeznać możliwości zastosowań i przemyśleć projektowane procedury :idea: Jeśli projekt Twój dotyka geografii warto również przygotować się trochę i w tym zakresie :ok: Ponieważ Twój opis i...
Ewentualnie można zastosować makro zdarzeniowe, np. takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range If Intersect(Target, Range("C3:C15")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set cel = Target.Offset(, 1) Select Case Target.Value ...
Sorki nie wiedziałem jak opisać. Zainteresowałem się makrem jak mi temat wpadł, a spędziłem na próbach kilka dni zaczym napisałem na forum :( 1.Wszystkie pliki są w tym samym folderze 2.Każdy plik ma zostać przeszukany (bez względu na date, nazwę itd) 3.każdy plik zawiera wyłącznie jeden arkusz. dzięki...
Cześć, "Dobrze żarło i zdechło" :) Już piszę o co chodzi: Mam makro które sprawnie funkcjonowało na dotychczasowym pliku będącym źródłem. Aktualnie mam nowy program z którego generuje się plik źródłowy i potrzebuję dostosować makro do nowego źródła. Pomożecie? Poniżej kod z pliku...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny...
Ponownie wracam z tematem. JRV twoja propozycja jest dobra ale doczytałem się ,że funkcja licz.jeżeli nie działa na zamkniętych arkuszach(muszą być otwarte). Może jednak ktoś ma jakieś rozwiązanie w tym temacie z użyciem vlookup w makrze?
Cześć, Mam dziwny problem. Stworzyłem makro - działa, kiedy uruchamiam je z menu, w którym widzę wszystkie moje makra. Super. Kiedy jednak uruchamiam je skrótem klawiszowym, to działa tylko do pewnego momentu, a potem jak gdyby nigdy nic przestaje działać i nie posuwa się do przodu. Nie pojawia się...
Rozumiem, że to przetasowanie (test1/ark2) potrzebne jest do zastosowania funkcji WYSZUKAJ.PIONOWO. Można to pominąć i sprawę rozwiązać wykorzystując INDEKS(tablica1(PODAJ.POZYCJĘ(tablica2))... obędzie się bez makr i arkusza pośredniego. Np =INDEKS([test1.xlsx]Folha1!$...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With...
Czołem, Potrzebuję pomocy z następującym przypadkiem, Mianowicie mam tabelę liczbową i chcę aby makro w każdym z wierszy pomnożyło wartości w komórkach przez współczynnik. Wszystko działa elegancko jeżeli mam współczynnik wpisany w kodzie: [syntax=vbscript]Sub abcdefg() Dim lastColumn As...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś...
Cześć, Mam taki problem z makrem. Chciałbym aby w kolumnie 7 w pliku 2 wklejały mi się wartości z kolumny 6 pliku 1 jeżeli jest różna od tej w pliku 2. jeżeli wartości są takie same lub nie ma Dane 2 w pliku 1 to niech wiersz będzie pusty. Odniesieniem jest kolumna B. Tak żeby to wyglądało...
Witam, potrzebuje makro, w ktorym moglabym zastosowac funkcje WYSZUKAJ.PIONOWO ale dzialajaca w innym zamknietym pliku. Czyli potrzebuje makro ktore dla danych z otwartego pliku A bedzie wyszukiwalo mi wartosci przypisane do nich w zamknietym pliku B. I czy jest mozliwosc aby makro wyszukiwalo mi plik...
Witam, próbowałem już kilku sposobów na rozwiązanie mojego problemu, ale niestety nic konstruktywnego nie udało mi się stworzyć. O co chodzi: pragnę stworzyć makro które kopiowałoby wybrane elementy z Arkusza1 Przykład: 1) mamy Arkusz1 z ID klienta (powiedzmy, że mamy 1000 pozycji) , przypisany...
Jednak proszę napisz konkretniej w jakim miejscu kodu powinienem zadbać o obsługę błędu? Poniżej jeden z moich ostatnich postów w innym temacie: Czy według Ciebie, jak na korzystanie tylko z 2 źródeł wiedzy (pomoc z programu + macro recorder) dobrze poradziłem sobie z tym kodem? Tak, generalnie...
Wydzielono z witam, Raczkuje dopiero w tym temacie, wiec prosiłbym o wyrozumiałość. Chciałbym uzyskać wsparcie / pomoc w temacie. Potrzebuje makro, które pozwoli załadować dane z drugiego pliku excela. Zależy mi, żeby nie było możliwości załadowania innego pliku, gdyż w głównym, do którego...
Poczytaj w helpie excela o funkcji "wyszukaj pionowo" lub "vlookup"
z zamianą sumy na sum pomogło, jednak wyszukaj.pionowo na vlookup nie działa w dalszym ciągu (błąd 1004 vba )
Faktycznie, to usuwanie danych na początku chwilę trwa... U mnie jakieś 30s. Ale dalej mi się nie podobają te funkcje na 600.000 wierszy: popraw je na: [syntax=vb]ost_allegat_list = Sheets("Part of Allegat List").Cells(Rows.Count, 1).End(xlUp).Row With Range("H4:H" & ost_area_A) .FormulaR1C1...
Formułę można wpisać bezpośrednio do całego zakresu: Prawie idealnie tylko zakres "Range" zmienić trzeba po wyszukaj.pionowo i potrzeby jest tylko dla kolumny K :) [syntax=vb] Range("K342").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[8],'[plki222.xls]Próby'!C1:... ...
Bardzo bardzo dziękuję! Praktycznie o to mi chodziło. Natomiast jeszcze 2 pytania: 1) Czy duża byłaby zmiana w kodzie gdyby dla braku nazwy czy braku numeru w arkuszu config, makro nie wyświetlałoby komunikatu tylko pozostawiało stare wartości w kolumnie z nazwą? (Arkusz1) Po prostu żeby wtedy...
Ok Jeszcze mi choroba nie minęła ale ... proszę przykładowe rozwiązanie Zwróć uwagę że poprawiłem dane w arkuszu BAZA (zmiany na czerwono) Jeżeli tak nie może być to pisz. Wynik też troszeczkę się różni od twojego (chodzi o "dublowanie" nazwy) jeżeli to również ci nie odpowiada a nie poradzisz...
Witam, mam jeszcze taki problem, bo nie wiem co powinien zawierać kod makra, aby nie było widoczne podczas jego pracy przeskakiwanie pomiędzy arkuszami. Poniżej kod nagrany i częściowo zmodyfikowany przeze mnie. Proszę i z góry dziękuję o pomoc Proszę pamiętać o używaniu znaczników syntax...
Zapomnialem zaznaczyc ze jestem troche zielony.. Dodano po 24 Ohm, juz zamkniete, zrobilem, dziekuje. Wszedlem po prostu w makra, nagralem makro - edytowalem je w visual basicu i wkleilem kod do przycisku :)) wyglada on tak: ActiveCell.FormulaR1C1 = "=VLOOKUP(R23C12,Podsumowania!R3C1:R32C5...
Wiem ze VLOOKUP. Ale myślałem że jeżeli wstawię to jako string to używając zapisu angielskiego zwróci mi błąd w stylu #NAZWA Sprawdzę to wkrótce i dam znać co z tego wyszło. Dodano po 4 Ok, zapis funkcji bez żadnego wywoływania zmiennej itp jest ok. Jest tylko problem. Jak w zapisie Range("D1").Formula...
Witam, chciabym stworzyc dynamiczny link do obszarow w innych plikach excela ktore sa zamkniete. Cos w stylu: a+b &""\ c &""nazwapliku.xls]Arkusz1- 2013'!$B$4:$H$40""),7,FALSE),0)" [/sy... to formula zwracajaca lokalizacje pliku zapisanego gdzies na dysku[syntax=vb]="'"&LEFT(CELL("filename...
Witam wszystkich potrzebuje zrobić makro, które będzie mi powtarzać daną komendę porównania i będzie się przesuwać po Arkuszu 2 wierszu 2 - w moim kodzie to literka "s" i nie wiem co robię źle. Czyli kod uruchamia się w Arkuszu 2 po wierszu 2 od kolumny C2 następnie porównuje Arkusz2 z Arkuszem...
Cześć, Potrzebuję pomocy z pętla działająca na zasadzie vlookup. Mianowicie chciałbym aby makro szło po zakładce JEDEN i nadpisywało cenę na podstawie ID i Ceny z zakładki DWA, czyli taki VLOOKUP, tylko aby w przypadku gdy nie znajdzie odpowiedniego ID z zakładki DWA to aby pomijało cene. Dzięki...
Jak najbardziej możesz działać na "błędach" Właśnie błąd N/A oznacza brak danej czyli zastosuj funkcję czy.brak i dołącz ją do tego co już stworzyłeś ale w "inwersji" czyli: =IF(ISNA(VLOOKUP(I14,$A$2:$H$5... MA","JEST") dołaczanie pliku: Przyciśnij odpowiedz ale nie ten z (+2pkt) później...
Cześć, Jestem totalnym laikiem jeśli chodzi o makra, dlatego chciałbym się dowiedzieć jak zrobić takie makro w Excelu, które umożliwiłoby tworzenie listy osób dzwoniących w danym dniu. W tym celu stworzyłem w Excelu dokument z 3 zakładkami. W pierwszej zakładce "Input" chciałbym wprowadzać unikalny...
To było mówić że makro ma być w innym pliku. Kłopotem było to że makro pobierało nazwę pliku z pliku w którym nastąpiło wywołanie procedury. Poniżej poprawka. [syntax=vb]Sub OrderBuilder() ' ' OrderBuilder Makro ' Order building ' ' Klawisz skrótu: Ctrl+q ' Dim i As Long, ostWrs As Long 'otwarcie...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji ...
To już tylko z makrem. Inaczej się nie da. W obszarze arkusza "gwarancja" wprowadzasz np. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 11 And Target.Column = 2 Then Range("E11").Formula = "=VLOOKUP(B11,Lista!A1:B500...
dzięki "PRL", działa w porządku po zmianie z a = "ZV011193_0016_12345678_0080123456_06_20... na Dodano po 37 Dobra.... myślałem, że to śmignę bez problemu, ale się zaciąłem... Po zmodyfikowaniu propozycji "PRL" na: [syntax=vb]a = ActiveWorkbook.Name b = Right(a,...
A gdyby zmieniać za pomocą tableta pliki Excela na głownym PC przez sieć, w tym głównym PC byłyby makra, które by automatycznie uaktualniały inne pliki excela. I potem każdy z wyświetlaczy miałby swojego PC jakiegoś zwykłego, który przez sieć by importował co potrzeba z tych stworzonych plików do siebie...
Witam, Mam dość nietypowy problem: W pliku Excel mam kilka makr, jedno z nich działa przy otwieraniu pliku (chowa zbędne kolumny/wiersze etc..) - Jesli ten plik otwieram z ustawieniami regionalnymi: Polski, Angielski, Portugalski, plik ładuję się ok. 15 sekund. - Gdy wybiore ustawienia regionalne:...
Witam ponownie potrzebuje pomocy w przerobieniu kodu [syntax=vb] Sub Porownaj() Sheets("Arkusz2").Select ... = Cells(Rows.Count, "C").End(xlUp).Row For x = 1 To ow y = Application.VLookup(Cells(x, 3), Sheets("Arkusz1").Range("A1:I1100"), 9, False) On Error GoTo ND If y <>...
Witam, mam mały problem z wyszukaj.pionowo w VBA - bazuje na 2 plikach, które otwieram w trakcie trwania makra, nie mam jak przechowywać nazw pliku, bo to użytkownik je wybiera i jak się odnieść do drugiego pliku przez tą funkcję. Ewentualnie czy jest jakaś inna funkcja, która może to rozwiązać? Jak...
Dodalem Excel z przykladem (musialem spakowac zip) 1. Numer w A1 zmieniamy manualnie. Na jego podstawie test w polach ponizej B4, B11, B18, B25 text zmenia sie automatycznie (jest pobierany z innego Arkusza (input) przez VLOOKUP. 2. Klikamy w 'Copy Text' zeby uruchomic macro. Macro skopiuje zawartosc...
Jeśli ma być więcej takich samych list w tym samym arkuszu, to należy je skopiować ręcznie, a następnie użyć np. takiego makra (zamiast tego poprzedniego). Dodałem tu jeszcze zabezpieczenia przed błędami. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target,...
Chciałbym utworzyć funkcję wyszukaj pionowo z parametrami w VBA Mam 2 arkusze. Baza -zawiera numery kont przypisane do numerów oddziałów Arkusz -zawiera numery kont oraz kwoty ale, brakuje numeru oddziału. Samo wstawienie funkcji wyszukaj pionowo mi nic nie daje. Potrzebuję to samo ale w języku...
Witam serdecznie. Mam spory problem, z którym nie mogę sobie poradzić. Posiadam makro, które rozbija mi dane z komórek na człony wg zadanego klucza do kolumn L, M, N. Potrzebowałbym w kolumnie O połączyć dane z kolumn L i N (póki co jest tam formuła). W kolejnym kroku chciałbym na podstawie danych...
Cześć, Mam taki problem. Potrzebuje stworzyć makro, które porównuje dwie tabele z dwóch plików. Wartości które się nie zgadzają muszą zostać wypełnione kolorem czerwonym. Chodzi o to by w Zeszyt1 dla każdego produktu w którym cena i marża nie zgadza się z Zeszyt2 komórki powinny być wypełnione kolorem...
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz...
Chyba źle do tego podchodzisz. Nawet gdybyś chciał wstawić, jak piszesz, jakiś symbol, musisz znać adres komórki - w tym Nr wiersza. Ale skoro znasz numer wiersza, możesz zacząć szukać od wiersz+1 w następnym vLookUp. I mamy masło maślane. Nagraj sobie takie makro: Zaznacz kolumnę A, naciśnij Ctrl+F...
To makrem wypisujesz taką formułę? Użyj w pętli [syntax=vbscript]For i = 1 to 1000 Cells(i, "B").Formula = "=vlookup(A" & i & ",C:D,2,0)" Next i[/syntax] - mają być przecinki zamiast średników i odwołujesz się do właściwości Formula (chociaż dla Value też to zadziała).
Cześć Mam problem, którego sam nie potrafię rozwiązać i liczę na Waszą pomoc :-) W dużym skrócie mój problem polega na tym, że mam dwa zakresy danych, na podstawie wartości z jednego zakresu muszę wyszukać wartość w drugim zakresie, jeżeli makro znajdzie tą wartość to zostawia ją bez zmian, jeżeli...
Jeśli już makro... Przedstawiam nieco inne podejście (może komuś się przyda). Pozwoliłem sobie zmodyfikować powyższe makro, wykorzystując właściwość MergeArea.Rows.Count. Dodatkowo ostW, coby nie wpisywać zakresu "na sztywno" (podobnie można z tabelką źródłową). [syntax=vbscript]Sub FillRangeWithMergedCells() ...
Cześć, sprawa jest taka - w pracy prowadzę ewidencję prowadzonych spraw w excelu. Żeby uniknąć kolejnego programu itd, mam już opcję zapisywania zadań na konkretną datę. Chodzi mi o to, żeby przy uruchomieniu makra, doszło do przeszukania pliku i wylistowania wszystkich spraw np na listboxie, przy których...