Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
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()...
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:
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
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.
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)...
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)
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
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 <> ""...
[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...
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]
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...
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.
O! Ktoś mnie wyprzedził :) http://obrazki.elektroda.pl/7119706200_1...
Nagraj makro.
Zdaje się, że źle się do tego zabierasz. Po pierwsze musisz przypisać właściwą listę do combo w zależności od stanu przycisków opcji. Jednak najprościej dwa pola kombi, z różnymi listami, nałożyć na siebie i wyświetlać ten właściwy. Makra przypisujesz do zdarzeń i już coś się dzieje (załącznik). Filtrowanie realizujesz po zmianie w combo (podstawiłem...
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]...
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Zrobiłem coś w tym temacie... Wygląda, że działa poprawnie, jednak trzeba mieć świadomość, że przy dużej ilości danych efektywność procedury nie będzie wysoka. Po odpaleniu spokojnie będziesz mógł iść na kawę :D W skoroszycie dodałem dodatkowy (pomocniczy) arkusz "work", który jest ukryty. andie
sprawdź załącznik
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...
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...
Racja, najlepiej jak pokaże to na przykładzie: http://www.przeklej.pl/download/001apb34... Nie używaj hostingu tylko wklej plik jako załącznik na forum. Dostałem info, że nie mogę załączyć pliku w formacie open office'a więc użyłem hostingu.
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...
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
Witam, potrzebuje pomocy w stworzeniu makra które bedzie wynajdowało w ciągu znaków datę. Układ byłby następujący: kolumna A - imię i nazwisko kolumna B - numer pesel kolumna C - tekst z opisem W kolumnie C - znajduje sie ciąg znaków z tekstem, gdzie w pewnym miejscu (niepowtarzającym sie) pojawia sie data w formacie (dd-mm-rrrr). Jako efekt - chcialbym,...
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.
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)?
To sprawdź sobie takie rozwiązanie.
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
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...
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.
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
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]
W tym rzecz że kompletnie nie czaje makro.
Wiem jak szukać pojedyńczo kursywy za pomocą VBA cukrzycę 2016
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)...
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...
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")...
Następny mój problem, szukam makra które wyszukuje plik Excela, np 1111 i ten plik wysyła na domyślną drukarkę do wydruku? ktoś mi pomoże
Jeśli dobrze zrozumiałem, chodzi o "wyszukiwarkę" dodającą wybrane pozycje do kolejnych wierszy. Wtedy w grę wchodzi proste makro. Przykład w załączniku.
Pobaw się tym.
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
Witam ponownie :) Po kilku dniach testowania wyszła jeszcze jedna rzecz, której wcześniej nie przewidziałem. Czy mogę poprosić o zmodyfikowanie kodu, który Pan dla mnie stworzył, w taki sposób, aby zamiast P2, makro wyszukiwało samej 2, ale w ciągu dwuznakowym. Chodzi o to, że oprócz P2 może w zestawie pojawić się również K2. Dwójki występują tylko...
Tu masz poprawki :)
Jeśli dobrze zrozumiałem to makro wyszukuje w obrębie jednego arkusza/skoroszytu
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...
Genialne!:):):): Dzięki bardzo dobry człowieku:):):)
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.
Nagraj makro.
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...
No właśnie, zapomniałem napisać - to makro dopasowuje (wyszukuje) pełną nazwę do skróconej, czyli odwrotnie jak pisałaś. Tak jest prościej. Ale mając już dopasowaną pełną nazwę do skrótu można zamienić kolumny B z C i użyć funkcji WYSZUKAJ.PIONOWO aby je dostawić do "oryginalnych" nazw.
Up 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...
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...
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?
A gdzie to makro?
okrojony plik w załączniku.
W dość nieskomplikowany sposób można osiągnąć taki wynik: http://obrazki.elektroda.pl/6726167700_1... Trzy etapowe makro -wyszukiwanie unikatów w kolumnie B i zapisanie ich jako nagłówki kolumn w arkuszu wynikowym -wyszukiwanie unikatów w kolumnie A i zapisanie w kolumnie A -przypisanie Nr seryjnych do kontrahenta wg typu
Z braku odpowiedzi można wnioskować, że Święta tuż, tuż :) Widzę 2 rozwiązania: 1) Arkusz pomocniczy z funkcjami wyszukiwania. 2) Makro. Kroki w obu przypadkach: - sortowanie wg kodów - lista bez powtórzeń - wyszukiwanie i składanie ciągów tekstowych (zamienniki) Nie rozumiem tylko do czego potrzebna druga i czwarta tabelka. Żeby znaleźć kod wg zamiennika...
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...
... jak masz zamiar je wybierać? ... z tym mam problem ... Nie masz żadnego - po prostu w dodatkowym arkuszu ("konfiguracyjnym") w pewnym zakresie komórek (np. kolumny "A") wpiszesz sobie jeden pod drugim owe nagłówki do wyszukiwania. Makro będzie pobierać nazwy nagłówków (z tego zakresu) i wyszukiwać je w pętli po pierwszym wierszu arkusza z tabelą...
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. 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...
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...
Witam, mam problem z makrem. Potrzebuję aby makro wyszukiwało mi w kolumnie zmianę liczb. Np. mam w kolumnie F liczby: 1 1 1 2 2 2 3 4 5 5 5 6 chcę aby makro przeszukiwało mi kolumnę i jeżeli jest zmiana cyfr wstawiało wiersz prze liczbą i tak by to wyglądało: 1 1 1 2 2 2 3 4 5 5 5 6 czy da się coś takiego zrobić??
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.
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...
Wyszukiwanie wartości / vba z guzikiem
Przepraszam poprzednio nie opisałem dokładnie co bym chciał osiągnąć. po wciśnięciu przycisku nr 2 w pliku "test1.xlsm" chciałbym żeby makro wyszukiwało wartości znajdujące się w pliku "test.xlsx" w kolumnie "D" i szukał ich w pliku"already late.xlsx" w kolumnie "C". I w przypadku gdy nie znajdzie danej wartości, żeby skasowało wiersze w pliku "test.xlsx"...
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...
Witam, przepraszam za przerwę ale inne obowiązki musiałem wpierw rozwiązać, wracając do tematu plik zawiera dane które spływają z innego pliku lecz czasem zdarza się że trafiają tam dane o takim samym numerze więc dla porządku i by nie trzeba było szukać dwóch o takim samym numerze dobrze by było by makro po wykryciu dwóch o takim samym numerze po prostu...
A znasz jakiś inny program, który ma takie zastosowanie jak to makro?
Panie Macieju, Bardzo dziękuję za wyjaśnienia. Pana post sprawił, że wzbogaciłm się o bardzo cenną wiedzę. Działa - Bardzo dziękuję za pomoc! Czy wyświetlanie kolumny od aktualnej daty (przy założeniu że w wierszach są daty DDMMRRRR) jest możliwe bez makro?
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.
Witajcie. Mam problem natury programistycznej, a może tylko formułowej w pracy z excelem. Próbuje stworzyć coś na kształt kalendarza uzupełnianego dynamicznie. W jednym arkuszu "Zadania" mam w kolumnie A nazwę zadania do wykonania (blacha 1, blacha 2 itd), a w kolumnie B termin wykonania. W drugim arkuszu "Marzec" mam ładnie podzielone dni miesiąca...
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...
Witaj, Być może tylko makro
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ł...
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...
Faktycznie strasznie zawile to tłumaczysz. Chyba się domyślam scenariusza, pewnie zmieniono indeksy magazynowe, a tym masz zrobić zestawienie z poprzedniego roku kiedy były jeszcze stare, tak aby można było porównać dane z tymi z roku bieżącego. Masz dwie operacje. 1.Zamiana indeksów 2.Sumowanie Uważam, że makro zbędne. No chyba, że będziesz to robił...
Większą elastyczność zapewniłby kod VBA wykorzystujący wyrażenia regularne Z wykorzystaniem wyrażeń regularnych można tą procedurę przeprowadzić np. tak jak na zrzucie i w załączonym pliku :D 1128325 Skrót ctrl+i wywołuje makro, które wyszukuje indeksy ze stringów w kolumnie A. Jeśli wystąpią dwa indeksy to są listowane w kolumnie obok :spoko: 1128326...
...Niestety jestem zielony w tworzeniu makr ... Nie chcę by to zabrzmiało jakbym chciał Cie urazić/obrazić ale ... nie masz pojęcia, ani o makrach, ani o tym jak "działa" excel, ani nawet o podstawach programowania, więc nie wiem dlaczego podjąłeś się pomagać innym w czymś o czym nie masz zielonego pojęcia. Excel nie jest aż tak rozbudowany jak mózg...
Pytanie dot. [url=http://www.elektroda.pl/rtvforum/to... Mam problem z przerobieniem tego makra. Chodzi o to, że u mnie dane są przesunięte. Nie występują też przerwy w przeszukiwanych danych, ale to najmniejszy problem. W załączniku przestawiłem dane w Arkuszu 2 - chodzi o to, że nie wiem jak to makro przerobić, by baza była przeszukiwana...
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
Witam Panowie potrzebuję pomocy przy stworzeniu makra które: Będzie wyszukiwało Komórkę w drugim arkuszu o takiej samej nazwie jak w komórce B18 w pierwszym arkuszu i dodawało do komórki przesuniętej o dwie kolumny w drugim arkuszu wartość komórki K18. Ktoś pomoże? Pozdrawiam
zwróci tą wartość do komórki A2 w innym arkuszu "Arkusz 1", następnie znajdzie następną niepustą i zwróci ją w A3, kolejną w A4 itp Proponuję jednak zrobić przykładowy plik z ewentualnym opisem co ? i kiedy ? ma robić to makro ? - np jeśli zmieni się "wypełnienie" kolumny D niepustymi komórkami to przy kolejnym przebiegu makra - mają być kopiowane...
Taki zapis nie będzie działał, ponieważ suma ma dotyczyć tylko kolumny dane!E:E, nie można mnożyć wartości tekstowych (błąd LICZBA!).
Metoda ogólna: zarejestruj makro w którym zrobisz tylko wyszukiwanie. Następnie wejdź w to zarejestrowane makro i już masz co poprawiać. Podczas poprawiania powinna (u mnie nie zawsze jest) uruchomić się podpowiedź.
Witam, Stworzyłem plik EXCEL z makro, który wyszukuje po kolumnie automatycznie filtrując - pokazując przefiltrowanine dane. Problem polega na tym że jak chce wpisać do textboxa z drugiej kolumny program zaczyna szukać po tej kolumnie pomijając filtr z pierwszego textboxa. http://obrazki.elektroda.pl/3810156800_1... Czy jest możliwość...
To tylko makrem
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...
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...
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ść,...
Cześć Jestem początkujący w VBA. Próbuję stworzyć makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" w komórce która jest ich wynikową ( komórka która jest wynikową przeciecia się wiersza z kolumną). Poglądowe zdjęcie w załaczniku tzn. Jeżeli ćwiczyłem 04.04 martwy ciąg to X powinien zostać wpisany automatycznie w komórkę...
wyszukuje orange wyszukuje kanalow wyszukuje nieparzyste
skrzynia automatyczna dodge przetwornica xenon działać magneto naprawa
WPEW - Wielofazowy Prostownik i Inne Zastosowania Zamiana wtyczki głośnikowej 2DIN w lampce LED