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 przykładzie było 22°55'02.3"E czyli Oczywiście można tę formułę rozbudować o kolejne warunki i wyszukiwać gdzie się znajdują znaki. Formuła ta ma też inną wadę np. nie rozróżnia półkul. Dodano po 15 Tylko czasami mam wartość: 55°21'39.8" a czasami np: 56°22'9.8" i wtedy mam błąd:/ =LEWY(A2;2)+((FRAGMENT.TEKSTU(A2;4;2)/60...
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
Cześć, mam problem, którego nie potrafię rozwiązać. Mianowicie potrzebuje narzędzia, które będzie wyszukiwać zakładki w pliku excel po jego nazwie. Powinno być to w formie MsgBox. Np. mamy plik jak w załaczniku i chciałbym, żeby odrazu po uruchomieniu wyskoczył MsgBox, gdzie możemy wpisać interesujacy nas arkusz i otwiera się on po potwierdzeniu komunikatu....
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Jeśli znaki "<" oraz ">" występują tylko jako "nawiasy" znaczników i nigdzie więcej, to można w prosty sposób skorygować pętlę Do , umieszczając warunek i polecenie wyjścia z pętli wewnątrz niej. Rezygnujemy wtedy z tablicy i określamy początek i koniec fragmentu do pogrubienia wg wspomnianych znaków.
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....
W takim razie to InStr zwróci Ci pozycję w ciągu i to należałoby wykorzystać...
Nie doczytałeś jak działa obiekt [url=http://msdn.microsoft.com/en-us/lib... - drugim parametrem w nawiasie nie jest pozycja ostatniego znaku, a ilość znaków które mają zostać wzięte (długość). W związku z powyższym, musisz to przerobić na: [syntax=vb]kom.Characters(i, j - i + 1)...[/syntax]
[url=http://www.ozgrid.com/VBA/find-meth... masz przykład jak ta funkcja można wyszukiwać w całej kolumnie. Ostatni listing pokazuje jak wyszukać kilka wartości i wstawić komentarz - w Twoim wypadku musisz wyszukiwać w arkuszu 2, a wstawiać nie komentarze, a znalezione wyniki do arkusza 1.
Witam, mam wielką prośbę o pomoc. Potrzebuję stworzyć makro, które będzie podmieniało wartości komórek w kolumnie w zależności jaka wartość tekstowa zostanie znaleziona. Przykład: Mam komórki które zawierają: Dobre_Kino Kina Super_kino_ Samochodu Jadę Samochodem KOTEK Dla_kota Makro powinno wyszukiwać ciągi tekstowe: "kin", "samoch", "kot" i tak gdzie...
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...
W tym skoroszycie już tak masz namieszane z tym Twoim ukrywaniem arkuszy i zakresów komórek, że do momentu uzyskania stabilnego działania makr powinieneś odpuścić wszystkie komplikacje. Pamiętaj o czyszczeniu całego zakresu "wynikowego" przed nowym wyszukiwaniem np po wydruku lub przed wejściem do nowego wyszukiwania. Dla drugiego wyszukiwania powinieneś...
problem zaczyna się jak mam w pliku bez nazwy stary, nowy No to jak jednak nie jest tak wszystko ładnie popisane w pliku źródłowym :cry: to możesz spróbować sformułować wzorzec wyrażeń regularnych i na tej podstawie wyszukiwać (wypisywać) interesujące Cię stringi - przykład takiego makro masz w linkowanym poście :ok:
Witam. Próbuje napisać makro, które będzie wyszukiwać w jednej kolumnie, np A kwot przeciwnych jeżeli istnieją (np kredyt noty i faktury) , dodatkowym warunkiem jest to aby wartość w kolumnie B (np nazwa przedsiębiorstwa) była dla obu kwot taka sama, jeżeli ten warunek jest spełniony to kwoty te są kopiowane do drugiego arkusza. Udało mi się napisać...
Tu masz poprawki :)
... jak masz zamiar je wybierać? ... z tym mam problem ... Nie masz żadnego - po prostu w dodatkowym arkuszu ("konfiguracyjnym") w pewnym zakresie komórek (np. kolumny "A") wpiszesz sobie jeden pod drugim owe nagłówki do wyszukiwania. Makro będzie pobierać nazwy nagłówków (z tego zakresu) i wyszukiwać je w pętli po pierwszym wierszu arkusza z tabelą...
Dziękuję, to rozwiewa moje wątpliwości na ten temat. Skrypt jest skończony i działa rewelacyjnie. Dziękuję bardzo :) Pojawił się kolejny temat: Napisałem skrypt, który powinien wykonywać następujące kroki po wciśnięciu guzika "Uzupełnij": 1. Pobierać wartość z zaznaczonej komórki i wyszukiwać je w tej samej kolumnie, ale wyżej (pomijam warunek, żeby...
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ę...
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)...
hmmm coś niechce działać po wprowadzeniu zmian Hmmm, coś myślę, że zmiany źle wprowadzone. :D Kod kolegi adamas_nt działa. Wrzuć plik po zmianach.
ten problem co przestawiłem to jest wycinek bardzo długi programu, gdzie w połowie jego działania potrzebuje przynajmniej żeby w całej kolumnie zamieniało mi się to słowo "#DZIEL/0!" na pustą wartość (może wyszukiwać to słowo i je kasować) nie mogę robić tego ręcznie bo program będzie działał dalej i wykonywał jeszcze dużo innych poleceń, troczę głupio...
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Bardzo dziękuje, Własnie o to mi chodziło teraz staram sie wyszukiwać te "check boxy" :)
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
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.
Pierwsze makro - czy ma znajdować jedynkę w tekście, który może być dłuższy, czy też wyszukiwać komórki tylko z jedynką, a komórki gdzie jest coś więcej ignorować?
Makro wykonujące obydwie czynności może wyglądać np. tak: Private Sub CommandButton1_Click() poprz_wartosc = Empty For Each c In ActiveSheet.Range("C1:C6553... 'tu można zawęzić przeszukiwany zakres If c = "dolek" Then ActiveSheet.Cells(c.Row, 4) = poprz_wartosc If Not IsEmpty(poprz_wartosc) And...
Witam Znowu potrzebuje pomocy :(. Musze napisać makro które będzie pobierało dane z arkusza o nazwie DATA do pierwszego arkusza w czasie rzeczywistym bez klikania ikon. Czyli jak w arkuszu pierwszym w pierwszej kolumnie ktoś wpisze "KOZA" to makro wyszuka liczbę kóz z arkusza DANE i wpisze ją w drugą kolumnę w pierwszym arkuszu. Jak wpisze DOM to wyszuka...
Tak tyko to makro uznaje za powtórzenie cyfry po kropce np 83.11.285.1, 83.285.11.285. Makro uznaje za powtórzenie tylko 83 a nie cały adres.
Wyszukiwanie wartości / vba z guzikiem
[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...
Witam, Mam uprzejmą prośbę o pomoc. Potrzebuje napisać makro w MS Excel, które będzie zaznaczać „ustaloną” liczbę takich samych (następujący po sobie znaków, w komórkach arkusza MS Excel). Potrafię napisać makro które będzie wyszukiwać i wyróżniać (np. innym kolorem tłą) takie same ”stringi”. Działający przykład w załączeniu....
Zdaje się, że źle się do tego zabierasz. Po pierwsze musisz przypisać właściwą listę do combo w zależności od stanu przycisków opcji. Jednak najprościej dwa pola kombi, z różnymi listami, nałożyć na siebie i wyświetlać ten właściwy. Makra przypisujesz do zdarzeń i już coś się dzieje (załącznik). Filtrowanie realizujesz po zmianie w combo (podstawiłem...
Z czym dokładnie masz problem? Nie napiszemy całego skryptu za Ciebie. Pokaz, co już masz, a wtedy doradzimy. Kolumnę zaznacza się tak: [syntax=vb]Columns(2).Select[/syntax]
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Nagraj makro.
okrojony plik w załączniku.
Nazwy tych plików do wysłania są takie same jak nazwy odpowiednich kontaktów (adresów) Do czego więc Excel? Po mojemu, powinno zadziałać coś takiego (pod warunkiem, że piki mają w nazwie pełny adres, Np "odbiorca(at)alias.pl.pdf") [syntax=vbscript]Sub bla() Dim objMsg As MailItem, folder As String, plik As String folder = "c:\adam\" plik = Dir(folder)...
Ja widzę tutaj makro w roli głównej, ale będę w stanie dopiero późnym wieczorem jakoś pomóc - chyba że ktoś inny wyczaruje coś na formułach (ale biorąc pod uwagę, że z lewej tabeli trzeba wyszukiwać nie tylko datę, ale również kod produktu w tym samym czasie - ja sobie rozwiązanie z formułami odpuszczę i zobaczę makro).
O! Ktoś mnie wyprzedził :) http://obrazki.elektroda.pl/7119706200_1...
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
ok a mogłbyś mi jeszcze zdradzić o co chodzi z tymi cyferkami w kolumnach E F? ;) Dodano po 1 A czy stworzenie makra do tego problemu byłoby jakieś skomplikowane?? Dodano po 8 Listę zrobiłem w Arkusz3... http://obrazki.elektroda.pl/8420184500_1... jak stosuję tę funkcję to nie zwraca mi numerów bo rozumiem że ma wyszukiwać numer i zwracać...
no to tak takie pole kombi byłoby dobrym rozwiązaniem tylko mam problem wstawiając normalne pole kombi nie mam możliwości wpisywani tylko wyboru z listy. Natomiast pole combi Activex nie mogę zaznaczyć danych i nie działa - nie wiem czy trzeba pisać do tego jakiś skrypt w VB. I jeszcze jedno pytanie czy pole combi może wyszukiwać np po kilku numerach...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Witam, Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 oczywiście słowo dzbanek się zmienia i jest jego 100 rodzajów i to samo z datą itd. I muszę zrobić tak żeby każda z tych danych znalazła się w różnych komórkach, tzn dzbanek...
makro wyszukiwać komórka makro pętel wyszukiwać excel makro wyszukiwać
lexia sterowniki interfejsu obsada pierścień wymiana kabel telefoniczny
webasto thermo90st webasto thermo90st
Diamant 32HL4330H/A TP.MT5510S.PB803 Firmware for Romania – Panel Compatibility and USB Flashing Czytniki kart do Konica Minolta bizhub 227: AU-201S i alternatywy
