http://obrazki.elektroda.pl/5044212000_1... http://obrazki.elektroda.pl/5044212000_1...
Podaj więcej szczegółów. Np. która wersja Excela? Czy masz funkcję X.WYSZUKAJ? Ona nie ma tego ograniczenia do 255 znaków. Poza tym ile znaków ma C1? To znaczy, czy limit 255 jest przekroczony w C1 czy tylko w A1:A6? Ponadto, czy chodzi o niewielkie przekroczenie (możliwość podziału tekstu na 2 fragmenty), czy o znaczne? Czy mają być rozróżniane małe/wielkie...
Funkcja(UDF) w Module1 Patrz przyklad.
[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,...
użyj formuły =wyszukaj.pionowo
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
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...
Użyj formuły [url=https://support.office.com/pl-pl/ar...
Sprobuj Optional txt As String = "; "
To nie jest dobre rozwiązanie ze względu na różne rodzaje danych (tekst i liczba) i może prowadzić do błędów. Oczywiście można zrobić np. tak =WYSZUKAJ.PIONOWO(WARTOŚĆ(PRAWY(A2;4));A... i zadziała prawidłowo :). Prościej jednak (na przyszłość) aby wyszukiwany identyfikator był (co do typu danych i długości) taki sam jak w kolumnie...
wyszukiwanie różnych słów
"Mój tekst" Sheets("Arkusz2").Range("D4")
Czy da się to zrobić? Można to zrobić np przy użyciu dodatkowych kolumn z formułami pośrednimi, oraz przy użyciu funkcji WYBIERZ() tak jak na zrzucie: 917448 Wszystkie funkcje w załączonym pliku :spoko: 917452
Tak się składa, że niedawno robiłem dla naszych finansów coś podobnego. Program, po uproszczeniu, w załączniku, może jakoś Cię natchnie. ;) Zamiast kopiować do innej zakładki - grupuje pasujące linie. Dla 5000 linii jak w przykładzie działa u mnie, po drobnej modyfikacji, ok. ~4s (przy ~260s dla poprzedniego makra). Być może zmiana Range() na Cells()...
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...
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,...
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...
Wstawiłbyś załącznik z przykładowymi danymi, to nie musiałbyś się tyle rozpisywać. Wracając do meritum sprawy, to można użyć formuły wyszukaj.pionowo, np: [syntax=text]=WYSZUKAJ.PIONOWO(K2;ADR.PO... gdzie: komórka K1 - oznaczenie przeszukiwanego bloku danych komórka K2 - oznaczenie szukanego...
Liczbę zgodności można uzyskać dość łatwo pod warunkiem, że wpisy będą faktycznie identyczne. Formuła tablicowa: [syntax=text]=SUMA(--($C2:$H2=INDEKSY!$A...
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,...
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.
Po wykonaniu kosmetycznych zmian w arkuszach można użyć formuły bd.pole. Przeanalizuj plik z załącznika.
A zwykłe WYSZUKAJ.PIONOWO nie wystarczy?
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...
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)...
To naprawdę prosta sprawa. Przeanalizuj dostosuj do własnych potrzeb.
To tylko makrem
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 ...
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...
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
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")...
gdyby w funkcji ZNAJDŹ można było użyć symbolu wieloznacznego "*" W funkcji ZNAJDŹ nie można, ale jest bardzo podobna funkcja SZUKAJ.TEKST, w której można używać symboli wieloznacznych. Różni się od ZNAJDŹ (poza symbolami wieloznacznymi) tym, że nie rozróżnia małych/wielkich liter. Jeśli z tą funkcją sobie poradzisz to będziesz miał satysfakcję. Ja...
VBA wyszukiwanie wartości komórek i ich zamiana
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ć... :]
Na przykład [url=http://www.elektroda.pl/rtvforum/vi... masz odpowiedź na swoje pytanie.
Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...
Zakres [syntax=vbscript]Range("E3:F" & Rows.Count)[/syntax]zawiera dwie kolumny (2 pola), a Ty chcesz filtrować po trzecim: [syntax=vbscript]field:=3[/syntax]
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,...
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...
Jedną formułą? Musiałaby być jakaś karkołomna-tablicowa. Zrobiłbym to tak (załącznik).
Aj.... literowka rs = rs = 1 rs= rs+1 ma byc
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Nie rozumiem dlaczego VBA, ale skoro ma być... Po pierwsze: do wyszukiwania osoby nie możesz oddzielać imienia i nazwiska. Zrobiłbym sobie kolumnę pomocniczą łączącą teksty z kolumny C i D, z niej pobierał dane do listy. Masz "załatwione" dwie rzeczy: jasną identyfikację osobnika oraz precyzyjne wyszukiwanie /indeksowanie. Po drugie: w formularzu wyszukiwania...
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?
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
Efekt zgodny z pierwotnym opisem (jak na zrzucie) możesz uzyskać po właściwym ustawieniu typu danych :idea: w całej tabeli - poprzez dwie pomocnicze formułki :spoko: 917894 Całość w załączonym pliku 917895
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...
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....
A takie rozwiązanie? Function Szukanie(Wskaznik, Rok, Zakres as Range) For Each Kom In Zakres If Kom = Wskaznik Then Wiersz = Kom.Row End If Next For Each Kom In Zakres If Kom = Rok Then Kolumna = Kom.Column End If Next Szukanie = Zakres(Wiersz - 1, Kolumna).Value / 100 End Function Powinno działać prawidłowo. Dodane: Coby funkcja była...
Pobaw się tym.
co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...
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ć...
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...
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
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...
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...
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
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Poczytaj o funkcji [url=https://support.office.com/pl-pl/ar...
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...
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...
(at)ElektrodaBot chciałbym, żeby Excel wyszukiwał na podstawie dwóch zakresów, tj. HH oraz np. CC, jak to zrobić, odwołując się do poniższego przykładu?
Witam, Posiadam taką tabelkę https://obrazki.elektroda.pl/7526061600_... W kolumnie C mam numer produktu a w Kolumnach D-I "cechy charakterystyczne" danego produktu Chciałbym w VBA napisać marko które przeszukuje tabelę z obrazka w taki sposób, że znajduje Produkt (numer wiersza) o cechach przez mnie zadanych np: Podaję że w kolumnach...
Mówisz wynajdujesz koło ... będzie lepsze o tych, które sa na rynku? Nie twierdzę, że będzie lepsze, ale chciałbym jednak to zrobić samemu :)
Tu masz poprawki :)
Podpowiedź: Application.CountIf.
Wypróbuj, dostosuj do własnych potrzeb Like , do wyrzucenia :)
W I10 formuła: =INDEKS($B$2:$G$7;PODAJ.POZYCJĘ&... i przeciągnij w prawo i w dół.
Nie wiem czy do końca ci o to chodziło. W załączeniu przykład, z tym że kod makro operuje na nazwach zakresów : "pion1", "poziom1", "tabl1", więc zmieniając (powiększając) tabelę główną z nagłówkami i opisem wierszy należy również zmienić adresy których dotyczą się te nazwane zakresy. Jeżeli zmienisz wartość w okienku i wciśniesz "zmień", dane w tabeli...
Hej, czy rozwiązałeś problem o którym wspomniałeś? Szukam osoby która potrafii wyszukiwać wartości w pdf i przerzucać je do Excela. Może możesz mi pomóc?
Witam załóżmy że w wierszu A:A mam wszystkie litery alfabetu a b c d e f ...... a w wierszu B:B mam dowolne litery które sam sobie wpiszę Jak napisać formułę żeby np. wyszukała w wierszu A:A literę "c" i porównała ją do wiersza B:B, jeżeli w tej samej kolumnie jest też "c" to w komórce F6 zwróci mi wartość "wszystko ok", jeżeli nie zwróci mi wartość...
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...
Witam mam tysiąc zgłoszeń usterek, każde zgłoszenie ma dziwny długi opis A1____ _______A2________________A3 21241 Do wymiany klamki 21235 do wymiany 2żarówki W A3 potrzebuje wpisać "klamka" jeśli w opisie (A2) znajdowało się jedno ze słów "klamka" "klamki" "uchwyt" W A3 potrzebuje wpisać "oświetlenie" jeśli w opisie (A2) znajdowało się jedno ze słów...
Proszę zapoznać się z [url=http://www.elektroda.pl/rtvforum/to... (ostatnie dwa zdania).
Zwracanie kolejnych wartości https://exceliadam.pl/excel/zwracanie-ko...
Spróbuj tak: [syntax=vb]Set TmpCell = Cells.Find( Twoje argumenty ) if TmpCell is not Nothing then 'reszta operacji end if[/syntax]
Witam, w załączonym pliku nie działa wyszukiwanie pionowe dla Arkusza "DANE". Chcę pobrać dane z arkusza "DANE" do arkusza "POBIERZ". Zakres wyszukiwania, arkusz "DANE" (tabela) B1:K1000, pobieranie danych z 4 wiersza do arkusza "POBIERZ". Z góry dziękuję za sugestie.
Najprościej: kolumna pomocnicza, MAX()+1 i formuła wyszukiwania.
Nie prościej jest zastosować autofiltr wbudowany w excela.
Formuła[syntax=text]INDEKS(tablica_wynik... Jeśli rzeczywiście szukasz największej wartości, nie tej z wiersza 16, podstaw MAX(przeszukiwana_tablica) jako szukaną.
Zmienna TswPesel jest u Ciebie zadeklarowana jako String . Tymczasem w tabeli masz zarówno teksty (te zaczynające się od 0) jak i liczby (te, które nie zaczynają się od 0). Próba wyszukiwania tekstu wśród liczb kończy się błędem, dlatego trzeba szukać tekstu gdy zaczyna się od 0, a liczby w pozostałych przypadkach.
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:
Poprzednio pisałeś: Oczekiwany wynik dla funkcji działającej na b5 i na kolumnie F i G to np "1" lub "prawda" lub inna cyfra, jeśli np słowo "czerwona" wystąpiłaby w kolumnie F więcej niż 1 raz. (Raczej to będzie niemożliwe) a teraz w Twoim przykładzie jest zupełnie co innego. Teraz to np. tak: [syntax=text]=JEŻELI(ILE.LICZB(SZUKAJ.TE...
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...
Przetestuj następujące makro [syntax=vb]Sub koloruj() Dim lLstRw& Dim iLstCol% Dim rngTmp As Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column On Error Resume Next For i = 4 To lLstRw Step 4 Set rngTmp = Range(Cells(i, 4), Cells(i, iLstCol)).SpecialCells(xlCellTypeConstan... If Not rngTmp Is Nothing...
Sprawdź funkcję [url=https://www.youtube.com/watch?v=Eqk... pionowo ewentualnie wpisz w wyszukiwarce youtube inne hasła związane z wyszukiwaniem.
Przykład z formułą opartą na funkcjach wyszukiwania/adresu.
W tym rzecz że kompletnie nie czaje makro. Nie musisz czaić. Nagraj, a my Ci pomożemy je lekko przerobić, żeby działało dla zmiennej ilości wierszy. Daj coś od siebie.
Dodałem opcję czyszczenia.
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...
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ł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 :) :)
Załącz skoroszyt aby pokazać co już masz zrobione.
Czyli funkcje wyszukiwania. Zerknij do załącznika.
wyszukiwanie excel excel wyszukiwanie wartości excel wyszukiwanie userform
pilot zmiennym kodem wentylator chłodnicy scenic windows schowek
Wolne opuszczanie podnośnika New Holland TD5050 - przyczyny i rozwiązania Czerwona lampka ciśnienia oleju w VW Touareg - co oznacza?