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...
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...
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...
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.
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....
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)...
Owszem, jestem tego samego zdania, jednakże wolę zrozumieć kod pisząc go, a nie dostawać wszysko gotowe, stąd moje stopniowe rozwiązywanie problemu. Jeśli jednak plik jest niezbędny, utworzę taki (w tej chwili pracuję na danych, których nie mogę udostepnić). Powracając do tematu, jak wspomniałem wcześniej, wybrałem zapis "AcitiveCell.Value = " zamiast...
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
Cześć, Na razie udało mi się zliczyć ilość kropek i wyodrebnić z komórki pojedyńcze zdania. [syntax=vbscript]Sub Wypisz() Dim W As Variant, x As Integer Dim Kom As Range For Each Kom In Selection W = Split(Kom, ".") Kom.Offset(0, 1) = "Kropek jest " & UBound(W) For x = LBound(W) To UBound(W) Kom.Offset(0, x + 6) = W(x) Next Next End Sub[/syntax] Potrzebuję...
Spróbuj takie coś: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2012-12-16, autor Darek ' Dim maxIndex, x, y As Integer Range("B1").Select Selection.End(xlDown).Select maxIndex = ActiveCell.Row Dim tablica() As Single ReDim tablica(maxIndex) For x = 1 To maxIndex tablica(x) = Cells(x, 2).Value Next x For x = 1 To maxIndex For y =...
Nagraj makro.
W arkuszu "raport" zaznaczam jako aktywną komórkę E5. Naciskam przycisk "pokaż szczegóły" do którego podpięte jest makro i otrzymuję to co znajduje się w arkuszu "wynik kliknięcia".
Witam Chciałabym prosić o pomoc w stworzeniu makra do arkusza inwentaryzacyjnego (przykładowy arkusz w załączeniu) Mam dużą bazę danych wpisywaną ręcznie przy poprzedniej inwentaryzacji jest to kilka arkuszy z kilkuset pozycjami. Wyszukiwanie przy pomocy ctrl+f jest czasochłonne. Chodziło by oto żeby wpisać część kodu kreskowego lub nazwy i odrazu na...
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...
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...
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...
Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...
Witam, postaram się skrócić wszystko jak się da. Mam tabelę z przekrojami przewodów oraz długością, np. jeżeli przewód o przekroju 0,5 ma długość 350 to makro musi znaleźć komórki o tym przekroju i długości między 300 a 400 w tym wierszu i je wyświetlić (w tym wypadku komórki D,E,F). Problem polega na tym, że jak daje trzeci argument do If-a to praktycznie...
Dokładnie tak, a warunek jest dlatego taki bo wyszukane wyniki podświetlam kolorkiem tzn jeśli chodziło mi o zmianę koloru to chodzi mi o kolor tła komórki a właściwie wierszy :) Chciałbym wykonywać to tak 1. w pierwszym arkuszu daję aby mi wyszukało i podświetliło na dany kolor // to mam już zrobione 2. jeśli arkusz jest pusty to kopiuje nagłówek tabeli...
Witam! Potrzebuje stworzyć makro które umożliwiło by mi wyszukanie niepustych komórek z jednego wiersza pełnego różnych danych. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw z zz eff d aa 7 31 2 75 ah b nh kk e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej...
Szanowny Panie Kolego adamas_nt. To jest dokładnie to, o co mi chodziło, w dodatku z praktycznymi zabezpieczeniami. Brąż to nie Brąz. Dziękuję za pozdrowienia dla żony oraz znaczący, pozytywny wkład w moje pożycie małżeńskie :) Już nie będzie mi żona przynosiła roboty do domu. Ostatnia prośba na zakończenie tematu-chodzi o makro żeby arkusz Magazyn...
Witam Zadanie które mam do wykonania polega na tym, iż mam dostępny arkusz "baza" w którym znajduje się ok 10 000 wierszy, każdemu wierszowi odpowiada kolejno w kolumnach od A do C , nr punktu , współrzędna X i współrzędna Y i muszę ustawić numery zaczynając od numeru C27 i kolejno każdy najbliższy odległościowo punkt aż do wyczerpania zapasów. Robię...
Hey, Zauważ, że w pliku 'stany magazynowe' masz 'symbol elementu' i 'numer seryjny' przenoszone z konkretnej komórki z pliku 'komponenty', a wartości 'na stanie' i 'potrzeba' masz wpisane z palca w pliku 'stany magazynowe' co oznacza, że jeżeli zaczniesz segregować materiały w arkuszu 'komponenty' to w arkuszu 'stany magazynowe' wszystko Ci się rozjedzie...
Witam z Nowym Rokiem, potrzebuje pomocy do pliku kontrolek pracy, jako, że Nowy Rok nastał czas ułatwić sobie pracę. Nie znam się za dobrze na Excelu, co potrafiłem to zrobiłem ale potrzebuje Waszej pomocy w kilku sprawach. 1) Potrzebuje Makro do zapętlenia daty; tłumaczę w arkuszu Liczydło w kolumnie Z mamy zakres dat w przedziale Z12 - Z95, potrzebuję...
Witam wszystkich, po raz kolejny wracam do vba w excelu i znowu ściana. Mam ciąg danych pomiarowych zawierających wartości w poszczególnych dniach roku dla kilku lat. Potrzebuję: - wyszukać ile jest wartości, które występowały przez określoną liczbę dni z rzędu np. 2, 3, 4 i tak do n dni, w danym roku, ale ich wartość jest większa równa 0,1 - a potem...
Cześć Mam problem, którego sam nie potrafię rozwiązać i liczę na Waszą pomoc :-) W dużym skrócie mój problem polega na tym, że mam dwa zakresy danych, na podstawie wartości z jednego zakresu muszę wyszukać wartość w drugim zakresie, jeżeli makro znajdzie tą wartość to zostawia ją bez zmian, jeżeli natomiast wartości w zakresie jest brak to usuwa cały...
Chciałbym aby po wpisaniu numeru pięcio cyfrowego do komórki "D1" makro przeszukało Range ("B3:B1000") Nie, żeby wszystko źle :) ale gdzie to przeszukanie? Poczytaj o metodzie Range.Find , wpisz w wyszukiwarkę elektrody ".Find" (bez cudzysłowów) lub zastosuj wyszukiwanie w pętli For.
Separator jest ustawiony na przecinek. Doszedłem do wniosku, że forma w jakiej makro otwiera ten plik jest całkiem korzystna, jeżeli tylko udałoby mi się znaleźć sposób na wyszukiwanie przez .find wśród dat. Próbowałem podstawić zmienną definiowaną jako "date" i do końca nie wiem, czy to działa, czy nie. W komórce wyświetla mi się co prawda "rrrr-mm-dd...
Wypróbuj poniższy kod. Założenia: - kolumna A - dane do wyszukania - kolumna B - szukane frazy - założyłem, że też tam będzie jakiś nagłówek, więc odpowiedni zakres jest deklarowany od wiersza 2, w kodzie jest odpowiedni komentarz - jako, że makro operuje na mechaniźmie filtra zaawansowanego to dane w kolumnie A muszą mieć nagłówek , który będzie użyty...
Sortowanie załatwiłem przez nagranie makra i skopiowanie tego co chciałem jak tutaj: Range("A:I").Sort Key1:=Range("B2"), Order1:=xlAscending co do wyszukiwania ostatniego wiersza z nazwiskiem możesz zrobić w pętli przez porównanie. Np (dla wierszy od D2 w dół) taką jak poniżej, to nie wiem za bardzo jak...
sprawdź załącznik
Witam, Widzę że podobne tematy były poruszane, niestety po przejrzeniu forum elektrody i googla nie potrafię do końca uzyskać zamierzonego efektu. Wyjaśniam o co chodzi. W skrócie mówiąc zależy mi na tym aby kwoty faktur A porównać z kwotami faktur B, przenieść je do kolumny obok i wskazać czy są jakieś różnice w kwotach. Łącznie istnieje 6 kolumn (adresowane...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
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ść.
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
[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...
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...
Trochę przerobiłem. Działa pod warunkami: 1) lista firm pobierana jest z arkusza "Sty". Jeśli w innych arkuszach (miesiącach) będą różnice należy do tworzenia listy użyć makr. 2) Arkusze muszą mieć taki sam układ (wspólne makro) 3) Indeks (łącze komórki pola kombi) jest wspólny dla wszystkich arkuszy.
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ł...
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)...
Proponuję makro zdarzeniowe przy założeniu, że adresy komórek z listami wyboru będą stałe. Można byłoby też wyszukiwać listy rozwijane gdyby ich adresy miały być ruchome. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "TAK" Then Select Case Target.Address Case "$G$2": Range("G8").Select Case "$G$8": Range("G12").Select...
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.
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...
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...
...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...
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....
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...
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,...
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ę...
Witam, Jestem zupełnie nowa w temacie VBA i wrzucono mnie od razu na gęłboką wodę. Mam do napisania aplikację sortującą bazę danych. Ale po kolei: na chwilę obecną potrzebuję makro które będzie wyszukiwało wartość tekstowa w 1 wierszu i jeśli ją znajdzie ustawi tam aktywną komórkę po czym wstawi 4 puste kolumny na prawo od niej. pózniej muszę wypełnić...
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...
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ć...
Potrzebuję makro do wyszukania tekstu w komórce dynamicznej i zaznaczenie całej kolumny do której należy ta komórka. Proszę o pomoc.
gdyby makro mogło tworzyć kolejne kolumny z następnymi miesiącami Minąłbym się z prawdą, gdybym napisał, że nie byłem przygotowany na ... "poprawki" ... :) ... 844629 Uwagi: 1. Spis nazwisk na oddzielnej zakładce 2. Do każdego nazwiska przypisany rok i miesiąc/miesiące kalendarza 3. Wpierw tworzymy kalendarze pracowników dla przypisanych im miesięcy...
Tak się zastanawiam patrząc na ten kod... Co będzie, gdy w jednej komórce znajdzie "koty w kinie samochodowym"? Podmieni 3 słowa w jednej komórce ("KOT w KINO SAMOCHÓD") ? Przy rozwiązaniu (at)clubs powinno zamienić całą zawartość komórki na "KOT", czy się mylę?
Pierwsze makro - czy ma znajdować jedynkę w tekście, który może być dłuższy, czy też wyszukiwać komórki tylko z jedynką, a komórki gdzie jest coś więcej ignorować?
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...
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.
Bardzo dziękuje, Własnie o to mi chodziło teraz staram sie wyszukiwać te "check boxy" :)
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...
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...
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...
Wprowadziłem formuły i formatowania warunkowe do komórek arkusza BAZA i po wpisaniu nowego kodu, istniejącego w BAZA_ETYKIET, wyszukuje ilość z BAZA_ETYKIET i odpowiednio kolorują komórki arkusza BAZA.
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...
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?
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.
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ź.
Chodzi o to, że ma dane dotyczące klas są w arkuszu "dodawania danych", z którego przenoszone są do arkusza zbiorczego a arkusz dodawania danych jest czyszczony. Napisałam coś takiego: Sub klasa() Dim ileW As Long ileW = Arkusz1.Range("A8").Value If Arkusz4.Range("C53") = Arkusz1.Range("W9") Then Arkusz1.Range("W" & ileW + 10).Value = Arkusz4.Range("E53").Value...
Część mojego makra wygląda j.n. Co należy zmienić w tym makrze, aby wyszukiwało ono nie komórki zawierające 1, ale wszystkie komórki większe od 0 lub ewentualnie komórki zawierające "1", "2" lub "3" [syntax=vbscript]Dim rng, cl, MyRng As Range, szukana As String 'ustalenie zakresu komorek zrodlowych Set rng = Range("O3:O1190") szukana = "1" 'dla kazdej...
Witam Po raz kolejny zwracam się z prośbą. Potrzebuje zrobić makro które będzie mi kopiowało wartość komórki A35 z pierwszego arkusza o nazwie "Pierw" do pierwszego wolnego wiersza w arkuszu o nazwie "Po za" Jednocześnie potrzebuje też makro które będzie wyszukiwało komórkę w arkuszu "Po za"( i kasowało ją) o takiej samej zawartości jak komórka A35...
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, 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...
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")...
Skoro masz takie wariacje wpisów jak podałeś w formule (w sumie nie ma się co dziwić przy ręcznym wpisywaniu inwencja twórcza wpisujących nie zna granic), to spróbuj wyrażeń regularnych: [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& Dim sCol$ 'kolumna z danymi sCol = "H" With ActiveSheet lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row For i = 2 To...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
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 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 wszystkich, jako że dawno nie miałem okazji popracować z makrami to niestety pojawił się problem potrzebuje napisać makro które przeszuka cały skoroszyt z 41 arkuszami i aktywuje ten który w komórce B1 ma taką samą datę jak w userform wpisaną w textbox. Dzięki za wszystkie podpowiedzi.
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...
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...
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.
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
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:) 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ść...
Witam, Żeby pozbyć się w komórce #N/D można zastosować coś w stylu: =jeżeli(czy.błąd(Funkcja wyszukująca);0;Funkcja wyszukująca) Pozdrawiam
... 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ą...
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
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...
"wobec zrewidować pod kątem niekompletne nazwiska" chodzi o to aby nie było pustych pul w nazwiskach i imieniach ?? dzięki za wskazówki, muszę się podszkolić w makrach znalazłem pewien półśrodek dodałem kolumnę z funkcją złącz tekst nazwisko imię i teraz wyszukuje się o wiele sprawniej analogicznie z miejscami :] właśnie dostałem przebłysk tematu :]...
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...
A więc to co sobie wymyśliłeś jest dosyć mocno skomplikowane. Można by próbować napisać makro, ale trzeba by przemyśleć algorytm i trochę nad nim posiedzieć... Można też próbować w następujący sposób: Każdą z baz - A - B - wrzucić do oddzielnych zakładek. Doprowadzić bazy do takiej postaci, jak na rysunku 1. Posortować pary indeks-zamiennik (najpierw...
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]...
Ale dla którego wiersza tabeli 1 ma szukać? Dla jednego czy wszystkich? Jak go chcesz wskazać jeżeli jednego? W najprostszym przypadku uruchamiasz makro stojąc w jakimś wierszu Tabeli 1. Makro znajduje numer wiersza i zapamiętuje klucz wyszukiwania łącząc zawartości komórek z jakimś separatorem, np : Kolumna 1 & "|" & Kolumna 2 & "|" &...
Piszę w Excelu pewne makro i utknąłem :( Nie wiem, jak odczytać numer kolumny, w której znajduje się wyszukana komórka, czyli w krokach: 1. Wyszukuje na arkuszu komórkę, która ma określoną treść. 2. Ustalam numer kolumny 3. Tą wartość zapisuję do jakiejś zmiennej. Jak to sensownie zrobić w VBA? Z jakich funkcji skorzystać?
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Nie jestem pewien, czy nie mylisz nazewnictwa. Pole to komórka, formularz to arkusz? Ale pomijając to, nie potrzebujesz pętli tylko funkcji wyszukującej ostatniej, niepustej komórki i wpisaniu tekstu do następnej. Być może w kodzie arkusza w zdarzeniu "Przy zmianie", ale to zależy od odpowiedzi na pytanie i działaniu (tajemniczego) pola wyboru. Zarejestruj...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
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, Twój przykład „trochę” minie zainteresował ;-) Jestem pewien, że czasem droga przez „formuły w arkuszu” jest nieco trudniejsza niż droga przez napisanie makra w MS Excel. Aby wszystko było jasne ;-) – jakiś 1- 1,5 roku temu też mi się wydawało, że najlepszym rozwiązaniem jest formuła warunkowa wpisana w komórkę arkusza...
Ale po co ci makro. Kopiujesz tekst z pliku txt. Zaznaczasz w excelu komórkę a1 i wklejasz. Zaznaczasz całą kolumnę A. W menu "Dane" wyszukujesz "Tekst jako kolumny..." . (excel 2003, XP i starsze - w 2007 też to jest tylko ja nie trafiam gdzie to teraz pochowali) Wciskasz "stała szerokość" i bez żadnych ustawień wciskasz zakończ. Lub dla pewności zamiast...
excel makro wyszukiwanie komórki wyszukiwanie komórki makro wyszukiwanie
kolejność instalowania sterowników wykrywanie dźwięku podłączyć monitor dekoderem
schemat sterownika centralnego zamka schemat kostki radia
Pilot do wieży Philips nie działa po wymianie baterii Silnik benzynowy przerywa powyżej 2500 obr/min
