Podstaw zmienną z Nr kolumny wyniku wyszukiwania: kol =Cells.Find(..). column ActiveSheet.Range("$A$2:$P$697").AutoFil... Field:= kol , Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColor
Kawałek danych w załączniku. Chodzi mi o zakładke "Sheet4". Wersja na jakiej pracuję to"365 for enterprise". Format daty w systemie to dd.mm.rrrr. Dane są codzienne dodawane i chodzi mi aby mieć makro, które bedzie mogło filtrować dane z ostatnich 30dni. Potem z tych danych w innym skoroszycie robiona jest analiza/wykresy z wyfiltrowanego zakresu. Znalazłem...
Filtr działa, wg Twoich danych i ustawień tylko 1 data jest większa niż dzień dzisiejszy. Może przyjęłaś błędne założenia ? Oczywiście trzeba zmienić nazwę arkusza i numer kolumny wg której makro ma filtrować dane ...
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
niestety niewiele mi to pomogło.
Niby spoko ale czasochłonne dla mnie :cunning: Widać, że masz niewiele doświadczenia z Excelem i nie potrafisz nawet wykorzystać natywnych możliwości programu :cry: Pierwsze 6 wierszy (te z kryteriami filtrowania) możesz zawsze ukryć przed użyszkodnikami :D tego arkusza. Warunki filtrowania zapisane są w postaci samo aktualizujących się formuł więc...
Oczywiście, jeśli makro jest rejestrowana w rejestratorze, będzie zawsze działać identycznie, niezależnie od tego jak są dane. zarejestrowane makro 'nie myśli' powtarza tylko akcje. kilka pytań: Arkusz3 jest zawsze danych dla jednego dnia? Na Arkusz3 może nie być kilka spółek włączonych do wykazu?
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
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...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Witam, mam problem z makrem... Będę wdzięczny za pomoc!!! Mianowicie. Makro ma filtrowac arkusze w skoroszycie (12 arkuszy z 14). W jednym (z dwóch niefiltrowanych - o nazwie "sterujacy") sa kryteria (wybierane z listy rozwijalnej przez uzytkownika). Przy nie wpisaniu zadnego kryterium powinno pokazac wszystkie dane. Ponizej moje wypociny : Sub filtruj()...
#makro #vba #filtr Czy można napisać makro, które w każdym arkuszu w skoroszycie włączałoby filtry? Tzn. gdy filtr jest włączony i dane nie są pofiltrowane, to filtr zostawiałoby włączony gdy filtr jest włączony i jest pofiltrowane po jakiś kolumnach, to pokazywałoby wszystkie dane i filtr zostawiałoby włączony gdy filtr jest wyłączony, to włączałoby...
Ostatnio miałem pewien problem ze stworzeniem spisu plików i wyszukiwaniem tekstu w danych kolumnach nie od początku lecz znajdującego się gdzieś w środku. O problemie dyskutowałem w sąsiednim temacie ale marek003 zasugerował stworzenie nowego Przy wykorzystaniu filtru zaawansowanego trzeba wpisywać tekst ograniczony gwiazdkami. Denerwowało mnie to...
Cześć, Mam problem z doszlifowaniem makra, którego zadaniem jest przeniesienie wyfiltrowanych danych do jednego zbiorczego arkusza. Mam już makro, które działa bez zarzutów i zrzuca mi informacje do jednego zbiorczego pliku. Brakuje mi jednak funkcjonalności, która przy wywoływaniu komendy scal pliki w jedno, pobierze te dane, o które ją poproszę. Chodzi...
Witam Mam zakres danych w dwóch kolumnach i chcę skorzystać z filtra zaawansowanego który będzie filtrował dane z arkusza1 na podstawie wartości wpisanych w arkuszu2 Nagrałem sobie makro tylko mam problem ponieważ nie wiem jak je zmodyfikować na własne potrzeby niepuste komórki, gdyż samo poszerzenie zakresu uwzględniając puste nie przefiltruje danych....
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Cześć, może będziecie mogli mi pomóc w uproszczeniu makra. Codziennie rano dostaję plik który moje makro filtruje po różnych kolumnach, w dwóch z nich muszę założyć filtry na daty jak na screenie Czyli od najstarszej występującej w raporcie daty w tej kolumnie do dnia dzisiejszego + 1 dzień oraz puste. https://obrazki.elektroda.pl/4765304900_...
Witam, mam problem z zbudowaniem makra, które filtrowałoby mi kilka tabel przestawnych na raz po kolumnach o tej samej nazwie. Dane jakie miałyby się filtrować chciałbym wprowadzać poprzez pole kombi, a następnie odświeżać plik przyciskiem w celu wyciągnięcia interesujących mnie danych. Jestem początkujący i z makrem na poziomie podstawowym ostatnio...
Witam serdecznie, mam problem z napisaniem makra, które zaznaczy mi w wybranym zakresie wszystkie niepuste komórki.
Witam, chciałabym utworzyć raport z automatycznym filtrem który posortuje dane według kryterium wybranego z listy rozwijanej a następnie przeniesie dane do nowego pliku pod nazwa wybranego kryterium czyli np kryterium to „market” „EMEA” i zapisze w tej samym katalogu gdzie plik z którego filtruje „bazowy”. Problem...
Witam proszę o poradę jak stworzyć makro, podam kolejność jak miało by funkcjonować: w exelu mam przycisk (Wyszukaj) pod który można przypisać makro i w arkuszu np. WPROWADZANIE mam zaznaczone jedno okienko np. B2 - tutaj mam wpisać jakieś nazwisko np. Kowalski, potem musiałoby przeszukać kolumnę np. B w nowym arkuszu pod nazwą EWIDENCJA i jeżeli by...
Witam Prosiła bym o edycje kodu napisanego przez kolegę Prot, któremu jestem bardzo wdzięczna za okazaną pomoc. Poniżej makro:[syntax=vbnet]Sub UpdateBase2() Dim D As Worksheet: Set D = Worksheets("Dane") Dim B As Worksheet: Set B = Worksheets("baza") Dim v4 As Variant, v5 As Variant Dim Dw&, Bw1&, Bw3&, Bw5&, i& Dw = D.Cells(Rows.Count, 3).End(xlUp).Row...
[syntax=vbscript]If rn.Value = 0 Then[/syntax]
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
Witam, Potrzebuję aby makro filtrowało mi Arkusz2 jednocześnie wg kilku wartości w tej samej kolumnie. Wartości te odczytuję z Arkusza1 pętlą i nie jestem w stanie przewidzieć ile ich będzie.. Zarejestrowane makro tworzy np kod jak poniżej ActiveSheet.Range("$A$2:$O$... Field:=2, Criteria1:="=996",...
A co tam w procedurach zdarzeniowych arkusza? Dla pewności dopisz Application.EnableEvents=false/true analogicznie jak z screenupdating
Czyli nie możesz porównywać dat? A co dokładnie masz w pliku, jak są zapisane te daty? Jeżeli masz w formacie daty to do porównania też musisz mieć datę, jak string to string. Sprawa prezentacji dat w Excelu jest tu drugoplanowa. Chyba nie załączyłeś przykładowego pliku.
Jak masz kłopot ze wstawieniem to spakuj to zipem A na temat zrób tak jak radzi paweliw wstaw hiperłącza odwołujace się do tego samego dokumentu i już
aby wszystko działo się automatycznie :cry: To musisz jednak zastosować VBA :D Np taki efekt jak na zrzucie 945616 tzn. po wklejeniu nowych danych po wciśnięciu ctrl+r - makro "rozrzuci" Ci te dane na grupy na podstawie ID :spoko: Całość w załączonym pliku 945618
Jeśli można uprościć to fajna sprawa, faktycznie nie pomyślałem o tym aby filtrować i od razu drukować. Nie wpadłem na ten pomysł :). ad.1 ) arkusze mają być czyste bez filtra, widocznie puściłem inne makro z filtrem ad.2) publikacja pdfa po zapisie, była włączona do testu, domyślnie ma być wyłączona
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...
Cześć, potrzebuję pomocy z porównaniem dwóch dużych plików danych . Dotychczas używałem wyszukaj pionowo lub zwykłego if w excelu. Czy jest możliwość zbudowania makra które porównywało by dwa pliki kolumna po kolumnie ( pliki mają takie samo ułożenie i będą posortowane). Fajnie jeśli zakres kolumn, wieszy będzie można wpisać ręcznie. Piewsza kolumna...
Dzień dobry Mam taki problem, z którym sam nie potrafię sobie poradzić. Mam stworzone useform poprzez który sa wprowadzane dane do arkusza excela. W tym useform mam okno listbox, którego zadaniem jest wyświetlanie wprowadzonych już danych celem uniknięcia powtórzen. w user form mam wpowadzone makro które pozwla by ta lista w arkuszu sie fitrowała wg...
Tak jak już napisał Maciej Gonet bez załącznika to trochę wróżenie z fusów, ale spróbuj dostosować do Twojego pliku taki kod: [syntax=vb]Sub TrzyOstatnieDni() Dim rRng As Range Dim lLstRw& Dim sData$ Dim dData As Date sData = InputBox("Podaj Datę w formacie dd/mm/rrrr):") sData = Format(sData, "dd/mm/yyyy") dData = CDate(sData) lLstRw = Cells(Rows.Count,...
Dzięki za próby pomocy mi jednak arkusz nadal pozostaje zablokowany do edycji - nie mogę go filtrować ani np. zmieniać kolorów czcionki, ukrywać kolumn. Pozostaje opcja wyboru z droplisty tylko
Hej, Możesz napisać makro w VBA które będzie filtrować dane i skopiuje Ci w konkretną lokalizację w workbooku.
próbowałem wielokrotnie na różne sposoby np: nazwa = Dir(len(plik)=12 & w & "*.htm") i nie może odnaleźć pliku:( a nawet jak jest czyste: nazwa=dir(plik) to makro samo narzuca ten dłuższy plik
W załączniku przesyłam plik, docelowo tak chciałbym, żeby to działało, ale szczerze się przyznam że nie wiem jak tego dokonać. W kolumnie, makro ma filtrować po wartości, następnie z kolumny b zaznaczać to co udało się wyfiltrować a w komórce C26, liczyć percentyl z tego zakresu. Następnie odfiltrowuje kolumnę a i powtarza tą samą czynność z wartością...
Czyli (jak myślałem) operujesz na liście wartości w komórkach. Nie nazywajmy tutaj tego typami, bo to jest mylące, choć biznesowo pewnie poprawne. Zastanów się jeszcze co ci właściwie jest potrzebne. Robiąc to w aplikacji z użyciem formuł robisz to jak napisałeś (filtrujesz i co dalej? kopiujesz gdzieś, wysyłasz mailem?), jednak makro mogłoby to zrobić...
moze inaczej, moglbys wstawic mi komentarze do tego co mam od Ciebie zebym mogla zrozumiec te makra? chetnie sie naucze sama je pisac przydadza mi sie jeszcze ale teraz ich nie rozumiem przynajmniej nie wszystkie dopiero niedawno sie dowiedzialam o takiej formie ulatwiania sobie pracy w excel ale z programowaniem nie mialam nigdy do czynienia, probowalam...
Nie ma ponieważ jak napisałeś naciskam guzik i mogę pracować,ale pytałam ponieważ byłam ciekawa(tak jak napisałam wcześniej makro to dla mnie zagadka). Jeszcze jedno próbowałam dopisać ludzi i jakoś mi nie poszło,uciekł mi z pierwszego arkusza wiersz gdzie były zł. za ziarno itd. a poza tym po prawej stronie są magiczne cyferki (na czerwono) to wiersze...
Może w ten sposób...
Witam, rok temu temu stworzyłem w miarę proste makro, które między innymi miało filtrować dane po datach mniejszych niż dziś+90 dni, później z wyfiltrowanych danych tworzyć tabele przestawną itd. Poniżej fragment mojego kodu Sheets("BAZOWA").Select Range("T1").Select ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),90)" If ActiveSheet.FilterMode = True Then...
WItam DZIĘKI DZIĘKI SERDECZNE ZA WSZYSTKO - jeszcze tylko jedno pytanko na koniec. Kolumnę E , F przeciągnąłem do 300 - bo tyle mam wierszy po zaktualizowaniu swojej bazy - oczywiście modyfikując odpowiednio formułę w makro zmieniłem zakres do 300 wszystko pięknie działa filtruje jak należy - tylko wyników w tych moich dodatkowych wierszach nie zaznacza...
Chodzi o kopiowanie wyfiltrowanych wierszy Nie wiem po co filtrować kolumny, w których nie ma istotnych informacji - patrz na zrzut :cry: 901627 Założoną funkcjonalność można uzyskać poprzez makro zamieszczone w załączonym pliku. Zmieniłem tam nazwę pierwszego arkusza, a wszystkie wyciągi wyfiltrowanych danych mają nazwę kryterium wyboru. :spoko: 901633...
Stworzyłem makro, ale kopiuje mi tylko zawsze te same 15 wierszy a nie 15 pierwszych po sortowaniu. ... Niby dziala ale gdy zmieniam dane w sheet1 to niestety makro przestaje dzialac - sortuje wedlug szuflady ale nie kopiuje 15 odpowiednich spraw. W Twoich nagranych makrach praktycznie nic nie działa prawidłowo ani sortowanie ani kopiowanie. Czy mógłbyś...
Pomysł? A proszę bardzo :) Nie wiem w jaki sposób dodajesz nowe zamówienie, prawdopodobnie w formularzu. Ja radziłbym zrobić formularz z dodatkowym przyciskiem, do którego będzie przypisane makro obsługujące dwa zdarzenia: -dodanie nowego rekordu do tabeli -uaktualnianie pola "Stan" z tabeli "Samochody" (np. UPDATE Samochody SET Stan = true WHERE IdSamochodu="2";...
Witam serdecznie Buduje makro (pisze to za duże słowo) które ma pomoc przy generowaniu co-tygodniowego raportu. Dane wpisywane są kolejno w wierszach wraz z data i godzina (format: dd/mm/rrrr gg/mm/ss) w kolumnie C Szukam rozwiązania które przefiltruje zawratość kolumny C pozostawiajać tylko wiersze zapisane w określonym czasie Daty graniczne są wprowadzane...
Założenie było takie, żeby kopiował wszystkie wiersze w których w kolumnie F była wartość "tak" ale w takiej formie kopiuje wszystko niezależnie od "<>". Założenie było w miarę dobre. Z realizacją trochę gorzej. Makro działa tak jak je napisałeś tj. porównuje wartość komórki F1 z wartością zmiennej nazwanej przez Ciebie nie . Jeżeli chcesz aby...
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
Najpierw w instrukcji warunkowej sprawdzasz czy arkusz jest filtrowany (filtermode), później w razie czego pokazujesz wszystkie dane (showalldata). Działa: [syntax=vb]With ActiveSheet If .FilterMode = True Then .ShowAllData End If End With[/syntax]
Przepraszam ale nie bardzo rozumiem pytanie :( Chodzi o to żeby konkretne dane z plików 1,2,... były kopiowane do jednej tabeli znajdującej się w pliku Baza danych zgodnie ze wzorem jaki zamieściłem. Tabela ta powinna dać się filtrować tak aby można było się dowiedzieć ile jest osób z obszaru Polska. Nagłówki z tabel z plików 1,2,... nie są potrzebne,...
Gotowiec. Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości.
Co prawda nie o tym myślałem (pewnie dlatego że sam nie wiem o co chodzi) ale to rozwiązanie w zupełności mi wystarczy i spełnia moje potrzeby. Dzięki Kolego P.S. Listy rozwijane to niestety nie mój pomysł i muszą zostać. Niestety umiejętności czytania w myślach jeszcze nie opanowałem, ale pracuje nad tym ;) Jeżeli opiszesz mi szczegółowo jaką dokładnie...
Dzień dobry, Moim zdaniem lepiej to zrobić funkcją użytkownika niż makro. Szkoda, że nie dał Pan załącznika z plikiem, bo nie bardzo wiadomo, co tam jest, czy dane są tylko stałymi, czy są też formuły, czy są tylko liczby, czy również teksty. Nie wiem też czy potrzebne jest ukrywanie wierszy, jest to dodatkowa czynność, czy potrzebna? Kluczową sprawą...
Cześć, mam problem z makrami, mianowicie, nagrywam makra filtrujące - makro ma filtrować, kopiować dane, które zostały uzyskane i wkleić do innego arkusza, który jest przygotowany formą pod uzyskane dane. Jednak mam problem, ponieważ o ile pierwsze makro działa, o tyle każde kolejne jakby nakłada się na następne, ponieważ filtruję się kolumna, którą...
Coś ala tak, pod zmienna wartość będziesz miał zawartość komórki "A2" po filtrowaniu. [syntax=vbscript]wartosc = ActiveSheet.AutoFilter.Range.Offset(1).S... 1)[/syntax]
Dla uzyskania efektu jak na zrzucie :D 962211 Możesz wykorzystać makro zawarte w załączonym pliku :spoko: 962212
Gdybyś spojrzał do pomocy VBA, to znalazłbyś takie zdanie: This property applies only to worksheet pages. :( Znalazłem na szybko taki [url=http://www.vb-helper.com/howto_prin... Po modyfikacji do VBA i Twoich założeń powinien wykonywać to czego oczekujesz. Pozdrawiam
Ale tego słowa szukasz po jednej kolumnie czy po kilku? Jeśli szukasz po jednej kolumnie to filtr zadziała. Ja rozumiem, że masz dużo danych i pisząc wyżej, że możesz założyć filtr, czy przekopiować do innego arkusza miałem na myśli że makro zrobi to za Ciebie. Najpierw ustal jak chcesz rozwiązać ten problem:)
Cześć, chciałbym stworzyć makro które będzie filtrowało dane ale problem w tym że nie wiem jakie dokładnie dane będą w pliku. W tym celu wykorzystałem słownik który przechodzi przez daną kolumnę i zapisuje klucze po których chcę później filtrować. Niestety nie wiem jak pobrać dane z tego słownika. Poniżej pętla która przechodzi przez daną kolumnę. Dodałem...
Dzień Dobry Zwracam się do wszystkich uprzejmych i chcących pomóc osobie która zaczyna przygodę z makrami, ale zapotrzebowanie na dobre makro jest większe niżwiedza moja w obecnym czasie. Nie proszę o zrobienie gotowca tylko wskazanie błędów, lub o podpowiedź co mam zmienić w pliku którym się posiłkuję by : ad.1 W arkuszu Dane na zielono ( brane pod...
makro filtrować excel excel makro filtrować excel makro filtrować tabela
przegrzany wzmacniacz stroić detektor kable sufitem
stabilizator napięcia czujnik położenia schemat
Brak świateł mijania i sygnału w Case MXM 190 Pro 2005 - przyczyny i diagnostyka Parametry P03 i P09 w piecu Termet Silver Pro