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.
Witam, Chciałabym stworzyć makro, które wyszukiwałoby w drugim arkuszu po kolumnach komórkę zawierającą te same dane i kopiowało określoną ilość wierszy znajdujących się w tej samej kolumnie pod tą komórką. Konkretnie: W arkuszu "metryka" w komórce M8 znajduje się nazwa sekcji, którą trzeba wyszukać w arkuszu "profil geologiczny" w pierwszym wierszu....
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...
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 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ę...
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,...
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ć...
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ę...
excel makro wyszukiwanie komórki wyszukiwanie komórki makro wyszukiwanie
oczyszczenie drutu miedzianego saunier duval działanie zestaw mieszający podłogówki
nokia phoenix software makita migają diody
Znaki ustawienia pompy wysokiego ciśnienia w Renault Laguna 2 2.2 DCI Citroen Jumper 2017 - nie działają kierunkowskazy
