Dzięki za tę funkcję, ale to raczej powinno być makro.
Sprawdź makro, które podałem Ci ostatnio. W Twoim jest pewien błąd. Otóż, jeżeli komórka A6 zawiera produkt który był w drugim arkuszu na pozycji B4, to makro nie wejdzie do pętli i zmienna y nie zostanie zdefiniowana. Druga sprawa, to przeszukiwanie kolejnego produktu, B5, B6 itd. W Twoim makrze nie ma zmiennej, która decydowałaby kiedy zaprzestać...
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
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...
Witam Potrzeba mi zrobić makro w excelu które będzie przeszukiwać arkusz w poszukiwaniu komórek w których mam wstawione jakąś liczbę np 1 i zmieniać tą jedynkę na odpowiedni tekst Pozdrawiam Dodano po 18 dodatkowo potrzebuje podobną formułkę tylko że ma przeszukiwać kolumnę czyli Range B1 do B1000 i w komórkach w których jest coś wpisane wypisuje wartość...
no jednak wciąż nie działa :/ Zobacz może jak spojrzysz na arkusz to to obczaisz. W kolumnie K znajduje cene katalogowa: Przeszukuje kazda komorke po kolei, nie działa z zakresem dlatego też wygląda to jak wygląda - obliczenia zamiast w jednej komórce rozkładają się na całą kolumne.
Mam problem dotyczący excela. Piszę makro, które ma usprawnić przeszukiwanie dokumentu. Każdy wiersz to jeden rekord. W kolumnie F mam różne wpisy: książka, film, muzyka itp. Jeśli znajdzie w tej kolumnie wpis film to ma zaznaczyć z tego wiersza komórki A,B, E, ,H, I, J oraz Z(nie wszystkie informacje są mi potrzebne i skopiować do innego dokumentu....
Szanowni koledzy mam makro które kopiuje mi całe wiersze wtedy gdy jest spełniony warunek ( makro nie jest napisane przeze mnie a jedynie dostosowane ) działa super ale warunek dotyczy tylko jednej komórki. dopisałem sobie kilka takich samych instrukcji w których tylko zmieniałem komórkę z warunkiem . Dopóki warunków miałem ze 20 to nie szukałem innego...
dzień dobry, w związku z tym, że jestem słaby w VBA, mam prośbę czy ktoś może pokazać mi przykładowy/ podobny lub fragment kodu w vba , który wykonywałby następujące zadanie : - makro w danym folderze i podfolderach przeszukuje wybrane pliki excel (pliki wybierane są wg nazw , która zawiera oznaczony fragment tekstu) , - w tych wybranych plikach przeszukuje...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Witam. Męczę się już od dłuższego czasu nad tym zagadnieniem w VBA. Jeśli chodzi o formuły excel itd. mam wszystko zrobione. (Wrzucam do wglądu) Ale wolałbym aby to było zrobione za pomocą makro ze względu na to że codziennie przy nowym gatunku muszę ręcznie zmieniać formułę grubości z 2 na 3 lub coś w tym stylu. Mimo że próbuję w żaden sposób nie umiem...
o Ile dobrze zrozumiałem pytanie to tak, makro ma za zadanie sprawdzić poprawność mapingu na bazie zamówień już zrealizowanych, więc jest to czynność jednorazowa. W związku z powyższym dzielenie na klasy i kombinowanie z upraszczaniem definicji do jednego kryterium niestety odpada ponieważ makro ma sprawdzić konkretne mapowanie, a więc konkretne "kody"...
Witam. Poszukuje informacji jak napisać makro lub przykładu takiego makro które przeszukiwałoby kolumnę A i jeżeli znajdzie dwie lub więcej komórek które mają ten sam numer (przykład numeru: 1.1.15.202) gdy znajdzie chciałbym by wówczas dodało do siebie wartości z tych wierszy (wiersz zawiera 12 komórek) gdzie są wartości liczbowe, dodam że nie wszystkie...
Jestem totalnym ignorantem jeżeli chodzi o programowanie a bardzo ułatwiłoby mi życie makro, dzięki któremu mogłabym zaznaczyć automatycznie w danej kolumnie komórki zawierające "- -" a następnie rozszerzyć zaznaczenie na całą linijkę i usunięcie ich. Jakby ktoś chciał się pobawić to będę wdzięczna :) W załączeniu przykładowy plik
Obecnie przedstawię poczynione przeze mnie próby. Na marginesie - wydaje mi się , że marek033 oraz adams_nt są na urlopie (i to całkiem słusznie) W przedstawionej tabeli w komórkach znajdują się formuły (= = jeżeli( - co prawda komórki w tabeli mam puste (w których miesiącach nie wpłacono) - ale (uwaga), makro ich nie traktuje jako puste. Jedynie te...
Można zrobić to stosując makro, które w pętli przeszuka kolumnę komórka po komórce i po napotkaniu szukanej wartości skopiuje cały wiersz do nowego arkusza. Następnie wznowi przeszukiwanie od miejsca zatrzymania i po napotkaniu szukanej wartości - kopia wiersza. I tak do ostatniej niepustej komórki. To co napisałem wygląda prawie jak przepisane od Ciebie,...
Witam Jak napisać makro które będzie przeszukiwało kolumnę A i B http://obrazki.elektroda.pl/4124127900_1... Jeżeli w kolumnie B będzie więcej niż jeden ciąg znaków to dodaje wiersz i scala komórki jak na zdjęciu poniżej wartość z komórki A wkleja do scalonej komórki a wartości z kolumny B z danego wiersza wkleja do oddzielnych komórek...
Witam, przeszukiwałem tematy ale nie mogę nic znaleźć podobnego - więc sorki jeśli gdzieś coś było.... Problem: Tabela w arkuszu (rozmiaru od C3 do AE60) importuje dane z innego arkusza i przedstawia je w postaci cyfr i literek. Chciałbym aby za pomocą kodu VBA wyniki : np jeśli pojawi się zaimportowana w daną komórkę w podanym wyżej rozmiarze litera...
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...
Spróbowałem. Niestety nie działa, albo jak kto woli działa tylko nie tak jak potrzeba :cry: . Mianowicie w obecnym kształcie makro przeszukuje kolumnę z typem łożyska (później będzie przeszukiwać wszystkie kolumny bazy, aby móc wpisywać różne kryteria szukania, nie tylko typ łożyska) i z jakiegoś powodu wypisuje wszystkie wersy gdzie komórka kolumny...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
... chodzi o przeszukiwanie pola od początku , na pewno początek powiedzmy 7 znaków bedzie takie same , jeżeli coś sie może zmienić to tylko na końcu Można wykorzystać do tego funkcję arkusza ' Find ' w składni vba: 837983 Jednak, jak wszystko zresztą, ma ona pewne ograniczenia, z którymi trzeba się pogodzić, przykładowo: jeśli poszukiwany będzie ciąg...
Witam Chcę makrem przeszukiwać komórki w bieżącej kolumnie idąc w górę arkusza. Makro zatrzyma się jeśli znajdzie określoną wartość. Jednak jest problem jeśli nie znajdzie tej wartości. Przesuwam się po komórkach poleceniem: ActiveCell.Offset(-1, 0).Range("A1").Sel... Nie wiem czemu jest w treści A1, ale działa. Teraz chciałbym...
Musiałbyś zmienić licznik pętli zmiennej wiersza: For k = 1 To ostatnia komórka Range(wiele_kolumn).End przeszukuje tylko skrajną, lewą kolumnę. Wyszukuj od pojedynczej i najlepiej od dołu (jeśli zdarzają się "okienka"). Np ostWrs=Range("B65536")>End(xlup).row Inne sposoby ostW=ActiveSheet.UsedRange.Rows.Count ostW=Columns(2).Find("*", SearchOrder:=xlByRows,...
Witam, preszukalem kilkanaście tematów dotyczących excela makr itp. i powoli uczę się krok po proku a moze mi pomożecie.Potrzebuje makra który będzie przeszukiwał arkusz1 wzgłedem danych zapisanych w np. pliku indexy1.txt lub jak trzeba bazie danych, przeszukuje w arkuszu1 kolumne C (ilość wierszy różna czyli przeszukuje aż do pustej lini) i jeśli w...
No i nadszedł problem :/ Mam taki kod: [syntax=vb]Sub NO_1() wrsDst = 6 With ThisWorkbook.Sheets("Baza") For wrs = 1 To 2000 If .Cells(wrs, 7) = "1" Then .Cells(wrs, 7).Copy ThisWorkbook.Sheets("NO_1").Cells(wrsDst... 7) .Cells(wrs, 6).Copy ThisWorkbook.Sheets("NO_1").Cells(wrsDst... 6) .Cells(wrs, 5).Copy ThisWorkbook.Sheets("NO_1").Cells(wrsDst... 5) .Cells(wrs,...
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...
Witam. Szukam makra, do excela, które będzie przeszukiwało cały wiersz numer 1, w celu znalezienia wartości np.: MSISDN oraz KOD SPRZEDAWCY I kiedy znajdzie taki wpis - usunie całą kolumnę "MSISDN" oraz "KOD SPRZEDAWCY" wraz z wartościami i danymi, które znajdują się poniżej tej komórki. Dodam, że tych niepotrzebnych wartości jest około 11, a sama oryginalna...
Witam, Szukam makra, do excela, które będzie przeszukiwało daną kolumnę i usuwało podane frazy z komórek np. faktura vat. Znalazłem coś takiego: Proszę pamiętać o używaniu znaczników code . Proszę poprawić błędy w poście. - arnoldziq
Witam, mam do napisania makro w języku VBA w którym za pomocą formularza przeszukuje bazę danych(zakres komórek) a przede wszystkim wybraną kolumnę (w moim przypadku np:imie,nazwisko) i po wybraniu odpowiadającej mi wartości reszta pól w formularzu wypełniała się automatycznie ( w moim przypadku:ulica,kod pocztowy,uwagi). Nie mam pojęcia jak się do...
Witam. Pracuję nad pewnym trackerem w Excelu do zbierania wybranych danych z arkuszów zewnętrznych. Założenie jest takie, że wchodząc w tracker użytkownik jest w stanie zobaczyć dane od początku zbierania do dnia obecnego. Główny problem tkwi w tym, że rozpisywanie tego funkcją w komórce powoduje, że otwieranie pliku robi się coraz bardziej czasochłonne,...
Witam Bardzo proszę o pomoc. Niestety moje umiejętności z vba nie są na najwyższym poziomie, a poniższe makro bardzo przyspieszyło by mi pracę. Często muszę tworzyć raport z wszystkich lat, dla szukanej przeze mnie nazwy ulicy. W załączeniu przesyłam plik z czterema arkuszami. Potrzebuję makro, które wyszukuje wiersze po nazwie ulicy. Nazwa ulicy znajduje...
wow :!::!::!: :D Patrze mistrzowie tutaj normalnie, sprawdzę to dzisiaj popołudniu. Piękna robota. Dam znać jak to wygląda :D EDIT : Chociaż nie rozumiem o co tutaj chodzi z tym przyciskiem, ale jak sprawdzę to pewnie się zorientuję. EDIT 2 : Co do makro tworzącego funkcję "prostą" wiedziałem jak użyć, tak tutaj nie mam zielonego pojęcia z której strony...
Może makro napisać co przeszukuje komórki.
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...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
Wklej tę funkcję do modułu VBA. Jeszcze jedno. To makro pozwala mi znaleźć tylko jedno słowo "AAA". Co trzeba dopisać, żeby kod szukał słowa "AAA" lub "BBB" w komórce, w której znajduje się przeszukiwany tekst
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ć...
Coś takiego tylko żeby szukało wiersze z kolumny A wiersze z kolumny B, a nie z A i B. Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 20 'przeszukiwany zakres maxcol = 20 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell...
excel makro przeszukiwanie excel makro usuwanie komórek excel makro nadpisywanie komórek
indesit płukanie wymiana żarówki punto schemat genway
drukarka laserowa poziome paski liebherr zamrażalnik
Słabe ogrzewanie w Daewoo Matiz 1999 - przyczyny i rozwiązania Problemy z ogrzewaniem w Daewoo Matiz - diagnostyka