Ok, to z tym myślę, że sobie poradzisz (a jeżeli coś by nie szło to śmiało pisz). Co do wyszukiwania to masz dwie opcje: - użyć wbudowanej funkcji VLookup (tak jak w formułach) - napisać swoje wyszukiwanie Oczywiście pierwsza opcja wydaje się bardziej sensowna :). Użycie tego w makro jest bardzo proste. Tutaj masz przykładową implementację - spróbuj...
Da się, tylko dlaczegóż "fałlukap" akurat ?
Cześć, próbuję zastosować metodę VLOOKUP żeby sprawdziła czy powtarza się część danych z innego skoroszytu ale niestety nie działa. Automatycznie pojawia się opcja wyboru pliku ale w komórkach wyskakuje mi #NAME?. Co ciekawe w innym pliku ta metoda działa bez problemu. Próbowałem już nagrywać makro to pojawia się #N/D! ale przy wszystkich komórkach...
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 :)
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?
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 B czy musi byc podana lokalizacja pliku. Z gory...
Poczytaj o WYSZUKAJ.PIONOWO, a jeżeli makro to o VLOOKUP.
Załączam tabele, dążę do tego aby makro przejechało po każdej linii i zmieniło wartości mnożąc je przez wskaźniki z zakładki MENU
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 VBA. Próbowałem tworzyć makro ale w marko jest kod VLOOKUP...
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 Case "Inne", "Konto klienta" cel.Value = Application.InputBox("Podaj...
Procedurę vlookup która będzie szukać danej wartości w kolumnie A i kopiować cały zakres wiersza do oddzielnego pliku raport . Problem w tym że formuła vlookup szuka tylko pierwszej wartości więc chcę to ominąć przez dodanie do każdego pliku formuły która będzie zmieniać wartość kolumny A poszczególnie do zmiany . [syntax=vbscript]Private Sub CommandButton1_Click()...
Tylko ja moimi próbami nikogo nie zabije Bez uraz... czas = "WYSZUKAJ.PIONOWO(ZŁĄCZ.TEKSTY("W";WIERS... W VBA nie tak, jak na arkuszu. pierwsze - nazwy funkcji tylko angelskie, np. WYSZUKAJ.PIONOWO tj VLookup (Jeśli zarejestrowal by makro podczas wprowadzenia formuły w arkuszu, a następnie w VBA widziałes by to w języku angielskim) drugie - separatory...
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 będą zaciągane dane jest cała masa formuł odwołująca się do...
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 przechodziło dalej do kolejnej linijki nic nie robiąc.....
Drugi argument to data ktora jest nazwą arkusza jak i folderu w którym są pliki. Tak je pogrupowałem ;). Vlookup jak najbardziej dziala z zamknietymi plikami ale potrzebuje pelnej sciezki do pliku wiec nici ze sklejaniem sciezki z funkcją indirect. Makro jakiego uzywam z funkcją pull wyglada tak: [syntax=vb]Sub taskmatrix() Application.ScreenUpdating...
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... Range("I27").Select Pozdrawiam. Dodano po 19 Niestety...
Poczytaj w helpie excela o funkcji "wyszukaj pionowo" lub "vlookup"
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 tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Cześć, Jestem początkujący w VBA, chce napisać makro, które pozwoli Mi na używanie wyszukaj.pionowo co tydzień w nowym pliku na bazie jednej stałej bazy danych. Moja idea jest taka, że wybieram oryginalny plik, kopiuje się on z nową nazwą a następnie automatycznie kolumna "P" zapełnia sie tekstem z wyszukaj pionowo. Nie potrafie rozwiązać problemu z...
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 mu wiersz chce uzupełnić o date logowania się np. na koncie,...
Minimalnie daj nazwe makro nie vlookup, np Sub MojLookup() lub cos inne, np Sub Najdz(), Sub Szukaj() ets.
Nie znalazłem w internecie opisu makr z tą zaletą, że można wpisać w makro dowolną funkcję np. ową Wyszukaj.Pionowo [url=https://www.google.com/search?q=vba...
Formułę można wpisać bezpośrednio do całego zakresu: [syntax=vb]Range("K342:O773").Formula = "=VLOOKUP(RC[8],'Próby'!C1:C8,2,0)"[/syn...
Cześć, potrzebuje pomocy z napisaniem procedury wyszukaj pionowo jako makro. Poniżej wysyłam to co mam. Wpisując wartość w jednej z komórek, makro musi wyszukać dla niej odpowiedni wynik w innym pliku. Jako, że ten plik będzie codziennie inny to makro będzie otwierać najnowszy plik z danej lokalizacji "Baza". Uruchamiając makro otwiera mi się okno w...
Range(Cells(2, "AV"), Cells(e, "AV")).Value = _ "=VLOOKUP(RC Musisz stosować jeden styl odwołania, czyli wszystko w r1c1 albo , AM
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 za pomoc
Wszystko już masz w arkuszu "Baza", trzeba tylko dołożyć obliczenia. Nie widzę potrzeby zastosowania VBA. Po mojemu dolna tabelka w arkuszu "Dane" jest na oko zwyczajnie zdublowana...
To makro 4.0 jest niezbędne w celu pobrania plików do excela. Niestety użytkownicy zgłaszają niebezpieczne makro. Można chyba zrobić na przykładowych danych bez makro skanującego czyjeś pliki na dysku? Przy okazji, przykładowa formuła: =IFERROR(HYPERLINK(VLOOKUP(E4, D4:D26, 1, FALSE), "Link"), "") ?
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 Sheets("Arkusz1") ost_wiersz = .Range("A"...
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() Dim ostW As Long, w As Long, kol As Long...
Owszem, jestem tego samego zdania, jednakże wolę zrozumieć kod pisząc go, a nie dostawać wszysko gotowe, stąd moje stopniowe rozwiązywanie problemu. Jeśli jednak plik jest niezbędny, utworzę taki (w tej chwili pracuję na danych, których nie mogę udostepnić). Powracając do tematu, jak wspomniałem wcześniej, wybrałem zapis "AcitiveCell.Value = " zamiast...
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
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... End Sub I przy każdej zmianie w b11 (row 11 i column2) nastąpi...
z zamianą sumy na sum pomogło, jednak wyszukaj.pionowo na vlookup nie działa w dalszym ciągu (błąd 1004 vba )
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 za pomoc. Zarejestrowałem makro niestety nie wiem...
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 = "= IFERROR(VLOOKUP(RC[-7],'Part of Allegat List'!R2C9:R"...
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... Używam poniższej formuły, ale mi coś nawala: [syntax=vbscript]...
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, Range("D1, G3, J3")) If Target Is Nothing Then...
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 plików Workbooks.Open Filename:="D:\Desktop\NotWMS\Działa\expo...
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 dept_Clm As Long Table1 = ActiveSheet.Range(“i1:i”...
te lekkie odchylenia 2018-12-31 jest lekkim odchyleniem od 2019-01-01? Poczytaj o tym: [url=https://support.office.com/en-us/ar... Zdecyduj czy funkcja, czy makro. Napisz jutro...
Ctrl + Shift + S Dodano po 3 Makro z reguły zatrzymuje się w jednej linii kodu ze względu na generowany w niej błąd (np. zła nazwa arkusza, zła nazwa pliku, próba otwarcia otwartego pliku itp) - nie wskazałeś tej linii, a mnie (po drobnych modyfikacjach kodu :D ) Wskazałem w pierwszym poście. Workbooks.Open strAdres, UpdateLinks:=0 Windows("Dziś.xlsx").Activate...
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,... worksheets("arkusz1").range("B:C"),2,0) komorka = komorka...
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 wartości zawszę będą z prawej strony, więc chyba...
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,1,0)),"NI... MA","JEST") dołaczanie pliku: Przyciśnij odpowiedz ale nie ten z (+2pkt) później poprzez przycisk przeglądaj wskaż plik na dysku, a potem...
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).
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 całkiem dobrze. Może ta logika odczytu pliku kiedy coś...
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 załączony plik, jak dla mnie jest niezrozumiały, a dobór...
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 - nie udało mi się znaleźć rozwiązania, które mógłbym...
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") & "\Documents\" If .Show = -1 Then Sciezka = .SelectedItems(1)...
excel makro vlookup makro funkcją vlookup excel vlookup
wymiana kostki stacyjki passat przełącznika kierunkowskazów przełączniki bistabilne
watomierz analogowy orange własny router zamiast funbox
Bojler nie grzeje wody mimo sprawnej grzałki i potencjometru Wymiary blokady wału korbowego VW Crafter 2.5 TDI 2009
