Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Czy datę zawsze będziesz miał w formacie dd-mm-rrrr?
Z takim wyszukiwaniem tak do końca nie da się nagrać. Ale cała reszta jak najbardziej. Co do przeszukiwania makro przeszukuje tylko kolumnę A. Bo jakby szukało również w B byłyby duble - a przyznam że na chwilę obecną nie mam koncepcji na prosty kod jakby się przed tym zabezpieczyć. edit ----------------------------------------... A jednak wpadłem na...
Mam problem z przygotowaniem makra, który będzie wyszukiwał dane. W załączeniu zamieściłem przygotowany plik excel. Mam tam makro wyszukujące natomiast problem mam następujący - wyszukuje mi dane tylko po wpisaniu pełnej nazwa natomiast potrzebuję po fragmencie tekstu bądź jednego wyrazu (nazwy będą dość długie stąd potrzebuję coś takiego). Nie mogę...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Fakt. nie mogę nigdzie znaleźć "wytłumaczenia" czemu tak się nagrało. Nie wiem czy widać po kodzie co chcę osiągalność. Chodzi o to ze po przefiltrowaniu po nr 756902 kolumna x ( wynik około 10 wierszy) chcę wyszukać pionowo w kolumnie y wartości z innego pliku i zwrócić nr_indeksu_kolumny. Wyszukaj pionowo nie działa poprawnie pewnie dlatego że nie...
Wszystkie te 3 punkty zrealizujesz nagrywając makro.
Zarejestruj jeszcze wyszukiwanie tekstu (Ctrl+f), zamiast 'Activate/Select' wpisz 'Column' i przypisz do zmiennej. Powinno wyjść coś takiego p.kaczmarek2 . Do tego obsługa błędu, w razie nieznalezienia, oraz różne takie mniej istotne...
Sprawa dość prosta. Procedura zdarzeniowa arkusza "przy zmianie" Range(zakres).Find i przypisywanie...
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
Pobaw się tym.
Uruchom makro i wybierz Makro1 / lub podepnij pod przycisk. Ja tylko wtrące że można prościej napisać to makro (zostawiając pomysł) [syntax=vb]Sub Makro1() Dim maxIndex, x, y As Integer maxIndex = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row For x = 1 To maxIndex For y = 1 To maxIndex If Abs(Cells(x, 2).Value + Cells(y, 2)) < 0.01 Then Cells(x,...
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ść,...
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
Przez COVIDA znalazłem się na zastępstwie i muszę przygotować temat inwentury w firmie. Będą ją robić ludzie, którzy nie znają dobrze asortymentu i chcę im ułatwić i przyspieszyć pracę. Szukałem takiego tematu na forum, ale nie znalazłem, a sam nie ogarnę tego niestety... Niestety jestem zielony w tworzeniu makr, a pilnie potrzebuję makra, które pozwolą...
Witam serdecznie. Ogólnie :mam problem z napisaniem małego makra, które po wpisaniu szukanej wartości w jednej komórce, wyszukiwałoby daną wartość w innym arkuszu wraz z wartościami z nią powiązanymi (wszystko w tym samym wierszu) i wyświetlaniu tych wartości w pierwszym arkuszu. Troche to zamotane więc już wyjaśniam. Mam 2 arkusze: jeden to "wyszukiwarka"...
Dzień dobry, Potrzebuję pomocy z Makro, które będzie mi sprawdzało czy w jakimkolwiek pliku .xls w katalogu np. "D:\testy" znajduje się wartość taka sama jak w głównym pliku. W załączniku umieszczam przykładową strukturę plików Głównym plikiem w którym makro chciałbym aby działało jest plik "raport.xls", który powinien sprawdzić we wszystkich plikach...
Cześć, Potrzebuje pomocy, a mianowicie czy da się napisać makro, które będzie szukać wartości funkcją vlookup z innego pliku, który chciałbym wybrać z folderu, a następnie dla N/A szukać wartości z innego, który też chciałbym wybrać. Dodatkowo, żeby dla wyszukanych wartości z pierwszego pliku zmieniało nazwę na "Tak", a z drugiego dla znalezionych wartości...
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
Witam. mam problem i nie moge znalesc alternatywnego rozwiazania, napisze wiec przyklad. w jednym arkuszu1 mam w np kolumnie A znaki np FD012345789 FD065412372 FD032165498 FD043568120 Fd021366498 itp itd... i tak okolo 2000 wierszy a w innym arkuszu2 mam np w kolumnie B 12345 32165 21366 i tak z 50... chcialbym, aby w pierwszym arkuszu znalazlo mi cos...
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...
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 komórki, które pominę, same się uzupełniły wpisując np....
Witam. Stworzyłam fajny plik do rejestracji faktur. Działałam na nim rok jednak problem pojawił się w momencie gdy dostałam bazy z nazwami materiałów ze sklepu i plik nie wyrabia. Z podpowiedzi wywnioskowałam, że funkcja jeżeli błąd spowalnia mi także plik więc ją usunęłam. Jak podpięłam plik z bazami na wyszukaj pionowo to działa bardzo wolno. Dodam,...
Witam, Mam mały problem i mam nadzieję, że pomożecie mi. Potrzebuje makro które: 1. Przeszuka mi około 60 arkuszy pozycje np. 'Malina'. Informacja szukana znajduję się zawsze w kolumnie 'B'. 2. Potem skopiuje cały wiersz z tą informacją. Bo potrzebne mi są wszystkie informacje z wiersza gdzie znajdziemy 'Malina'. 3. Zapisze mi to w arkuszy o nazwie...
Próbuje napisać makro, ale z uwagi na brak wiedzy odnośnie najprostszych poleceń nie umiem sobie poradzić. Wydaje się, że makro jest dosyć proste. Mianowicie: 1.Istnieje ciąg wyrazów w arkuszu A (CEL) 2.Po tych wyrazach przeszukuje arkusz B (BAZA) 3.Gdy znajduje to kopiuje wartość stojącą przy wyrazie w arkuszu B. 4.Wstawia ten skopiowany wyraz w kolumnie...
Witam, nie jestem orłem Excela, nigdy nie był mi specjalnie potrzebny. Teraz potrzebuję pomocy. Są dwie "bazy danych" (tak wiem :)) jedna arkusz większy, zawierający aktualne nazwiska i maile oraz drugi mniejszy z nowymi. Rzecz w tym, aby zaznaczyć podkreśleniem w tym mniejszym pliku dane które już są w tym większym (tak aby się nie dublowały). Skorzystałem...
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
Jeśli znaki "<" oraz ">" występują tylko jako "nawiasy" znaczników i nigdzie więcej, to można w prosty sposób skorygować pętlę Do , umieszczając warunek i polecenie wyjścia z pętli wewnątrz niej. Rezygnujemy wtedy z tablicy i określamy początek i koniec fragmentu do pogrubienia wg wspomnianych znaków.
W takim razie to InStr zwróci Ci pozycję w ciągu i to należałoby wykorzystać...
Nie doczytałeś jak działa obiekt [url=http://msdn.microsoft.com/en-us/lib... - drugim parametrem w nawiasie nie jest pozycja ostatniego znaku, a ilość znaków które mają zostać wzięte (długość). W związku z powyższym, musisz to przerobić na: [syntax=vb]kom.Characters(i, j - i + 1)...[/syntax]
Excel to nie BAZA, to tak na marginesie Miłego kopania się z koniem
Witam. Próbuje napisać makro, które będzie wyszukiwać w jednej kolumnie, np A kwot przeciwnych jeżeli istnieją (np kredyt noty i faktury) , dodatkowym warunkiem jest to aby wartość w kolumnie B (np nazwa przedsiębiorstwa) była dla obu kwot taka sama, jeżeli ten warunek jest spełniony to kwoty te są kopiowane do drugiego arkusza. Udało mi się napisać...
Witaj, Być może tylko makro
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
A możliwe jest wykonanie takiej czynności za pomocą przycisku? Wiem jak podpiąć ale nie mam pojęcia jak dopasować przygotowane makro przechodzące do aktualnej daty.
Makro wykonujące obydwie czynności może wyglądać np. tak: Private Sub CommandButton1_Click() poprz_wartosc = Empty For Each c In ActiveSheet.Range("C1:C6553... 'tu można zawęzić przeszukiwany zakres If c = "dolek" Then ActiveSheet.Cells(c.Row, 4) = poprz_wartosc If Not IsEmpty(poprz_wartosc) And...
właśnie o makro mi chodziło. Wielkie dzięki. Udało się mi się pewnie bardziej "skomplikowaną i zagmatwaną" metodą w VBA ale działa :) :)
Dzięki wielkie. Makro działa. Nazwiska, tak jak pisałeś mogą się powtarzać, a nawet często są takie sytuacje gdzie nie tylko, że nazwisko jest takie samo, ale i imię oraz stanowisko. Natomiast nt kadrowy jest unikatowy, a więc wstawiłem wyszukiwanie pod względem kolumny z nr kadrowym. Dzięki jeszcze raz
Nagraj makro.
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
SUPER! bardzo dziękuję Makro działa, tabela niestety nie ma racji bytu, ponieważ w kolejnych wierszach tabeli będą się zmieniały wartości czy nie zawsze będzie szukać B, a makro wyszukuje z całości jedną daną. Mam natomiast inne pytanie, czy mogę przekopiować to makro do innego skoroszytu? Pytanie banalne, no ale coś mi to nie idzie, jak pisałem wcześniej...
Czy mógłbyś wyjaśnić co ta Pani Paula oznaczyła w tym "generatorze" poprzez l, p, g, o, c :?: Wpisz sobie na początku makra ustawienie z deklaracjami "Option Explicit" to zobaczysz dlaczego makro tak długo działa :D
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
W arkuszu "raport" zaznaczam jako aktywną komórkę E5. Naciskam przycisk "pokaż szczegóły" do którego podpięte jest makro i otrzymuję to co znajduje się w arkuszu "wynik kliknięcia".
ten kod miel byc w koncu makro 'kokos', po [syntax=vb] .Borders(re).Weight = xlThin Next End With[/syntax]
Popraw kolego tytuł wątku - winno być wg mnie "VBA Excel wyszukiwanie danych" :?: Żeby zamieścić tu na forum plik xlsm musisz go skompresować do formatu zip, rar lub 7z :!: Co do Twojego makra i arkuszy to musisz wyjaśnić co to za wielkości umieszczone są w arkuszu1 w kolumnach D, E i F :?: i po co komplikujesz wszystko ustawiając w arkuszu1 minimalne...
Witam, Mam uprzejmą prośbę o pomoc. Potrzebuje napisać makro w MS Excel, które będzie zaznaczać „ustaloną” liczbę takich samych (następujący po sobie znaków, w komórkach arkusza MS Excel). Potrafię napisać makro które będzie wyszukiwać i wyróżniać (np. innym kolorem tłą) takie same ”stringi”. Działający przykład w załączeniu....
Witam, Mam bazę zawierającą kilka tysięcy wierszy, gdzie w kolumnie B znajdują się różne opisy książek, wśród których są słowa kluczowe np. przygodowa, historyczna itd., po których ma być ustalana kategoria. Niestety słów jest kilka do każdej kategorii (np. thriller, kryminalna, sensacyjna, dreszczowiec itd mają być kategorią "książki akcji") i słowa...
skopiuj wartości z komórek od M do R i wklej do kolumny C :?: :cry: Jak to chcesz zrealizować ? Wklejanie pięciu wartości komórek do jednej :D i to do kolumny z loginami :?: Do czego Ci potrzebne wyszukiwanie pionowe ? Znasz ograniczenia tej funkcji ? W Twojej tabeli w kolumnie C na pewno nie powtarzają się loginy ? Zrób i pokaż przykładowy plik z...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Witam, Twój przykład „trochę” minie zainteresował ;-) Jestem pewien, że czasem droga przez „formuły w arkuszu” jest nieco trudniejsza niż droga przez napisanie makra w MS Excel. Aby wszystko było jasne ;-) – jakiś 1- 1,5 roku temu też mi się wydawało, że najlepszym rozwiązaniem jest formuła warunkowa wpisana w komórkę arkusza...
Jest kilka kolumn z nazwą "cena" ( np. C,F,K,O) i są opisane w wierszu 1. Szukalem odpwiedniego makro i krok po kroku stworzylem takie cos. Jak masz jakies rady to chetnie wyslucham.
Hey, Zauważ, że w pliku 'stany magazynowe' masz 'symbol elementu' i 'numer seryjny' przenoszone z konkretnej komórki z pliku 'komponenty', a wartości 'na stanie' i 'potrzeba' masz wpisane z palca w pliku 'stany magazynowe' co oznacza, że jeżeli zaczniesz segregować materiały w arkuszu 'komponenty' to w arkuszu 'stany magazynowe' wszystko Ci się rozjedzie...
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Niestety nie działa :/ Oczywiście, że działa ;) Sprawdza wszystkie komórki w zakresie S340. Innego nie podałeś. Do sprawdzenia zakresu >1 komórka należy zastosować pętlę: [url=http://dzono4.w.interia.pl/kurs/for... Szukanie wolnej komórki: Włącz rejestrator makr i nagraj kilka kombinacji Ctrl+strzałka (w dół/górę). Najlepiej z wypełnionymi...
w zalaczeniu przesylam jeden z lzejszych plikow, dokleilem kolumne Prawy 9 znakow ale jest problem zeby prownywal z ta kolumna dolozylem tez warunek, ale wkleja mi zawartosc tylko 1 komorki jakby jeszcze sie dalo zamiast kopiowac funkcje do wszystkich komorek w kolumnie stworzyc jakies makro ktore by to robilo automatycznie az do znalezienia pustego...
Nie ma przykładowego pliku :cunning: , więc można Ci tylko udzielić ogólnikowych rad :D : 1. Przeszukaj zasoby Elektrody nt filtrowania danych :idea: ; 2. Rozważ czy konieczne jest filtrowanie - może wystarczy tylko wyszukiwanie potrzebnych wierszy ze wszystkich arkuszy do arkusza zbiorczego :?: np jak w poście https://www.elektroda.pl/rtvforum/viewto...
Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireColumn.Insert Cells(1, 2).Value = "autorzy" Cells(1, 3).Value...
makro excel wyszukiwanie excel makro wyszukiwanie komórki makro wyszukiwanie
niska wydajność klimatyzacji pasmo 144mhz uszkodzone przyłącze
Kod błędu C1531 w Oplu Vectra - przyczyny i diagnostyka Czerwona kontrolka w Nissan Almera N15 - czy powinna zgasnąć?
