Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
W twoim makro podmień [syntax=vbscript]fndList = Array("*kin*", "*samoch*", "*kot*")[/syntax]
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Tak się składa, że niedawno robiłem dla naszych finansów coś podobnego. Program, po uproszczeniu, w załączniku, może jakoś Cię natchnie. ;) Zamiast kopiować do innej zakładki - grupuje pasujące linie. Dla 5000 linii jak w przykładzie działa u mnie, po drobnej modyfikacji, ok. ~4s (przy ~260s dla poprzedniego makra). Być może zmiana Range() na Cells()...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
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.
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.
Odszukaj ten fragment i dodaj ostatnią linijkę: 'kopiuj wartości wscel.Cells(wstaw, 3) = wsbaza.Range("B" & i) wscel.Cells(wstaw, 4) = wsbaza.Range("C" & i) wscel.Range("B" & wstaw) = szukaneTabl(r, 2)
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...
[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...
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]
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)...
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
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...
Nagraj makro.
Dodałem opcję czyszczenia.
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.
sprawdź załącznik
O! Ktoś mnie wyprzedził :) http://obrazki.elektroda.pl/7119706200_1...
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...
Ok, to z tym myślę, że sobie poradzisz (a jeżeli coś by nie szło to śmiało pisz). Co do wyszukiwania to masz dwie opcje: - użyć wbudowanej funkcji VLookup (tak jak w formułach) - napisać swoje wyszukiwanie Oczywiście pierwsza opcja wydaje się bardziej sensowna :). Użycie tego w makro jest bardzo proste. Tutaj masz przykładową implementację - spróbuj...
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
Niestety nie działa :/ Oczywiście, że działa ;) Sprawdza wszystkie komórki w zakresie S340. Innego nie podałeś. Do sprawdzenia zakresu >1 komórka należy zastosować pętlę: [url=http://dzono4.w.interia.pl/kurs/for... Szukanie wolnej komórki: Włącz rejestrator makr i nagraj kilka kombinacji Ctrl+strzałka (w dół/górę). Najlepiej z wypełnionymi...
... 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ą...
Z braku odpowiedzi można wnioskować, że Święta tuż, tuż :) Widzę 2 rozwiązania: 1) Arkusz pomocniczy z funkcjami wyszukiwania. 2) Makro. Kroki w obu przypadkach: - sortowanie wg kodów - lista bez powtórzeń - wyszukiwanie i składanie ciągów tekstowych (zamienniki) Nie rozumiem tylko do czego potrzebna druga i czwarta tabelka. Żeby znaleźć kod wg zamiennika...
Witam, Jaki parametr należy wpisać do Find i Replace by makro wyszukiwało /zamieniało/ dane w zależności od potrzeb w całym skoroszycie lub tylko w aktywnym arkuszu.
Jeśli dobrze zrozumiałem Twoje potrzeby :?: To efekt taki jak na zrzucie 1011231 tzn. po wpisaniu numeru kontraktu zakupu makro automatycznie wyszukuje "wstecz" (tzn. do góry :D ) czy już wystąpił taki numer i jeśli tak - to wprowadza do kolumny D ilość pozostałą z wcześniejszej transakcji :spoko: 1011234
Jeśli dobrze zrozumiałem, chodzi o "wyszukiwarkę" dodającą wybrane pozycje do kolejnych wierszy. Wtedy w grę wchodzi proste makro. Przykład w załączniku.
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....
Moje makro wyszukuje i koloruje tylko samą kropkę :?: :not: Jeśli chcesz zmienić kolor czcionki w całej komórce zawierającej "." to zastosuj kod :spoko: [syntax=vbscript]Sub Koloruj() Dim zakres As Range Dim kom As Range Set zakres = Selection For Each kom In zakres.Cells If InStr(1, kom.Value, ".", 1) > 0 Then kom.Font.ColorIndex = 1 End If Next End...
Racja, najlepiej jak pokaże to na przykładzie: http://www.przeklej.pl/download/001apb34... Nie używaj hostingu tylko wklej plik jako załącznik na forum. Dostałem info, że nie mogę załączyć pliku w formacie open office'a więc użyłem hostingu.
Do tego wystarczy formuła: [syntax=text]=FRAGMENT.TEKSTU(C2;SZUKAJ.... Jeśli koniecznie chcesz makro, to wypróbuj takie z użyciem wyrażeń regularnych: [syntax=vbscript]Sub Wyciagnij_Daty() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania...
Zanim spreparujesz kolego Adamas_nt takie tajemnicze makra, to uprzedź osoby, które Ci mają pomóc w ich prawidłowym działaniu: 1. co już zrobiłeś ? 2. co chcesz uzyskać ? 3. jakie napotkałeś problemy ? Dodatkowo przed wysyłką takiego testowego arkusza sprawdź Adamie, czy ze względu na osadzone w nim łącza będzie on działał po testowych modyfikacjach...
Hej zaczynam dopiero przygodę z makrami. Jestem typem osoby, która najlepiej uczy się i analizuje swoje błędy na prostych przykładach. Załączam plik, który przypomina plik, który chce zautomatyzować. Z danego pliku chcę 1) Wyszukać numery projektów (arkusz formatka) przypisanych do każdego z pracowników (lista wybierana pracowników z zakładki "projekty")...
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
W tym rzecz że kompletnie nie czaje makro.
Pobaw się tym.
Wiem jak szukać pojedyńczo kursywy za pomocą VBA cukrzycę 2016
Kiedy raz została wyszukana już zakładka, jak przejść do ponownego wyszukiwania? ctrl+z uruchamia makro
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
Następny mój problem, szukam makra które wyszukuje plik Excela, np 1111 i ten plik wysyła na domyślną drukarkę do wydruku? ktoś mi pomoże
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.
Witam. mam problem i nie moge znalesc alternatywnego rozwiazania, napisze wiec przyklad. w jednym arkuszu1 mam w np kolumnie A znaki np FD012345789 FD065412372 FD032165498 FD043568120 Fd021366498 itp itd... i tak okolo 2000 wierszy a w innym arkuszu2 mam np w kolumnie B 12345 32165 21366 i tak z 50... chcialbym, aby w pierwszym arkuszu znalazlo mi cos...
Nagraj makro.
Genialne!:):):): Dzięki bardzo dobry człowieku:):):)
Kopiuje wszystkie malinowe wiersze. Ma być inaczej?
Witam Dzięki za propozycję. Jest to jakieś wyjście ale jak Pan zauważył nazwa mp3 musi być jednolita. Jeśli utwór jest wykonywany przez kilku wykonawców i w tytule połączeni są za pomocą "feat." bądź "vs." a szukamy tylko jednego z nich to już nie działa. Lepiej jakby w przypadku wyszukiwania makro zadecydowało w sposób kolejności działania bądź jakiejś...
Tu masz poprawki :)
Witam, mam pytanie chciałbym napisać makro albo zrobić pole w którym po wpisaniu danej wartości, excel szukał by "kolumnie A" wpisanej wartości np 23. Następnie kopiował dane z kolumny B,C,D znajdujące się obok wartości 23 w inne miejsce
Witam, mój problem polega na tym, że potrzebuje makro, które będzie z 10 plików worda wyszukiwało wskazane słowa np: "Developer" i wstawiało do jednego dokumentu dane do tabeli słowo występujące po słowie "Developer". Wiem jak wczytywać z tych plików wskazane paragrafy(akapity) lecz nie wiem jak podejść do problemu, aby wyszukać najpierw słowa i wstawić...
Jeśli dobrze zrozumiałem to makro wyszukuje w obrębie jednego arkusza/skoroszytu
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
A gdzie to makro?
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.
Ale ja mam tych wierszy powiedzmy około 1500. Chodzi o to powiedzmy że w komurce L1 wpisuje szukane słowo a makro wyszukuje wszystkie wiersze w których ono wystepuje.
SUPER! bardzo dziękuję Makro działa, tabela niestety nie ma racji bytu, ponieważ w kolejnych wierszach tabeli będą się zmieniały wartości czy nie zawsze będzie szukać B, a makro wyszukuje z całości jedną daną. Mam natomiast inne pytanie, czy mogę przekopiować to makro do innego skoroszytu? Pytanie banalne, no ale coś mi to nie idzie, jak pisałem wcześniej...
Tak. Musiałbyś dopisać wyszukiwanie w makro przycisku. Jeśli znajdzie, dodajesz w instrukcji warunkowej, jeśli nie, dopisujesz na końcu udało mi się zrobić to dodawanie po sobie tych danych w tabeli i sortujesz.
Zdecydowanie łatwiej się porozumieć na bazie załączonego pliku . Widać wtedy różne niuanse, które mogą wydawać się z pozoru nieistotne, a poza tym można przetestować proponowany kod. Powinien działać kod: [syntax=vbnet]ActiveCell.Value = Application.WorksheetFunction.VLookup("s... Worksheets(Range("B6").Value).Range("A:E... 5, False)[/syntax]Zakładam,...
Wszystko już masz w arkuszu "Baza", trzeba tylko dołożyć obliczenia. Nie widzę potrzeby zastosowania VBA. Po mojemu dolna tabelka w arkuszu "Dane" jest na oko zwyczajnie zdublowana...
Wyszukiwanie wartości / vba z guzikiem
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Najprościej zaciągnąć dane kwerendą (jak leci), http://obrazki.elektroda.pl/2859189500_1... ew. można zoptymalizować, czyt. wyrzucić co niepotrzebne. Nagraj makro wykonywania w/w czynności, a do wyszukiwania użyj arkuszowych formuł...
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
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]
Witam, moim problem jest wyszukiwanie za pomocą danych. Identyfikatora, nazwiska, imienia. Stworzone makro wyszukuje odpowiednie dane po czym one znikają i przeszukuje dalej.Mi zależy, aby można było wpisać tylko Identyfikator lub nazwisko lub imię. Czy ktoś naprawi mój błąd lub pokaże inne rozwiązanie?
Metoda ogólna: zarejestruj makro w którym zrobisz tylko wyszukiwanie. Następnie wejdź w to zarejestrowane makro i już masz co poprawiać. Podczas poprawiania powinna (u mnie nie zawsze jest) uruchomić się podpowiedź.
Sprawa dość prosta. Procedura zdarzeniowa arkusza "przy zmianie" Range(zakres).Find i przypisywanie...
Excel to nie BAZA, to tak na marginesie Miłego kopania się z koniem
Widocznie "stop" nie jest ostatnią pustą... Spróbuj z wyszukiwaniem [syntax=vbscript]Sub Makro() Dim target As Range Dim wrs1 As Integer Dim ostWrs As Long Dim i As Long Set target = ActiveCell wrs1 = target.End(xlUp).Row On Error Resume Next ostWrs = Columns(target.Column).Find(what:="stop"... lookat:=xlWhole).Row If Err > 0 Then MsgBox "brakuje znacznika...
Można przypisać dowolną kombinację klawiszy do makro wyszukiwania (żeby łatwo było je uruchomić) np. takiego: Cells.Find(What:=Cells(1, 1), After:=ActiveCell, SearchOrder:=xlByColumns).Select Jeszcze lepiej zastosować przypisanie opisane w moim poprzednim poście (...)What:=strSzukana(...). Do szukania tylko w 1 kolumnie można...
Witam ponownie :) Po kilku dniach testowania wyszła jeszcze jedna rzecz, której wcześniej nie przewidziałem. Czy mogę poprosić o zmodyfikowanie kodu, który Pan dla mnie stworzył, w taki sposób, aby zamiast P2, makro wyszukiwało samej 2, ale w ciągu dwuznakowym. Chodzi o to, że oprócz P2 może w zestawie pojawić się również K2. Dwójki występują tylko...
Witaj, Być może tylko makro
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...
Witam. Potrzebuję utworzyć makro, które zawsze będzie wyszukiwało mi wyniki z ostatnich 3 dni lub ostatniego weekendu (piątek, sobota, niedziela). Przykład dla daty 10/03/2014: Filtr wyszuka mi zakres dat 7,8,9/03/2014. Obecnie mam makro, które wyszukuje mi dane z wczoraj (filtr dat->wczoraj ( xlFilterYesterday, Operator:=xlFilterDynamic)), nagrałem...
Witam, przerobiłem kod wg wskazówki, ale nie wyszukuje nic.
Cześć, kompletnie nie mam pojęcia na temat VB, a mam do wykonania następujące zadanie: Chcę zautomatyzować wypełnianie kolumn w arkuszach excela. Mam dane pochodzące z zewnętrznego programu, które są przedstawione w excelu, w taki sposób, że na wyjściu programu otrzymuję arkusz excela, w którym są kolumny z wartościami, a każda kolumna ma swoją indywidualną...
A znasz jakiś inny program, który ma takie zastosowanie jak to makro?
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
Plik ustawiam jako tylko do odczytu, bo o to mi chodzi i jest to intencjonalne. Sam plik .csv otwieram bez pomocy makra w excelu i widzę określoną strukturę. Niestety, kiedy plik jest otwierany przez makro, struktura się zmienia. Może by mi to nie przeszkadzało tak bardzo, gdyby nie zmieniał jednocześnie w konkretnej kolumnie formatowania komórki z...
No właśnie, zapomniałem napisać - to makro dopasowuje (wyszukuje) pełną nazwę do skróconej, czyli odwrotnie jak pisałaś. Tak jest prościej. Ale mając już dopasowaną pełną nazwę do skrótu można zamienić kolumny B z C i użyć funkcji WYSZUKAJ.PIONOWO aby je dostawić do "oryginalnych" nazw.
Sprawdź więc (nie korzystałem z twojego przykładu): 903122 Wielkość liter ustawiona na stałe "MatchCase = True". Wyszukiwanie dokładne lub przybliżone określane w okienku dialogu, szukana fraza również. Drobne opisy działania w kodzie.
Na podstawie tych danych ( M4 i O4) makro wyszukuje wszystkie dane łącznie i pomiędzy ( zakres dat ) nimi z kolumny M , a następnie kopiuje te dane do nowego skoroszytu . Proszę o dokładne wyjaśnienie treści zadania - literalnie rozumiem to tak: na podstawie założonej daty M i daty O (wprowadzonych inputem do makra) makro wyszukuje wszystkie 20 polowe...
Bardzo dziękuje, Własnie o to mi chodziło teraz staram sie wyszukiwać te "check boxy" :)
Na początek odpuść sobie transpozycję. Zastanów się najpierw czemu Twoje makro nie wyszukuje wszystkich wartości w bazie. W tej chwili wyszukuje tylko po jednej dla każdej szukanej pozycji. Dla ułatwienia podpowiem, że do tego celu najlepiej uruchomić makro krokowo i podglądać wartości interesujących zmiennych.
Witajcie, Czy ktoś pomoże mi stworzyć makro, które wyszukuje wszystkie listy rozwijane w pliku Excel (wszystkie arkusze) a następnie kopiuje do nowej zakładki każdą wartość z "listy" oraz dodaje nazwę range. Przykład w załączeniu... Dzięki.
Fakt. nie mogę nigdzie znaleźć "wytłumaczenia" czemu tak się nagrało. Nie wiem czy widać po kodzie co chcę osiągalność. Chodzi o to ze po przefiltrowaniu po nr 756902 kolumna x ( wynik około 10 wierszy) chcę wyszukać pionowo w kolumnie y wartości z innego pliku i zwrócić nr_indeksu_kolumny. Wyszukaj pionowo nie działa poprawnie pewnie dlatego że nie...
W dość nieskomplikowany sposób można osiągnąć taki wynik: http://obrazki.elektroda.pl/6726167700_1... Trzy etapowe makro -wyszukiwanie unikatów w kolumnie B i zapisanie ich jako nagłówki kolumn w arkuszu wynikowym -wyszukiwanie unikatów w kolumnie A i zapisanie w kolumnie A -przypisanie Nr seryjnych do kontrahenta wg typu
Witam. Mam problem z MAKRO. Na pierwszy rzut oka niby wszystko jest w porządku, ale tak nie jest. Może podpowie mi ktoś dlaczego MAKRO ma ograniczony zakres wyszukiwania. Zaznaczyłem z ciekawości na czerwono dwie pozycje, są identyczne ale MAKRO ich nie widzi. Proszę o podpowiedz w czym jest problem. Z góry dziękuję i pozdrawiam.
Panie Macieju, Bardzo dziękuję za wyjaśnienia. Pana post sprawił, że wzbogaciłm się o bardzo cenną wiedzę. Działa - Bardzo dziękuję za pomoc! Czy wyświetlanie kolumny od aktualnej daty (przy założeniu że w wierszach są daty DDMMRRRR) jest możliwe bez makro?
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Witam, jestem zielona w tworzeniu kodów VBA. Mam dużą liczbę klientów, z których każdy ma pewną gamę produktów i plików do tych produktów przypisanych. Wszystkie te dokumenty zapisane są na serwerze. Utworzyłam w excelu listy dla każdego klienta na osobnych zakładkach z hiperłączami odnoszącymi się do tych dokumentów. Na pierwszej zakładce zrobiłam...
To tylko makrem
Witam, mam problem z makrem. Potrzebuję aby makro wyszukiwało mi w kolumnie zmianę liczb. Np. mam w kolumnie F liczby: 1 1 1 2 2 2 3 4 5 5 5 6 chcę aby makro przeszukiwało mi kolumnę i jeżeli jest zmiana cyfr wstawiało wiersz prze liczbą i tak by to wyglądało: 1 1 1 2 2 2 3 4 5 5 5 6 czy da się coś takiego zrobić??
wyniki wyszukiwania wyniki wyszukiwania opcje wyszukiwania pasek wyszukiwania
irf640 irf540 landi szarpie error philips
Ciągłe obracanie się capstana w magnetofonie - przyczyny i rozwiązania Nagrywanie muzyki na Akai GX-270D: Porady i ustawienia
