: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...
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....
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....
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...
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...
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
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 +...
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ć....
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...
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...
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...
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.
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?
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
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),...
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",...
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...
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)
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 :)
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania i dlatego zwracam się do ciebie poprzez PW. Makro...
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...
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...
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...
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"...
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...
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.
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...
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...
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...
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,...
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ć...
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
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...
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
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...
Witam Chciałem dodać przycisk typu ON/OFF ukrywa i odkrywa obszar Mam stworzone dwa makra makro1 ukrywa obszar makro2 odkrywa obszar W sieci znalazłem sposób który pozwala na taką sztuczkę ale nie wiem gdzie to podstawić do obecnych wartości aby to działało. znaleziony kod Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then Call...
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
[syntax=vbscript]Sub UsunLinie() w = Trim(InputBox("Wpisz szukany tekst:", "Szukaj tekstu", "WebService")) Selection.HomeKey Unit:=wdStory For Each l In ActiveDocument.Paragraphs l.Range.Select If InStr(1, l.Range.Text, w) > 0 Then Selection.Delete Unit:=wdCharacter, Count:=1 End If Next End Sub [/syntax]
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...
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...
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...
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...
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.
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
szuka makro excel makro szuka makro szuka koniec wiersz
ricoh reset bębna wymiana grzałki grubość maszt
kenwood schematy kenwood schematy
MAN TGA - Niedziałający wyświetlacz: Diagnoza i naprawa How to Program Universal or Roku Voice Remote to TCL Roku TV – Codes 11756, 12434, Pairing Steps