Moje makro wyszukuje i koloruje tylko samą kropkę :?: :not: Jeśli chcesz zmienić kolor czcionki w całej komórce zawierającej "." to zastosuj kod :spoko: [syntax=vbscript]Sub Koloruj() Dim zakres As Range Dim kom As Range Set zakres = Selection For Each kom In zakres.Cells If InStr(1, kom.Value, ".", 1) > 0 Then kom.Font.ColorIndex = 1 End If Next End...
Jeśli dobrze zrozumiałem Twoje potrzeby :?: To efekt taki jak na zrzucie 1011231 tzn. po wpisaniu numeru kontraktu zakupu makro automatycznie wyszukuje "wstecz" (tzn. do góry :D ) czy już wystąpił taki numer i jeśli tak - to wprowadza do kolumny D ilość pozostałą z wcześniejszej transakcji :spoko: 1011234
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
Może będziesz wiedział gdzie popełniam błąd i coś zasugerujesz. Podstawowa przyczyna złego formatowania to przedziwne style w Wordzie, które utworzyłeś jako listę numerowaną (dodatkowo jako numerowane cyframi rzymskimi :| ). Proponuje przeanalizować makro - działa ono w oparciu o 3 symbole wieloznaczne (np." arabskiej :idea: ), poprzez polecenie znajdź...
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
To sprawdź sobie takie rozwiązanie.
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...
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.
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
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.
Potrzebuję makro wyszukujące zadaną wartość w nieokreślonym zakresie arkusza. Nie mogę określić konkretnego zakresu ponieważ zakresy są różne. Wyszukiwanie zawsze zaczyna się od A1. Makro zawierające: "For Each komórka In ActiveSheet.Cells" wyszukuje zadaną wartość przeszukując arkusz w poziomie tzn. komórka A1, B1, C1 ..., następnie A2, B2, C2 itd....
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]
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...
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
Wielkie dzięki za pomoc. Ale jeszcze nie mogę poradzić sobie z drugą wyszukiwarką. Nie wiem jak zastąpić od >= a do <=. Po jeżeli kopiuje to makro do 2 wyszukiwarki to wyszukuje mi wszystkie rekordy z bazy
Tu masz poprawki :)
Niestety, wyszukuje mi tylko dokładnie taką samą nazwę, czyli jak mam nazwę skrótową to nie chce jej przypisać to nazwy pełnej.
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
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()...
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...
Jeśli dobrze zrozumiałem to makro wyszukuje w obrębie jednego arkusza/skoroszytu
Ale ja mam tych wierszy powiedzmy około 1500. Chodzi o to powiedzmy że w komurce L1 wpisuje szukane słowo a makro wyszukuje wszystkie wiersze w których ono wystepuje.
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...
Na podstawie tych danych ( M4 i O4) makro wyszukuje wszystkie dane łącznie i pomiędzy ( zakres dat ) nimi z kolumny M , a następnie kopiuje te dane do nowego skoroszytu . Proszę o dokładne wyjaśnienie treści zadania - literalnie rozumiem to tak: na podstawie założonej daty M i daty O (wprowadzonych inputem do makra) makro wyszukuje wszystkie 20 polowe...
tak, to jest to o co mi chodzilo;] dziekuje bardzo. Mam tylko jeszcze jeden problem powiazany. Mianowicie niektorych wartosci nie wyszukuje mi w bazie, przy tych komorkach excel pokazuje mi ze liczba jest przechowywana jako tekst. nawet jesli zaznacze cala kolumne i zmienie na format liczbowy to format tych komorek sie nie zmienia, nie wiem dlaczego.
Minimalnie daj nazwe makro nie vlookup, np Sub MojLookup() lub cos inne, np Sub Najdz(), Sub Szukaj() ets.
Witam, moim problem jest wyszukiwanie za pomocą danych. Identyfikatora, nazwiska, imienia. Stworzone makro wyszukuje odpowiednie dane po czym one znikają i przeszukuje dalej.Mi zależy, aby można było wpisać tylko Identyfikator lub nazwisko lub imię. Czy ktoś naprawi mój błąd lub pokaże inne rozwiązanie?
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)...
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ę...
hmmm coś niechce działać po wprowadzeniu zmian Hmmm, coś myślę, że zmiany źle wprowadzone. :D Kod kolegi adamas_nt działa. Wrzuć plik po zmianach.
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:
tutaj wrzucam bo inaczej się nieda: http://wrzucplik.pl/pokaz/1955053---9fu3... w dodaj jest wszystko co jest zautomatyzowane, reszta to tak jakby baza danych. Chodzi o działanie przycisku przypisz na arkuszu "Dodaj" w "Dodaj/zmień asystenta. Ma wyszukać po imieniu i nazwisku odpowiedniego klienta, i zmienić przy nim asystenta na tego jaki jest wybrany...
Witajcie, Czy ktoś pomoże mi stworzyć makro, które wyszukuje wszystkie listy rozwijane w pliku Excel (wszystkie arkusze) a następnie kopiuje do nowej zakładki każdą wartość z "listy" oraz dodaje nazwę range. Przykład w załączeniu... Dzięki.
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Cześć, Dziękuję za powyższy kod. Przepraszam, że "wybrzydzam", ale w moim przypadku bardziej przyda się kod na funkcję oraz "podwójny" separator, ponieważ makro wyszukuje mi tekst zadań dla 2 pierwszych osób (osób w dziale jest o wiele więcej :( ) a takich zadań potrafi być po 200 na każde zamówienie i robi się "nieczytelny zlepiec". Korzystniejsza...
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
Witam. Potrzebuję utworzyć makro, które zawsze będzie wyszukiwało mi wyniki z ostatnich 3 dni lub ostatniego weekendu (piątek, sobota, niedziela). Przykład dla daty 10/03/2014: Filtr wyszuka mi zakres dat 7,8,9/03/2014. Obecnie mam makro, które wyszukuje mi dane z wczoraj (filtr dat->wczoraj ( xlFilterYesterday, Operator:=xlFilterDynamic)), nagrałem...
Na początek odpuść sobie transpozycję. Zastanów się najpierw czemu Twoje makro nie wyszukuje wszystkich wartości w bazie. W tej chwili wyszukuje tylko po jednej dla każdej szukanej pozycji. Dla ułatwienia podpowiem, że do tego celu najlepiej uruchomić makro krokowo i podglądać wartości interesujących zmiennych.
W komórce b1 wpisz =wyszukaj.pionowo(a1;... dalej nich zaciąga z innego arkusza). Zapytanie wpisujesz w a1 i w b1 pojawia się Tobie wynik.
Witam ponownie, Pojawił się problem o którym wcześniej nie pomyślałem. W wierszu 2 mam zastosowaną funkcję PRZESUNIĘCIE. Makro w kolumnie A wyszukuje zawsze jako pierwsze wartość z wiersza 2. Czy można zmienić zakres aby kolumna A była przeszukiwana od A4 ?
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
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...
Ale wartość ilości w kolumnie d jest wynikiem formuły, może w tym jest problem? Nie. Czy pliki WZ mają taką samą strukturę, jak te załączone tutaj? Powtarzam: na plikach, które podesłałeś, działa właściwie. Makro wyszukuje w pliku WZ kolumnę 'E' od wiersza 11 to końca. Jeżeli znajdzie szukany numer, to sumuje sztuki z kolumny 'D'. http://obrazki.elektroda.pl/4912954600_1...
cześć, poszukuję rozwiązania, które pozwoli na kopiowanie danych z jednego arkusza do drugiego. Opis zadania. W Arkuszu1 znajdują wszystkie wprowadzone przez użytkownika ( kolumny C:G ) oraz miejsce w którym, użytkownik wpisuje interesujący go zakres dat ( komórka B2 - data od, komórka B3 - data do ). Na podstawie tych danych ( B2 i B3) makro wyszukuje...
Wyszukiwanie wartości / vba z guzikiem
Witam, mam maly problem, otoz mam w exceu mala baze danych aktow prawnych i problem w tym ze chcialbym napisac makro ktore wyszukuje mi dany artykul, praraf lub cokolwiek tam Mialoby wygladac to tak ze np w komorce A1 wpisujemy "artykul 21" i idzie do komorki w ktorej jest taki zapis Generalnie z tym nie ma problemu, problem pojawia sie w przypadku...
Nie krzycz tylko napisz powoli o co ci chodzi. Chodzi o wpisanie albo funkcji, albo makro... WŁĄSNIE POTRZEBUJE MAKRO Zdecyduj się. WYSZUKAC TO I JA UMIEM ALE TO NIE JEST TAKIE PROSTE Jeżeli umiesz to powinno być dla ciebie proste W ZAŁĄCZNIKU JEST NAPISANA FUNKCJA ALE COS NIE DZIAŁA Są cztery procedury w module makra. Procedura "Wyszukaj" przeciez...
Witam, Potrzebuje stworzyć makro wyszukujące odpowiedni numer z zakresu w innym pliku i kopiujące dane. Posiadam dwa pliki: AMSTERDAM_SPC-Carbody shell_v2 oraz SPC_Raport Zadanie makro: W pliku SPC_Raport -> zakładka ‘Geometria’ znajduje się nr KTW (wpisywany z ręki) komorka Z7: http://obrazki.elektroda.pl/9144379200_1...
Witam, przerobiłem kod wg wskazówki, ale nie wyszukuje nic.
wyszukuje orange wyszukuje kanalow wyszukuje nieparzyste
volvo silnika wzmacniacz wysoka impedancja galaxy praca silnik
płyta indukcyjna płyta indukcyjna
Schemat elektryzatora EBS-872, 6 tranzystorów – opis układu, typowe usterki, zamienniki Nilfisk – lanca cieknie, wymiana O-ringów, uszczelki do myjki ciśnieniowej