:arrow: adamas_nt Jak analizuje twoje kody to widzę że bardzo daleko mi jeszcze do pisania makr. Dzięki twojej wiedzy można było skrócić czas obliczeń (przynajmniej za pierwszym razem o parę sekund :) a nie milisekund,a drugie rozwiązanie też jest ciekawe) Adamas_nt 'owi należy się wielokrotne pomógł- a może nawet więcej] Ja już tylko skromnie dołożyłem...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Sprawdź, jak to działa (załącznik). Nie wiem, jakbyś chciał liczyć ceny. Ja założyłem, że: - mamy na przykład 3 dostawy po 10 sztuk towarów, pierwsza dostawa ma towar za 1pln, druga ten sam towar za 2pln, trzecia ten sam towar za 3pln, to wtedy: - w przypadku, gdy ktoś kupuje po jednej sztuce, pierwsze elementy będą miały liczoną cenę zakupu 1pln, po...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Mam excela, w którym Do tego Excela za pomocą makra zaciągaja się dane. Pokaż to "makro" :!: - łatwiej będzie je zmodyfikować, aby dodatkowo sporządzało "zbiorówki" niż dłubać od początku :D Na podstawie Twego przykładowego pliku wnoszę, że Twoje makro inteligentnie "zaciąga" dane do uprzednio przygotowanych (do końca 2019r. :!: ) tabelek miesięcznych....
Spróbuj: [syntax=vbscript]Option Explicit Sub wyszukaj() Dim tablica() Dim ostwiersz, petla, szukajwiersz As Long Dim szukana As String ostwiersz = Sheets("9.18").Cells(Rows.Count, 3).End(xlUp).Row Sheets("9.18").Cells(1, "e") = "reverses" ReDim tablica(2, ostwiersz - 1) For petla = 1 To ostwiersz - 1 tablica(1, petla) = Sheets("9.18").Cells(petla +...
Na obrazku efekt działania makra. Dane wejściowe z załącznika. Sprawdź, czy o to Ci chodzi (liczby w kolumnach D i F są sumowane). http://obrazki.elektroda.net/17_12597370...
A musi być makro? Bo najprościej to zrobić formatowaniem warunkowym, wybierając opcję "niepuste". Formatowanie warunkowe jest dynamiczne, więc zmiany zawartości komórek będą od razu uwzględnione. Tylko jeszcze kwestia formalna: co uważasz za puste komórki? W formatowaniu warunkowym Excel uważa za puste również komórki zawierające pusty tekst oraz same...
Wstawiasz przycisk, klikasz go 2x i wpisujesz kod: ActiveCell.Value = Now Masz też skróty klawiszowe: CTRL+; wstawia datę, CTRL+SHIFT+; - czas. Data i czas to kombinacja powyższych. Możesz też stworzyć moduł Public Sub WstawCzas() ActiveCell.Value = Now End Sub i przypisać do niego klawisz skrótu (makra->opcje)
Czy ktos potrafi tak to przerobic zeby wyskoczyl inputBox zebym mogl podac slowo do wyszukania, makro odpala stronke ale w google grafice odrazu i tam szuka hasla. Otwiera pierwszą stronę i pobiera adres grafiki. Wiem, że o wiele prosze, ale daje kod, może wystarczy go tylko trochę zmodyfikować? Niestety ja nie potrafię na takim poziomie w VB pracować....
Witold nie masz racji zwiększenie chropowatości i porowatości powłoki zarówno nano jak makro owocuje zwiększeniem spawności absorbera. http://195.187.94.6/pliki/ogolne/prace%2... michal-m25 jeżeli chodzi o myśl pierwszą to zupełnie odpada, ciecz pompowana ma to do siebie że szuka najmniejszego oporu i prawie zawsze chwyci ci 1 obieg -albo...
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
Teraz działa lepiej. Choć nie jest kod zbyt dobrze napisany (to moje 1 samodzielne makro) jakoś działa. Przy każdym starcie przesuwa kursor o 2 znaki. Jak znajdzie kursuwę przed spacją i 4 cyframi - zatrzymuje się. Ponowne uruchomienie makro szuka dalej w tekście. (można sobie wywalić ikonkę makro na Wstążkę albo dodac skrót klawiaturowy do jego uruchomienia)...
Problem w tym że formuła vlookup szuka tylko pierwszej wartości więc chcę to ominąć Pomoc podręczna vba excela - metoda 'Find' - ładny przykład do przeróbki: " Example This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5 ." [syntax=vba]With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues)...
Dzięki za szybką odpowiedź pomogło ale jest jeszcze jeden problem. Opiszę to dokładniej. Makro szukaj uruchamiane jest z komórki "B12" i przez InpudBOXa szuka podanej wartości. UserForm szukaj ładowany z makro szukaj w którym jest ta pętla ma 5 przycisków CommandButton z czego: szukaj_dalej ma przeszukiwać pętlę a pozostałe zakończyć makro szukaj i...
Układ jest jednak inny niż na rysunku w post#1, więc makro szuka sobie kolumn wg nagłówków. Przeanalizuj, dopasuj do własnych potrzeb.
Poza tym, że są błędy formalne, to nie bardzo rozumiem jak ten kod ma działać. 1) zakres . Było tylko Worksheets("Arkusz1"). , a to nie jest zakres. Trzeba jeszcze określić jakoś komórki przynajmniej Cells albo UsedRange 4) Zmienną sterującą pętli jest w, a ono nie jest nigdzie w pętli wykorzystane. 5) Miejsce wklejania było zaadresowane Cells(w2, k2+1),...
Hmm "wartość szukana" w kodzie, jest deklarowana przez użytkownika, on wpisuje w ImputBox wymiar, następnie makro szuka w tablicy, jeśli jest to wymiar z tablicy odpal makro1, jeśli nie to makro 2:) chyba o to mi chodziło, dzięki chłopaki:) Dodano po 2 Oj nie z ImputBox tylko z UserForm
w tym przypadku zastosowanie formatowania warunkowego nie zdałoby egzaminu, dlatego bardzo dziękuje za makro :) niestety mam z nim jeden problem makro szuka pustych komórek I zaznacza na szaro komórki w wierszach w których są dane. Czy można zmodyfikować makro tak aby zaznaczało na szaro tylko te wiersze w których wszystkie komórki są puste?
Czyli szuka "Delivery-Number " w order i kopiuje zawsze do A w pliku B. Teraz musisz nakłonić kolegę PRL, żeby znów przerobił kod :)
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...
cześć. Mam plik spakowany "duplikaty". Exel 2013.Dane jakie znajduja się w arkuszach:"arkusz1", "arkusz2","arkusz3" to cyfry, znaki specjalne i litery.Makro szuka duplikatów zawsze w kolumnie A, miedzy arkuszami:"arkusz1", "arkusz2","arkusz3". Makro jak znajdzie przynajmniej wartość duplikująca miedzy tymi arkuszami to wstawia do arkusza"WYNIK_DUPLIKATY",...
Dane do arkusza importuje makrem z innego pliku Dane się nadpisują Po makrze, któe importuje dane do arkusza, powinno być wywołane makro któe szuka najwyższa wartość w komórkach (B3, B4,B5) i zaznacza kolorem Makro chce uruchamiać przyciskiem W temacie podałem przykład lokalizacji danych Zostawiam przykład pliku ( tak on wygląda po kazdym imporcie)
Chce jakiś przykład Analizowałeś przykład z linka? Otwiera plik, szuka tekst i kopiuje. nie znam hasła Ja chyba też nie znam hasła do Twojego pliku.
Cześć, szukam rozwiązania do jednej rzeczy. Mam taką sytuację, posiadam zmienna x, która ma kilka danych np. X(1) - 12, x(2) - 30, x(3) - 18. I chciałabym założyć, ze jeśli makro trafi na daną x=12,to usunie to z pamięci, zakładając, że pozostałe informacje zostaną, czyli 30,18, bo zostaną użyte dalej. Użyłam pętli for, gdzie szuka czy w ogóle w zmiennej...
Zastosowałem tą formułe do kolumny L, ale niestety z marnym skutkiem ;/ :?: Co to niby znaczy ? Formuła zmieniła sposób działania arkusza :D :?: Czy makro w ogóle nie ruszyło, czy tylko nie spełnia Twoich oczekiwań :?: Hej, przepraszam nie doprecyzowałem. Otóż w tej chwili poniższe makro wkleja wszystko tak jak oczekuję w pozostałe akrusze natomiast...
jak warunki są idealne (czyli oświetlenie), to stać go na dużo. W dobrych warunkach nawet mój telefon robi niezłe makro. Niech pytający napisze łaskawie czego szuka (kompkat, hybryda?), w jakiej kwocie i w jakim stanie (nowy, czy używany) to będzie łatwiej doradzić.
Cześć, Makro jest OK właśnie sprawdzam jego działanie ale nie jest to dokładnie to co potrzebuje bo zwraca całość, z stworzonych danych, a u mnie ma dopasować te dane . Myślałem nad czymś takim : Dodano po 1 Cześć, Chyba to mam, ale może jakaś optymalizacja kodu ? lub lepsze rozwiązanie tego problemu ? [syntax=vbscript]Sub Dopasuj_do_zawartosci() Columns("B").Select...
Mam pewien problem z lastRow. Napisałem poniższe makro do przeszukiwania wszystkich arkuszy w celu znalezienia "szukanej". W każdym arkuszu makro szuka od wiersza 7 do lastRow. I tu mam problem taki, że jak w Sht 1 lastRow = 7 ,a w Sht 2 lastRow =2 i załączę makro w Sht 2 to makro przeszukuje mi także w Sht 1 tylko 2 wiersze. Rozumiem to, ale szukam...
Tak nie idzie. Będę musiał jakoś inaczej pokombinować. Sądzę że jakoś to powinno być wciśnięte w wierszu: Set wbkSkoroszyt = Workbooks.Open(fold & "\" & dato & "\" & myvar(i)). Tylko nie wiem jeszcze jak dostawić operator "UpdateRemoteReferences = False" w linijkę powyżej. :) Dodano po 20 Najprostszych rozwiązań szuka się najdłużej. Wystarczy w wierszu...
Hej, podpowiedzcie mi proszę, jak zrobić następującą rzecz: Makro w istniejącym skoroszycie tworzy nowy skoroszyt, do którek wkleja dane, następnie szuka potrzebnych informacji i kopiuje je z nowego do już istniejącego. Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go
Może tak: Sub del() Dim i As Integer For i = 100 To 3 Step -1 'ile wierszy będzie sprawdzanych If Range("B" & i).Value = Range("B2") Then Rows(i).Delete End If Next i End Sub
Wydzielono z witam, Raczkuje dopiero w tym temacie, wiec prosiłbym o wyrozumiałość. Chciałbym uzyskać wsparcie / pomoc w temacie. Potrzebuje makro, które pozwoli załadować dane z drugiego pliku excela. Zależy mi, żeby nie było możliwości załadowania innego pliku, gdyż w głównym, do którego będą zaciągane dane jest cała masa formuł odwołująca się do...
Twój pomysł nie będę się wtrącał - ważne że sam myślisz. Kłopot jest w tym że po znalezieniu ciągu twoje makro szuka dalej więc pobiera pusty ciąg i znajduje ten pusty ciąg w kolumnie D więc zapełnia go danymi które notabene też sa puste. Trzeba by było przerwać makro (lub przeskoczyc do końca) jeżeli nastąpiło znalezienie jakiejś danej. np po każdym...
Witam, Napisałem makro, które z 3 podanych komórek szuka maksymalnej wartości w wierszu 1 i zaznacza kolorem. Chciałbym żeby to makro przeszukiwało wiersz po wierszu aż do 43 wiersza izaznaczało maks wartość w każdym kolejnym wierszu, czyli w wierszu 2 szukałoby po A2, D2, F1. [syntax=vb]Sub Color() Dim MaxValue Dim Cell As Range MaxValue = Application.WorksheetFunction.Max(Range(...
tak powiązane. W arkuszu 4 dane ułożone w wierszu od kolumny A do D 0123456 011-6500-011-00001/11 011-6510-011-00001/11 011-6520-011-00001/11 urbanek Makro w arkuszu1 w kolumnie A (dane są jakieś) i szuka zawsze w kolumnie A w arkuszu 2 i kolumnie a arkuszu 3 i jeśli znajdzie dane to przenosi dane do arkusza 4 i wkleja w kolejności wartości przyporządkowane
Przykład kopiowania danych dla wykresu z arkusza "baza-a.xls". Zostawiłem tę samą nazwę, żeby nie było potrzeby przerabiać później kodu. Makro szuka pliku "baza-a.xls" w tej samej lokalizacji, jeśli jest inaczej trzeba zmienić 3 linijkę kodu (podpowiedź w makrze) W pliku "baza-a" do filtrowania i kopiowania makro wykorzystuje kolumnę "O" i "Arkusz2"...
Ten program tak ma działać i tak działa. Po prostu po skopiowaniu makra do nowego pliku i ponownym jego otwarciu makro szuka pliku "licznik.txt" i jeżeli go znajdzie dodaje kolejny numer. Aby tego uniknąć należałoby np. połączyć nazwę pliku licznika z nazwa pliku excela i wtedy dla każdego nowego pliku xls będzie nowy plik txt. I tu będzie jeszcze jedno...
Formuła przeszukuje mi dane w dwóch plikach w każdym z arkusza z osobna. Jeśli nie znajdzie szuka w kolejnym arkuszu i tak do momentu znalezienia i podstawienia właściwych danych. Tutaj podaje link do pobrania pliku, niestety plik jest tak duży że nie mogę go wgrać przez portal. [url=https://turbo.to/2c4il4z9gp5r.html]... Ever.xlsb
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
Musisz jednoznacznie nazwać te obrazki, ja w przykładzie nazwałem je pic1 i pic2 (klikasz na obrazek w arkuszu i w lewo od paska formuły wpisujesz nazwę, jak w moim przykładzie klikniesz na obrazek to znajdziesz). Do tego makro, które przy każdej zmianie arkusza DANE będzie sprawdzać zakres komórek D14:D19 (oczywiście zakres ten możesz rozszerzyć, jeśli...
To makro z założenia szuka w zdefiniowanym obszarze pierwszej komórki, której ciąg znaków odpowiada wzorcowi. Np komórka wzorcowa to "olej". Makro skacze do kolumny B i po kolei sprawdza komórki w dół tak jak chciałeś. Jak napotka komórkę z ciągiem olej zapamiętuje w zmiennej "y" wartość np 324 i tą wartość wpisuje pięć komórek w prawo obok komórki...
Bardzo dziekuję za pomoc. Dodano po 2 Ok. Działa. Dzięki. PS. Możecie polecić jakiś podręcznik/ stronę inernetową w której są opisane polecenia VBA i ich zastosowanie tak aby można byloby się uczyć samemu? Dodano po 16 Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę. Wydaje mi się że w przypadku kolumny J ten...
Makro powinno przeszukać kolumnę C i jeżeli napotka słowo "dolek" to chciałbym, żeby w kolumnie D na wysokości danego "dolka" wstawiło liczbę stojącą w kolumnie B przy poprzednim "dolku". Chciałbym też żeby to makro albo drugie wstawiało kolumnę dalej wartość tylko takiego „dołka” przy którym wartość kolumny B jest mniejsza niż przy ostatnim...
Witam W załączniku jest plik Excela o nazwie "pomoc2". W tym pliku mamy dwa arkusze o nazwach: "DANE" i "BAZA". W arkuszu "BAZA" w wierszu czwartym znajdują się cyfry od 1 do 10. W skrótowym opisie jest to kolejność w jakiej powinny być wklejone dane do arkusza "DANE" dla każdego symbolu. Dla ułatwienia i czytelniejszego zrozumienia o co mi chodzi,...
Cześć wszystkim, Potrzebuję pomocy, gdyż sam się już zgubiłem.. Muszę połączyć dwa wiersze używając "&" ze spacją po środku. Banał. Z tym że chciałbym tego użyć w makrze, gdyż pozycji jest wiele. I tu jest problem. Chciałbym by makro znalazło odpowiednią kolumnę (poprzez cells find) bo nazwa kolumny będzie stała. Po czym (prawdopodobnie?) offsetem zjeżdża...
Mamy tu sytuację, gdzie wiele rekordów, pasuje do wielu. Rozpatrzmy wszystko od końca. Faza III: możemy po prostu zliczyć ilości po obu stronach (podobnie jak w fazie II) i oznaczać "do wprowadzenia" wiersze "jak leci". W obecnym kształcie, makro szuka najmniej dopasowanych w zbiorze (patrz kolejność przypisania zmiennej 'ar')* Być może trzeba dołożyć/zmienić...
Moje rozwiązanie wyglądałoby jakoś tak: https://obrazki.elektroda.pl/6113351100_... W kodzie w miejscu debug.print masz dostępne już wartości buf (dwubajtowy bufor z zapisanymi danymi) oraz zmienne L1 i L2 skonwertowane do wartości heksadecymalnych z zerami wiodącymi.
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na temat szukanych danych. Druga szuka danych z pierwszej pętli w drugim...
Witam. Potrzebuję pomocy w napisaniu makra, które znacznie ułatwi mi pracę. Makro miałoby działać w ten sposób: W kolumnach A, B, C, D znajdują się dane zamówienia. Każde zamówienie jest zdefiniowane w innym wierszu. Algorytm szuka pierwszego zamówienia, które ma wartość "1" w kolumnie D i zapamiętuje jego dane kopiując je do komórek CN4 (wartość kolumny...
makro szuka excel makro szuka makro szuka koniec wiersz
stacja ładująca xiaomi pomiar prądu magazynu energi nagrywanie plików
samsung ue42f5300 samsung ue42f5300
Wymiana oleju w skrzyni TF-71SC: temperatura i procedura BoosterJet 1.0 - Czy to dobry silnik? Opinie i analiza
