W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
[syntax=vbscript]Sub Dopisz() nw = Cells(Rows.Count, "C").End(xlUp).Row + 1 For x = 5 To nw If Cells(x, "C") = "" Then Range("C" & x) = "Szukaj pierwszej wolne i wpisz, za każdym kliknięciem" Range("D" & x) = "1" Range("F" & x) = "Przykład" Range("C" & x).Interior.ColorIndex = 37 Range("E" & x) = Application.UserName Range("C" & nw + 1).Activate Exit...
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:
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Dodałem opcję czyszczenia.
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
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
sprawdź załącznik
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.
Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...
Odszukaj ten fragment i dodaj ostatnią linijkę: 'kopiuj wartości wscel.Cells(wstaw, 3) = wsbaza.Range("B" & i) wscel.Cells(wstaw, 4) = wsbaza.Range("C" & i) wscel.Range("B" & wstaw) = szukaneTabl(r, 2)
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
Z czym dokładnie masz problem? Nie napiszemy całego skryptu za Ciebie. Pokaz, co już masz, a wtedy doradzimy. Kolumnę zaznacza się tak: [syntax=vb]Columns(2).Select[/syntax]
O! Ktoś mnie wyprzedził :) http://obrazki.elektroda.pl/7119706200_1...
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
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...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Zdecydowanie łatwiej się porozumieć na bazie załączonego pliku . Widać wtedy różne niuanse, które mogą wydawać się z pozoru nieistotne, a poza tym można przetestować proponowany kod. Powinien działać kod: [syntax=vbnet]ActiveCell.Value = Application.WorksheetFunction.VLookup("s... Worksheets(Range("B6").Value).Range("A:E... 5, False)[/syntax]Zakładam,...
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....
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
Najprościej zaciągnąć dane kwerendą (jak leci), http://obrazki.elektroda.pl/2859189500_1... ew. można zoptymalizować, czyt. wyrzucić co niepotrzebne. Nagraj makro wykonywania w/w czynności, a do wyszukiwania użyj arkuszowych formuł...
Witam Znowu potrzebuje pomocy :(. Musze napisać makro które będzie pobierało dane z arkusza o nazwie DATA do pierwszego arkusza w czasie rzeczywistym bez klikania ikon. Czyli jak w arkuszu pierwszym w pierwszej kolumnie ktoś wpisze "KOZA" to makro wyszuka liczbę kóz z arkusza DANE i wpisze ją w drugą kolumnę w pierwszym arkuszu. Jak wpisze DOM to wyszuka...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Przetestuj następujące makro [syntax=vb]Sub GetVIN() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "D" With ActiveSheet sRegExpPatt = "[A-Z0-9]{17}" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp")...
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
Hej zaczynam dopiero przygodę z makrami. Jestem typem osoby, która najlepiej uczy się i analizuje swoje błędy na prostych przykładach. Załączam plik, który przypomina plik, który chce zautomatyzować. Z danego pliku chcę 1) Wyszukać numery projektów (arkusz formatka) przypisanych do każdego z pracowników (lista wybierana pracowników z zakładki "projekty")...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Zanim spreparujesz kolego Adamas_nt takie tajemnicze makra, to uprzedź osoby, które Ci mają pomóc w ich prawidłowym działaniu: 1. co już zrobiłeś ? 2. co chcesz uzyskać ? 3. jakie napotkałeś problemy ? Dodatkowo przed wysyłką takiego testowego arkusza sprawdź Adamie, czy ze względu na osadzone w nim łącza będzie on działał po testowych modyfikacjach...
Drogi Kolego robisz fałszywe założenie, że przy rozwiązywaniu jakiegokolwiek problemu w Excelu - jakiś "pomagier" czy makro - będą mądrzejsze od Ciebie. Twój niejednoznaczny opis zadania i skromny "przykład" wskazują, że mamy do czynienia z jakimiś funkcjami nieodwracalnymi (dziedzina A{79654100, 99998888, 11112212, 40042211} - wartość funkcji B{g}...
Witam, mam pytanie chciałbym napisać makro albo zrobić pole w którym po wpisaniu danej wartości, excel szukał by "kolumnie A" wpisanej wartości np 23. Następnie kopiował dane z kolumny B,C,D znajdujące się obok wartości 23 w inne miejsce
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...
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"...
Kopiuje wszystkie malinowe wiersze. Ma być inaczej?
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...
https://obrazki.elektroda.pl/7268233500_... Ten artykuł powstał w odpowiedzi na propozycję kolegi (at)Techekspert i jest rozwinięciem mojej prezentacji przedstawionej na konferencji The H(at)ck Summit w dniu 20 października 2023 r. Samą prezentację możesz pobrać stąd: Wyrzucamy algorytm Gutmanna do kosza Podstawowe informacje o niszczeniu...
Witam, Jaki parametr należy wpisać do Find i Replace by makro wyszukiwało /zamieniało/ dane w zależności od potrzeb w całym skoroszycie lub tylko w aktywnym arkuszu.
Można przypisać dowolną kombinację klawiszy do makro wyszukiwania (żeby łatwo było je uruchomić) np. takiego: Cells.Find(What:=Cells(1, 1), After:=ActiveCell, SearchOrder:=xlByColumns).Select Jeszcze lepiej zastosować przypisanie opisane w moim poprzednim poście (...)What:=strSzukana(...). Do szukania tylko w 1 kolumnie można...
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Trochę nie rozumiem jak chcesz przygotować/zmodyfikować makro jeżeli już ta mała funkcja to już nie Twój poziom. Wydaje mi się, że istnienie/dostępność foldera można sprawdzić niemal natychmiast, podobnie jest z otwieraniem pliku o znanej nazwie. Nie rozumiem skąd to opóźnienie, pewnie makro robi coś o czym nie wiem, jak to już ktoś wcześniej napisał....
Podmieniłem plik w poprzednim poście. Uprościłem tabelkę (i tak i tak kod będę kopiował do właściwego pliku, więc nie jest to takie istotne). Tak, wartości z urządzenia pomiarowego będą się pojawiały co 15 minut, ale nas do celów badawczych interesują wyniki odnotowane o tych konkretnych godzinach, co w nagłówku (tj. 80% wyników dostarczonych przez...
Cześć wszystkim Potrzebuję zrobić automatyzację dla istniejącego pliku ze ścieżkami xls. Chodzi o szybkie otwarcie i zrobienie wydruku. W pliku jest baza kilkudziesięciu tys. ścieżek z polem wyszukiwania (standard z wyszukaj pionowo) i właśnie chciałbym wykorzystać to pole do zrobienia makra. Po wpisaniu dostaję ścieżkę do pliku i hiperłącze. To co...
Okazuje się, że jedno z makr u mnie zawieszało się z powodu znaków napotkanych w dokumencie WORD. W moim wypadku było to: (ten niby znak Celsjusza to w WORD znak "twardej spacji") https://obrazki.elektroda.pl/8057089200_... https://obrazki.elektroda.pl/7571874900_... https://obrazki.elektroda.pl/4345186000_...
Do tego wystarczy formuła: [syntax=text]=FRAGMENT.TEKSTU(C2;SZUKAJ.... Jeśli koniecznie chcesz makro, to wypróbuj takie z użyciem wyrażeń regularnych: [syntax=vbscript]Sub Wyciagnij_Daty() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania...
Hej, Planuję do jednego z logów wstawić takie coś: Do jednej z komórek wpisujemy konkretną wartość, w tym przypadku datę, następnie klikamy stworzony przez nas guzik aktywujący makro wyszukujące w tym konkretnym sheecie. Czy jesteście w stanie pomóc mi coś takiego napisać? Można by było po prostu użyć ctrl+f, ale ten plik ma "ładnie" wyglądać, dlatego...
Hej, szukam pomocy, ponieważ poszukuję makra, aby excel aktywną komórkę wpisał w polu wyszukiwania w outlooku. Jedynie co znalazłem to niestety pobieranie wszystkich maili, bądź otwarcie ostatniego maila, a mi zależy jedynie na powyższym. Wiem, że to wydaję się proste, ale chyba tak proste to nie jest :( Błagam o pomoc. Z góry dziękuję za pomoc.
Witam, Nie mogłem znaleźć nigdzie satysfakcjonującej odpowiedzi na dręczący mnie problem makra. Mianowicie, prowadzę magazyn za pomocą excel. Wprowadzamy dane skanerem, ale przy wydawaniu, wyszukujemy konkretny numer etykiety poprzez Ctrl + F a następnie zaznaczamy kolorem żeby potem zastosować filtrowanie przez kolor komórki. Teraz chciałbym zrobić...
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...
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...
wyniki wyszukiwania wyniki wyszukiwania opcje wyszukiwania pasek wyszukiwania
lodówki bosch opinie nierówna praca silnika gazie panasonic przewijanie
narzędzia ogrodnicze narzędzia ogrodnicze
Class 250 IEC 60085 – izolacja termiczna 250°C, materiały polimidowe, zastosowania lotnicze Resetowanie centrali alarmowej RISCO GTI - usuwanie błędów
