sprawdź załącznik
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)...
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
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...
Skoro potrzebujesz pomocy przy stworzeniu makra to pokaż co sam zrobiłeś chyba, że jednak potrzebujesz gotowca. W makrze możesz wykorzystać metodę Find, albo funkcję Podaj.Pozycję - Match (znajdzie się jeszcze kilka innych sposobów) do znalezienia szukanej komórki, a wtedy przesuwasz się offsetem o dwie kolumny i wpisujesz wartość.
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
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....
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...
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
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...
przykro mi ale widzę że niedokładnie przeczytałeś mój opis potrzebuje żeby przy każdym kolejnym dołku wartość wstawiana była z komórki obok poprzedniego dołka.
Widocznie "stop" nie jest ostatnią pustą... Spróbuj z wyszukiwaniem [syntax=vbscript]Sub Makro() Dim target As Range Dim wrs1 As Integer Dim ostWrs As Long Dim i As Long Set target = ActiveCell wrs1 = target.End(xlUp).Row On Error Resume Next ostWrs = Columns(target.Column).Find(what:="stop"... lookat:=xlWhole).Row If Err > 0 Then MsgBox "brakuje znacznika...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Zupełnie mnie nie przekonuje to rozwiązanie, wpisywanie wartości w jednym arkuszu a potem wyszukiwanie wg kilku kryteriów, automatyczna zamiana lub dopisanie itp. Trochę za dużo kombinacji. Trzeba pamiętać, że działania makr są nieodwracalne, najmniejszy błąd i pozamiatane :( Oczywiście makro jw. da się napisać :) Proponuję inne, wg mnie prostsze rozwiązanie...
Pisząc kod jak poniżej: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then wszystko działa tak jak chciałem, ale tylko w zakresie podanej komórki. A czy można i jak zapisać aby działało w całej kolumnie? I jeszcze jedno pytanie: Wiersz = ActiveSheet.Cells(ActiveSheet.Rows.Count... "D").End(xlUp).Row -formuła wyszukuje...
Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...
(at)prl ta opcja co podałeś, dopisuje wartości do ostatniej komórki i z tym sobie poradziłem, ale jak zrobić, żeby uzupełniło wolne komórki w tabeli ? Tak jak w przykładzie.
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
Witam, Posiadam makro wyszukujące w kolumnie A1 komórki zawierające określoną wartość, wynikiem tego wyszukiwania jest zakres komórek zawarty w zmiennej typu Range. Chciałbym następnie ten zakres rozszerzyć o kilka kolejnych kolumn np. B,C,D (ilość wierszy oraz ich adresy zostają takie same jak na początku, dochodzą tylko kolejne kolumny). Jak coś takiego...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
W linii 21 Set kom = wksN.Columns(2).Find(What... LookAt:=xlWhole) Jeśli prawdziwe jest If kom Is Nothing wychodzisz z procedury bez zerowania zmiennych obiektowych (które sobie będą siedzieć w pamięci). Unikniesz tego stosując Else... If kom Is Nothing Then MsgBox "Nie ma podanej komórki." Else On Error GoTo 0 wksR.Range("C1:D1")...
Makro to wyszukuje komórki z tłem i je sumuje Trzeba było napisać ;) : "Makro ma sumować wartości komórek z określonym kolorem tła". Ale to nie powinien być problemem, żeby zmodyfikować podany przeze mnie kod? No dobra ;) Sub sumowanie_w_zaznaczeniu() '(c) "fascynat" 'Sumuje wartości komórek o określonym kolorze tła w zaznaczeniu...
Nie da się tego przedstawić w formule, ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik. Tak samo, żeby makro zliczało wszystkie powtarzające się wartości i do nich odpowiednio przypasowywało dane.
Ja bym zrobił makro, które w pętli będzie wyszukiwało pierwsze wolne pole w kolumnie B i tam wstawiało wartość z A1
poszukuje makra VBA które z wiersza wyszuka wartości z wpisanego warunku np P0 i jeszcze np 10 cyfr . lub 88 i jeszcze 6 różnych cyfr a wyszukane wartości skopiuje do sąsiedniej komórki PS . 9700 wierszów do ewentualneog ręcznego przejrzenia
Zaimportowałem plik raportu miesięcznego magazynu do Arkusz1 , mam w nim trzy kolumny : nr dokumentu, nr zlecenia i wartość. W pliku występuje co losową ilość wierszy podsumowanie danego zlecenia. Potrzebuję makro wyszukujące wiersz w którym w komórce (pierwsza kolumna) wystąpi tekst „Razem konto” a następnie zostanie wykonane kopiowanie...
Witam Potrzebuje pomocy z napisaniem makra ale nie za bardzo wiem jak się za to zabrać. Jeśli ktoś mógłby pomóc byłbym wdzięczny. Mianowicie chodzi mi o makro , które wyszukuje w wierszu komórki o wartości np: 100, 200 i 300, jeśli znajdzie w wierszu wartość 100 przechodzi do pierwszej kolumny tego samego wiersza i wpisuje np "aaa", jeśli znajdzie 200...
Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....
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...
Witam Mam problem a mianowicie mam folder, który zawiera około 2000 plików excel, które różnią się od siebie tylko końcówką nazwy (przykład - dok_1, dok_2, dok_3 itp.) mam też nowy arkusz excela o nazwie "wyszukiwanie" w którym chciałbym aby po wpisaniu danej części nazwy (1, 2 lub 3) wyszukał mi dany plik i z tego wyszukanego pliku skopiował mi do...
Witam, Potrzebuję makra które wyszukiwałoby danych zawartych w innej komórce, a następnie zamieniało znalezione wartości innymi danymi, tak abym mógł zmienić tylko wybrane wartości w tekście, zawarte w oddzielnej komórce a następnie zmienić je na wartości z kolejnej komórki. np. dla wartości: http://obrazki.elektroda.pl/1877443800_1...
Dziękuję, to rozwiewa moje wątpliwości na ten temat. Skrypt jest skończony i działa rewelacyjnie. Dziękuję bardzo :) Pojawił się kolejny temat: Napisałem skrypt, który powinien wykonywać następujące kroki po wciśnięciu guzika "Uzupełnij": 1. Pobierać wartość z zaznaczonej komórki i wyszukiwać je w tej samej kolumnie, ale wyżej (pomijam warunek, żeby...
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...
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]...
Witam. Jak stworzyć makro, które w Arkuszu1 we wszystkich wierszach w kolumnie A wyszuka komórki w których znajduje się wartość np "b2" (wartość b2 jest częścią ciągu jakiś znaków w danej komórce np. takb2abc) a następnie wklei wszystkie znalezione komórki ( z całą zawartością ) do kolumny B w Arkuszu3?
Witam Mam problem ze stworzeniem makra w vba które wyszukiwało by kolejne wystąpienia dla tego samego kryterium. Korzystałem do tej pory z kodu vba który jest poniekąd odpowiednikiem funkcji wyszukaj pionowo, z tą różnicą że zwracana kolumna jest zapisana w bezpośrednio w kodzie : Function WyszukajP (data As Date, zakres As Range) As String Dim komorka...
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"...
w wykazie powinien pozostać tylko jeden wiersz z zsumowanymi danymi liczbowymi i tym numerem. Tzn. 7 komórek?(Numer i 6 wartości liczbowe ) Wiersze z pojedynczych numerów pominąć?( w wykazie nie będzie) Wykaz w osobnym arkuszu?
Witam, Proszę o pomoc w wyszukiwaniu pionowo gdy w przeszukiwanej tabeli nie ma szukanej wartości; Mam taki kod: [syntax=vbscript]Sub makro dim komorka as long komorka = 4 On error resume next do while cells(komorka,1) <> "" cells(komorka,2) = worksheetfunction.vlookup(cells(komorka,... worksheets("arkusz1").range("B:C"),2,0) komorka = komorka...
CZeść czy ktoś mógłby mi pomóc w treści kodu makra, który wyszukuje na podstawie danej wartości w komórce np.AO1O_00123456_0 wyszukuje wartość która jest nazwą pliku i automatycznie dodaje hiperłącze? Tzn w moim przypadku wyszukuje po całej wartości która jest w komórce np. AO1O_00123456_0, a chciałabym żeby móc również modyfikować kod żeby wyszukiwał...
Witam Jak można makrem zaznaczyć komórki w kolumnie A, w których wartość jest "aa". Chodzi mi o pojedyncze zaznaczenie komórek w kolumnie, a nie zakresu Dodano po 15 W sieci znalazłem takie makro, które zaznacza pierwszą komórkę spełniającą warunek, ale nie wiem jak przerobić, aby zaznaczało mi wszystkie komórki spełniające warunek [syntax=vbscript]Sub...
Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym aby pętla kopiowała mi te wartości określoną ilość...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
W tym skoroszycie już tak masz namieszane z tym Twoim ukrywaniem arkuszy i zakresów komórek, że do momentu uzyskania stabilnego działania makr powinieneś odpuścić wszystkie komplikacje. Pamiętaj o czyszczeniu całego zakresu "wynikowego" przed nowym wyszukiwaniem np po wydruku lub przed wejściem do nowego wyszukiwania. Dla drugiego wyszukiwania powinieneś...
Witam serdecznie. Szukam funkcji w vba, która weźmie wartość z jednej komórki i wyszuka ją w innej komórce. O ile jakąś sztywną wartość wiem jak wyszukać to jakiejś wartości komórki już nie. Np. w komórce A1 wpisane jest "N_123_123" a w komórce B5 jest "abcd N_123_123 abcd" i funkcja powinna mi znaleźć i zwrócić wartość z komórki B5. Następny problem...
skopiuj wartości z komórek od M do R i wklej do kolumny C :?: :cry: Jak to chcesz zrealizować ? Wklejanie pięciu wartości komórek do jednej :D i to do kolumny z loginami :?: Do czego Ci potrzebne wyszukiwanie pionowe ? Znasz ograniczenia tej funkcji ? W Twojej tabeli w kolumnie C na pewno nie powtarzają się loginy ? Zrób i pokaż przykładowy plik z...
Chodzi o to (ostatni post)? http://www.elektroda.pl/rtvforum/topic11... W miejsce komentarza Twoje makro wystarczy wpisać np: Worksheets("Arkusz1").Range("A2:A5").Fin... 21*").Select Lub przypisać do zmiennej wartość komórki A1. strSzukana = "*" & CStr(Cells(1, 1)) & "*" i wprowadzić poprawkę: (...).Find(strSzukana).Select p.s. Excel...
Witam, mam wielką prośbę o pomoc. Potrzebuję stworzyć makro, które będzie podmieniało wartości komórek w kolumnie w zależności jaka wartość tekstowa zostanie znaleziona. Przykład: Mam komórki które zawierają: Dobre_Kino Kina Super_kino_ Samochodu Jadę Samochodem KOTEK Dla_kota Makro powinno wyszukiwać ciągi tekstowe: "kin", "samoch", "kot" i tak gdzie...
Wiesz o Jego RODO się nie dopytywałem, ale Mu o tym wspomnę, czy wziął to pod uwagę, albo chociaż dopisek na kwitku, że dane są wzięte tylko i wyłącznie na cel przechowania opon i nie są nikomu udostępniane i przekazywane. Co do dodatkowej kolumny, to jak się doda na samym końcu lub początku, to też konieczna jest modyfikcja makr? Jak sobie zapisze...
Witam, Potrzebuje Waszej pomocy. Potrzebuję formułę lub makro, które będzie wyszukiwać mi "wyrażenie" które znajduje się w jednej komórce w ciągu zdania. Dla przykładu i wyjaśnienia wklejam przykład: 1097 SPORT:1313 VER:31424441 MAZDA ORD:9470 - SERVIZI ROMA SPORT:3142 Takich linijek mam w arkuszu okolo 200 każda przeważnie jest inna. W ciągu tej linijki...
makro wyszukiwać komórka excel makro wyszukiwać komórka makro sprawdzać wartość komórka
czujnik chłodniczy schemat denon amplituner motor sport
ogrzewanie elektryczne ogrzewanie elektryczne
Kod odblokowujący radio SEZ2Z6C1242397 Problemy z jednocylindrowym silnikiem Diesla Yanmar po remoncie