W Excelu 2016 możesz użyć formuły: [syntax=text]=PODAJ.POZYCJĘ(PRAWDA;CZY.L...
http://obrazki.elektroda.pl/5044212000_1... http://obrazki.elektroda.pl/5044212000_1...
użyj formuły =wyszukaj.pionowo
wcztywanie danych ma nastąpić z innego arkusza oraz szukanie po imieniu i nazwisku Trzeba oczywiście dostosować bazę danych i formuły do takiego rozwiązania :D np tak jak na zrzucie i w załączonym pliku :spoko: 1044835 1044836
chciałbym aby to wyświetlało się od razu po dodaniu w arkuszu głównym Jeśli ten projekt jest taki prosty jak w Twoim przykładzie :D to nawet w starszych wydaniach Excela można to zrealizować w oparciu o funkcje wyszukaj.pionowo przy wykorzystaniu kilku tricków (np. pomocnicza kolumna z "indeksami", funkcje "nazwane" itp. ) :spoko: Całość widać na zrzucie...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$10" Then Application.EnableEvents = False Range("A11:B" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents ow = 5 ok = Cells(1, Columns.Count).End(xlToLeft).Column x = Target.Row + 1 For k = 1 To ok Set a = Range(Cells(1, k), Cells(ow, k)).Find(Target, LookIn:=xlValues,...
wyszukiwanie różnych słów
"Mój tekst" Sheets("Arkusz2").Range("D4")
Może spróbuj wyszukać przez "CtrlF"? W VBA będzie to jakoś tak: Dim r1 as Range Set r1 = Range("C1", Range("C1").End(xlDown)).Find("Szukane") If r1 Is Nothing Then ' nie znaleziono ...
Funkcja(UDF) w Module1 Patrz przyklad.
Sprobuj Optional txt As String = "; "
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Użyj formuły [url=https://support.office.com/pl-pl/ar...
Proponuję użyć formuły jak na zrzucie :D 923279
Dlatego ze Frytek Grzegorz jeszcze nie pracowal Czekaj...
Czy ma ktoś jakiś pomysł na formułę która zautomatyzuje poszukiwania? Proszę o pomoc. W załączeniu Excel Rozważyłbym przeprojektowanie tej tabelki albo skorzystanie z tabelki przestawnej. Ale ok. Potraktowałem to jako challenge - powstała jednolinijkowa formułka ;) Zasada działania: iloczyn logiczny ze sprawdzenia miesiąca z dniem daje nam dzień albo...
Jeśli ma być odwrotnie, to pozamieniaj w kodzie "A" z "B" Też zadziała, ale... Edit: Jeśli powtarza sie wiele razy lepiej Sub UsunPowt() licz = 0 For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row licznik = 0 For Each kom In Range("A:A") If kom.Offset(-licznik, 0) = "" Then Exit For If Cells(i,...
Czy w danym wierszu (nazwie grupy) da się ustawić funkcje, która będzie wyszukiwała czy pojawiła się wartość C1 lub C2 i zwracała datę? Tak, można tak jak na zrzucie znaleźć datę pierwszego wystąpienia jednej wartości :D jeśli w nagłówkach będziesz miała daty, a nie jakieś cyferki czy literki :!: 1017338
Analogicznie [syntax=vb] For Each c In ActiveSheet.Range("C1:C22") ' przeszukiwanie If c = cc2.Value And Range("A" & c.Row)= cc1.Value Then wiersz = c.Row Exit For End If Next c [/syntax] Edit
Czy na pewno potrzebujesz makra? W załączniku formuła i przykład makra (pod przyciskiem). "Współrzędne" pobierane z L1, L2.
Dzień dobry, Excel nie jest dobrym narzędziem do przetwarzania tak dużej liczby danych w sposób złożony. Próbowałem zmodyfikować te formuły, tak aby możliwe było wielokrotne szukanie tych samych danych, ale to rozwiązanie jest mało efektywne, bo działa na wszystkie rekordy, a nie tylko te zwielokrotnione. Poza tym nie wiem ile może być tych powtórzeń....
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)...
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...
Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka i Wieczorek :cunning: :?: Przydałaby się legenda do tych tabel kodowych :D - bo nie wiem jak to rozumieć, że pracownik A7 129 z lokalizacji Bogdanka pracuje w pewnym okresie w Wieliczce, ten sam pracownik z lokalizacji Wieliczka jest na L4 , oraz...
Zaproponuję taką funkcję: [syntax=vb]Function SzukajPracownika(Dzien As Integer, Zmiana As String) As Integer Sheets("Dane").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 4 To ostw If Cells(x, Dzien + 2) = Zmiana Then SzukajPracownika = x Exit Function End If x = x + 1 Next End Function[/syntax] Zastosowanie: =SzukajPracownika(17;"108b")...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
A zwykłe WYSZUKAJ.PIONOWO nie wystarczy?
To tylko makrem
Czyli ustawiasz kursor w którymś z wierszy, naciskasz przycisk i ma się dodać wg wartości w tym wierszu? Oj, żebyś żonie nie uprzykrzył ;) Nie rozsądniej byłoby zrobić to za pośrednictwem formularza? Wybierasz z pól kombi (stan w podglądzie) i dodajesz pod przyciskiem. Update 7:50 Coś jak w załączniku. W ostateczności wykorzystaj makra...
no Więc dobrze postanowiłem zrobić to sposobem, który zaleciłeś Markoz. Wyliczyłem, że bede potrzebowal około 3000 kombinacji czyli 3000 kolumn pomocniczych. Cos strasznie kombinujesz. W excelu nie wskazane jest rozbudowywanie arkusza na szerokość, bo to go strasznie spowalnia. Z tego co widzę bardzo mało znasz excela, a to sprawia, ze niewłaściwie...
Jeżeli działasz na tym pliku, to zmień wszystkie wystąpienia Arkusz5 na Arkusz4. Po tak "wylewnym" opisie problemu ciężko coś więcej powiedzieć... :]
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,...
Na przykład [url=http://www.elektroda.pl/rtvforum/vi... masz odpowiedź na swoje pytanie.
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...
firma z przypisanym kodem z kolumny A kod_2 nie ma znaczenia? Dodano po 43 [syntax=vb]Sub kokos() Dim bs As Range, bd As Range, bt As Range Dim rs&, re&, rd& Set bs = Sheets(1).Range("A:J").Cells Set bd = Sheets(2).Range("A:D").Cells re = bd(Rows.Count, 1).End(xlUp).Row + 1 Range(bd.Rows(2), bd.Rows(re)).Delete bs.Sort key1:=bs(1, 3), key2:=bs(1,...
Trochę zmodyfikowałem, i tak: W arkuszu NUMERY KONT BANKOWYCH masz kontrahentów i tu możesz dodawać kolejnych, to jest Twoja baza kontrahentów, adresy konta itd. W arkuszu PŁATNOŚĆ w kolumnie PŁATNOŚĆ-SKRÓT wybierasz z listy kontrahentów i wprowadzasz FV. Z resztą sam poćwicz... Nie wiem po co Ci kolumna PŁATNIK:, no zawsze coś tam można wrzucić. ;)
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Witaj Ponieważ wiemy tylko zakres wejściowy jest nieznany, gdzie wynik, Załóżmy, że R3. znaleźć komórki z największą wartość - colrez=Application.WorksheetFunction.Mat... i skopiuj format do klatki wyniku R3 - Range("S3:AD3").Cells(colrez).copy Range("R3").PasteSpecial xlFormats Application.CutCopyMode = False Oczywiście...
Zależy mi na tym, aby formuła w drugiej zakładce znalazła wiersze z wybranej daty, następnie znalazła użytkownika z tej daty (jeżeli by go nie było to wpis: BRAK) oraz aby w pierwszej komórce wpisała pierwsze logowanie do systemu, a w drugiej ostatnie z tej konkretnej daty. Formuły tablicowe (zatwierdzanie CTRL+SHIFT+ENTER): wejście: [syntax=text]=JEŻELI(MIN(JEŻELI(((Stycze...
Czy da się coś zmienić w kodzie żeby to wykonywało się szybciej ?? 1. Na początek wyłącz wszystkie opóźniacze, które mogą rzutować na szybkość kodu: [syntax=vbscript] With Application .ScreenUpdating = False: .DisplayAlerts = False: .DisplayStatusBar = False .EnableEvents = False: .Calculation = xlManual End With [/syntax] Na końcu makra włączysz je...
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
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...
Pobaw się tym.
Czy ktoś mógłby mi pomóc , poradzić jak się za to zabrać? Jeśli wszystko umieścisz w jednym skoroszycie, a następnie będziesz posługiwał się tylko "identyfikatorami", a nie gołymi nazwami miejscowości - to możesz rozwiązać swoje zadanie poprzez proste funkcje i dynamiczne nazwy zakresów wyszukiwania :spoko: - tak jak to widać na załączonym zrzucie...
Cześć jestem nowy na forum i potrzebuję jakiegoś magika który podpowiedział by mi jak zrobić pewien formularz w excelu, mianowicie : Mam 4 nagłówki w tabeli takich jak kolejno; klient adres towar kod towaru chciał bym żeby jak w kolumnie klient wpisuje nowak jan automatycznie w kolumnie wskakiwał mi jego adres później zebym miał do wyboru z 5 rodzajów...
Witam, chcę stworzyć plik excel "consumer" w którym będę mógł zamieszczać poszczególne dane ( one w czasie będą dochodzić, zmieniać nazwę itd.). Zależy mi głównie na : 1. dodaniu przycisku WYSZUKAJ ( HLA50, czy HLA 50 - w celu szybszego wyszukania spacja nie powinna być brana pod uwagę), 2. jak wyszuka zaznaczenie całego wiersza na jakiś kolor, 3. automatyczne...
Witam wszystkich. mam problem, nie mogę znaleźć żądnej funkcji która by wyszukiwała jedno wyrażenie (słowo) w jednym arkuszu i wyświetlałą je w drugim. Np. mamy tabele z 5 kolumnami i wyszukujemy w kolumnie 2 słowo np. "głowa" i w drugim arkuszu wyśiwetli wszystkie wiersze zawierające słowo "głowa" + dane mieszczące się obok np rozmiar itp. Bardzo prosze...
excel2003pl wyszukiwanie po kilku znakach / modyfikowanie / dodawanie nowych Witam poszukuję rozwiązania dla mojego problemu dotyczącego wyszukiwania mam listę osób i rozegranych z nimi pojedynków Przykładowa lista: osobawygralprzegralremis poddanyz kim gacek11200ozon pinki kajko rak44-3000kosa lipa rety taki_jaki0111fanty azory sepy Co będzie mi potrzebne...
Dzień dobry. Mam pytanie odnośnie Excel. Otóż pracuje w firmie logistycznej gdzie zapisuje codziennie około 100 numerów w wyznaczonym miejscu. A https://obrazki.elektroda.pl/4131461600_... Często bywa tak że cześć z nich naprawiam, wiec normalnie używam funkcji (szukaj w wyznaczonej kolumnie, i wpisuje) pojedynczo. Żeby znaleźć i zaznaczyć...
No, no jesteśmy na dobrej drodze :) . Wszystko ładnie, z tym że po zmianie daty powinny być kopiowane następne wiersze. W załączniku przykład To proponuję wpierw określić, co się chce osiągnąć całościowo, a nie stopniować sobie na zasadzie 'jak już mam to, to może i coś innego też ... ' :D Do tej pory była mowa tylko o kopiowaniu 3 wierszy, nawet na...
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....
Ten plik działa prawie poprawnie. Jedyne, co mi się rzuciło w oko to brak nazwy magazynu na arkuszu. Powód: Range("J1").Select ActiveCell.FormulaR1C1 = x Range("H1:M1").Sel... "x". Wyszukiwanie arkuszy OK.
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
wyszukiwanie excel excel wyszukiwanie userform excel wyszukiwanie tekstu
radio symphony ładowanie akumulatora kwasowego schemat amica pralka otwarcie drzwi
vestel firmware 17mb230 generator prądu
Naprawa mechanizmu wysuwania tacki Fonica CDF-103R NAC CTS 45 40 01 docieranie, mieszanka 1:40, regulacja gaźnika, olej Stihl HP Super
