Czy to koniecznie musi być makro? Bo to co chcesz zrobić można załatwić funkcją WYSZUKAJ.PIONOWO, dla przykładu z załącznika w komórce D2: [syntax=vb]=JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIO... przeciągnąć w dół...
Witaj Po mojemu powinno być coś takiego:[syntax=vb]Sub KopiujZakres() Dim c As Range For Each c In Range("A1:Z1") If c.Value = "XYZ" Then Range("zak").Copy c.Offset(10, 0) 'już po robocie, więc Exit Sub End If Next c End Sub[/syntax]
A dlaczego nie podstawić wartości z komórek? Np w D7: =SUMA.WARUNKÓW(Arkusz1!$L$4:$L$382;Arkus... A7 ;Arkusz1!$G$4:$G$382; B7 )
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ć...
Powiem tak: przeczytaj jeszcze raz mój ostatni post #8 (tak od połowy) i porównaj z tym, co masz. Obecnie każdy z 4 argumentów funkcji WYSZUKAJ.PIONOWO (tej z ostatniego załącznika) masz zły :) Grunt, to dobrze zrozumieć tą funkcję: może Wyszukujemy wartości komórki (dajmy na to) U17; przeszukiwany zakres to Y6:AC59 i szukam tego w kolumnie 1. Czy tak?...
Wyszukaj ile razy występuję wartość 0001 w arkuszu 2 w zakresie komórek a1:a100. W przeszukiwanych kómórkach występują wartośći oddzielone znakiem ; np - A1 0002;0005;0004 - A2 003;004;001
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....
Wstawiłbyś załącznik z przykładowymi danymi, to nie musiałbyś się tyle rozpisywać. Wracając do meritum sprawy, to można użyć formuły wyszukaj.pionowo, np: [syntax=text]=WYSZUKAJ.PIONOWO(K2;ADR.PO... gdzie: komórka K1 - oznaczenie przeszukiwanego bloku danych komórka K2 - oznaczenie szukanego...
w komurce obok tej w ktorej wybierasz wartosc, klikasz na funkcja, następnie szukasz funkcji o nazwie "wyszukaj", wybierasz ją, i zaznaczasz - "szukana_wartość;przeszukiwany_wektor;we... następnie ok, wskakuje okno argumenty funkcji. W polu "szukana_wartość" podajesz adres bezwzględny (taki u mnie lepiej działał np. $a$1) komórki w której...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
Wszystko zależy od tego, w jakim formacie będziesz miał dane, które dostaniesz. W przykładzie jest to x, y, z, x, y, z na przemian. To by oznaczało, że już przy pierwszym pytaniu pojawią się wszystkie nazwiska, jeśli nic się nie zmieni. Możesz skopiować te nazwiska (jednokrotnie, tak jak w arkuszu na drugiej stronie) i wkleić je tam, gdzie być mają....
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. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
Dzień dobry, Potrzebuję pomocy w napisaniu kodu VBA który przeszuka mi cały skoroszyt z wieloma arkuszami i podświetli na na jakis kolor wiersz z wyszukaną wartością. Chciał bym aby to wyglądało tak że w określoną komórkę wpisuje szukaną wartość i klikam na przycisk "szukaj", następnie wszystkie arkusze są przeszukiwane i jeśli szukana wartość znajduje...
Widzę że chcesz to zrobić dla wszystkich arkuszy w skoroszycie więc pętle musisz zrobić jako pierwszą czyli najpierw przeszukujesz jeden arkusz usuwasz i przechodzisz do następnego.
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
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...
Przecinek a średnik to właśnie różnica wersji. Funkcja podająca pozycję w tabeli Podaj.pozycję(Szukana wartość ; przeszukiwana tabela; typ porównania 0 lub 1)[ jak 1/prawda to musi być kolejność rosnąca i zwraca pozycję liczby równej lub o "krok" mniejszej jeżeli 0 fałsz szuka dokładnie tego samego jak szukana wartość jeżeli nie znajdzie...
Zaczne od tyłu: Wprowadziłem ci dwa "rozwiązania" active i inactive. Zwróć uwagę na różnice w formule (jaka wartość jest sprawdzana) i wybierz odpowiednią dla siebie. Dodałem wyszukiwanie nazwy z pierwszego arkusza za pomocą formuły "indeks" I najważniejsza rzecz: wstawiłem ci w formułę 1,03 (marża na sztywno a może uzależnić od innej komórki gdzie...
PRL kolejne punkty ode mnie :-) Mam jeszcze pytanko. Jak ustawić wszystko tak aby obszar wyszukiwania zaczynał się od kolumny D, a komórka z wyszukiwanym ciągiem była w A1? Oczywiście listowanie nazw musiałoby zaczynać się od A2, a wartości znalezionych komórek od B2. Wiem jak ustawić ilość przeszukiwanych wierszy. Z tego co zauważyłem, to odpowiada...
Wielkie dzięki za odzew Sub del() Dim i As Integer For i = 1 To 5000 Step -1 'wpisałem zakres wierszy jakie są brane pod uwagę If Range("A" & i).Value = Range("B2") Then 'baza danych do przeszukiwania znajduje się w kolumnie "A" Rows(i).Delete 'w tym miejscu makro ma problem End If Next i End Sub O co może chodzić?
To ma być przeszukiwane wierszami? I co w przypadku, gdy poszukiwana liczba jest w ostatniej kolumnie i nic już nie ma po przekątnej? Sortowanie w wierszu - o tym decyduje ostatni parametr: [syntax=text]=SORTUJ(B1:E1;;;PRAWDA)[/sy...
Najprościej byłoby pętlą For Each in zakres , ale tutaj działać trzeba w pionie. Pozostaje skorzystać z dwóch zagnieżdżonych pętli For dla komórek w zakresie AA4:AJ13. Wg. mnie, schemat musiałby wyglądać następująco: 1) przypisanie Nr kolumny wynikowej do zmiennej (kol) 2) wczytanie wartości sumy z wiersza 15-go 3) przeszukiwanie (pionowo) zakresu źródłowego...
Tak, o ile się delikatnie warunki nie zmienią to można na formułach zrobić. Jak się pojawi (w zależności od rozwiązania) więcej wyrazów w przeszukiwanej frazie, albo odwracając logikę formuły więcej wyszukiwanych wyrazów, to formuła się dalej komplikuje.
Super! działa dzięki za pomoc mam jeszcze jedno pytanko Poniższa pętla przeszukuje zakres komórek w kolumnie A i jak odnajdzie określoną wartość zmienia kolor tła dla całego wiersza. Czy jest możliwość ograniczenia zaznaczania wiersza do na przykład 15 pierwszych komórek danego wiersza [syntax=vb] For Each kom In Range("a4:a3000") If kom.Value = "KA0001"...
EEPROM ma ograniczoną ilość zapisów, powiedzmy 100tys. Powiedzmy, że mam do zapisania kilka/naśco/dziesiąt bajtów konfiguracji. Wymyśliłem, jak zrobić, aby przy każdym zapisie użyć innego obszaru pamięci. Ale może są lepsze sposoby, to mnie na nie naprowadźcie. Mój pomysł jest taki: 1. Za pierwszym odpaleniem, lub na jakiś przycisk ZERUJ_PAMIEC zeruję...
Witam. Mam problem, który dla części z Was wyda się banalny. Dla mnie jest jednak kanionem nie do przeskoczenia. W pewnej komórce ma pewne wartości tekstowe. Zależałoby mi, aby stworzyć makro, które przeszukiwałoby daną komórkę (powiedzmy 1A) i w momencie, gdy znajdzie zadeklarowany tekst ("np. Teraz Start") w kolumnie B wyrzucił by wartość tekstu,...
Witam, Proszę o pomoc w wyszukiwaniu pionowo gdy w przeszukiwanej tabeli nie ma szukanej wartości; Mam taki kod: [syntax=vbscript]Sub makro dim komorka as long komorka = 4 On error resume next do while cells(komorka,1) <> "" cells(komorka,2) = worksheetfunction.vlookup(cells(komorka,... worksheets("arkusz1").range("B:C"),2,0) komorka = komorka...
Wartość zmiennej nadal zawiera sekundy, ale nie wyświetlają się one w komórce. Gdybyś zmieniła sekundy w przeszukiwanych komórkach np z 00 na 01, prawdopodobnie nie excel nie znalazłby daty. CDate zamienia string na date, wartość daty jednak automatycznie wypełnia puste pola tablicy(tu sekundy) zerami. Jeżeli klikniesz na komórkę i spojrzysz na formułę...
Witam, Przy próbie zmiany koloru wypełnienia danej komórki otrzymuje taki oto komunikat: Run-time error '1004' Pobranie właściwości Interior klasy Range nie jest możliwe Oto kod, którym próbuje zmienić kolor wypełnienia: [syntax=vb] ActiveSheet.Cells(j, k).Interior.ColorIndex = 34[/syntax] W zmiennych j, k mam wartości typu Long, gdyż przeszukuje cały...
Dziękuję bardzo za pomoc. Kod działa, ale nie robi tego czego oczekiwałem. Zdecydowanie to moja wina, bo rzeczywiście za mocno uprościłem swój wcześniejszy opis. Może rozwinę swoją prośbę o pomoc. W Arkuszu2 w kolumnie B (od komórki B7 w dół) znajdują się wyniki aktywnego wyszukiwania "wyszukaj.pionowo" z tabeli z arkusza1. Wyszukiwanie jest aktywne,...
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ść...
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...
Witam, Potrzebuje zrobić coś takiego w excelu: Porównać czy komórka od D2 do D238 jest taka Sama jak C2:C238 -> jeżeli jest taka sama, to sprawdzić czy komórka od A2 do A238 (odpowiadająca np C230, czyli obok tej komórki) czy znajduje się tekst równy w komórkach odpowiadjących (ten sam poziom) w zakresie E2 do K2 do E238 do K238. Jezeli jest to wszystko...
Tak na szybko wystarczy, że przeszukiwane komórki będzie próbował traktować jako zmienną liczbową. Spróbuj do każdej komórki dodawać 2. Jeżeli w danej komórce będzie tekst to operacja ta wygeneruje błąd. Wystarczy go obsłużyć dodając err.clear
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)...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
Niestety to nie jest dobre rozwiązanie. Opis problemu: Muszę sprawdzić czy w danej komórce, w której wpisanych jest kilkanaście słów, występują dwa konkretne słowa: AAA lub BBB (nigdy nie występują razem). Jeżeli któreś z nich występuje to funkcja powinna zwracać wartość 1, jeżeli nie to 0 Moja funkcja: =ile.liczb(znajdź("AAA";C3;1) C3 - komórka w której...
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...
Raczej nie. Załóżmy, że do przechowywania jednego bajtu używamy pewnego określonego obszaru; Wykasowany (0xFF) obszar zapisywany będzie od pierwszej komórki do ostatniej, później cały kasowany i od nowa. Przy odczycie przeszukujemy więc obszar od początku; ostatnia odczytana wartość różna od 0xFF będzie aktualna. //edit: To była oczywiście odpowiedź...
To bardzo pomocna funkcja! Widziałem ją wcześniej, ale myślałem, że mi się nie przyda. Funkcja ta jednak ma dwa mankamenty, których chciałbym się pozbyć: Gdy danego parametru nie ma, zwraca #N/D!, a wolałbym, żeby nic nie zwracała; Przeszukuje tylko jeden arkusz naraz. Jak chciałbym to usprawnić? Mamy 3 parametry: kuchnia, bar, inne. Wyszukaj pionowo...
Witam mam problem z budową makra. Staram się jak mogę zrozumieć o co Ci chodzi ale nie daję rady. Dołącz może jakiś arkusz z przykładem zawierającym wartości i dodatkowym opisem. 1. Kopiuj Komórkę X z zakładki A OK 2. W zakładce B w zakresie A1; A150 znajdź komórkę Y (która jest zmienną i jest przypisana do komórki zakładce A) W jaki sposób jest "przypisana"?...
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(...
Wiesz o Jego RODO się nie dopytywałem, ale Mu o tym wspomnę, czy wziął to pod uwagę, albo chociaż dopisek na kwitku, że dane są wzięte tylko i wyłącznie na cel przechowania opon i nie są nikomu udostępniane i przekazywane. Co do dodatkowej kolumny, to jak się doda na samym końcu lub początku, to też konieczna jest modyfikcja makr? Jak sobie zapisze...
i ja się dołączam: program tablice; var x,y: byte; //współrzędne kom. w tabeli min, max: integer; //wartości max i min tab: array[1..4,1..4] of integer; //tablica suma: array[1..4] of integer; //tablica sum kolumn suma2: integer; //na potrzeby średniej sr: real; //średnia begin randomize; //dzięki temu losowane...
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...
Witaj. Można sprawdzić formułą, która wyszuka (na przykład funkcją podaj.pozycję), czy wyszukiwana wartość istnieje w jakimś zakresie komórek (ten zakres musi być "usztywniony" w formule, żeby przy przeciągnięciu na wszystkie pozycje nie zmieniał się zakres przeszukiwanej drugiej tabeli). W przypadku gołej funkcji podaj.pozycję - dostaniemy liczbę,...
No to mamy wreszcie pierwszy konkret: w arkuszu Excela w komórce A1 jest "Polcaina" (tej nazwy nie znajdzie, bo w danych jest "Polocaina", ale listy rozwijanej Pan nie chce), w B1 jest "5", w C1 jest "Polocainum Hydrochloricum 5%", w D1 jest "57". I co dalej? Co teraz przeszukujemy i czego dokładnie szukamy? Skoroszyt, arkusz, zakres w arkuszu? Jak...
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...
Dla tego konkretnego pliku: w komórce E7: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;2;0) w komórce E8: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;3;0) w komórce E9: =WYSZUKAJ.PIONOWO(E6;Arkusz2.C9:F19;4;0) Pierwszy parametr formuły (E6) to komórka, która zawiera szukaną średnicę, drugi (Arkusz2.C9:F19), to zestaw przeszukiwanych danych ("Arkusz2" to nazwa arkusza),...
porównanie wartości komórek kopiowanie wartości komórek wartości komórek zamiana
parrot schemat funai przewijanie zwody zbrojenie
interfejs lexia interfejs multidiag
Kolory przewodów w piekarniku Whirlpool - faza i neutralny Programowanie stacji radiowych w Harman Kardon AVR65 RDS
