A tak [syntax=vbscript]If Format(ark.Cells(i, "BT"), "yyyy") = CDate(Alpex.cmROK) Then[/syntax]
Numer filtrowanego miesiąca wprowadza się w komórce B1 [syntax=vb]Sub PVFIELDS_MONTH() Dim oPvtItem As PivotItems Dim iFltr As Integer iFltr = Cells(1, 2).Value Set oPvtItem = ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("Okres").Pivot... 'wyczyszczenie filtra For Each pvt In oPvtItem pvt.Visible = True Next 'wyświetlenie żądanego miesiąca...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
bardzo często dodajesz jakieś produkty do bazy -> kolumna M. Zastanawiam się nad przypisaniem tych 3 twoich dodatkowych kolumn do jakiejś stałej > tylko problem taki, że w momencie dodania do bazy nowego produktu trzeba zrobić ręczny update w excelu
Nie piszesz, której wersji Excela używasz, mam nadzieję, że co najmniej 2010. Bo od tej wersji dostępna jest właściwość DisplayFormat, która rozwiąże Twój problem. Tylko przykład dobrałeś niefortunnie, bo Twój kod działał w obu arkuszach: w jednym były dwa formatowania zwykłe, a w drugim dwa warunkowe, a Twój kod porównuje formatowania zwykłe, które...
Czy to ma działać jak w załączniku?
W załączeniu z kolumna pomocniczą (po przemyśleniu jednak najprościej będzie z kolumną nawet dla suma.warunków()). Datę poszukiwaną wpisujesz wg formatu daty excela (w polskim rok-miesiąc-dzień) Ponieważ nie było pliku a miałem wolną chwilę to recognitą "przeleciałem" twoje zdjęcie. :) ale na przyszłość załączaj pliki z przykładami a nie fotki.
Witaj Pozeraj, może być dobre. w kolumnie O nowy FID 2 powtarza, tu są ten sam numer i miasto( w starom)
Taka opcja istnieje, tylko że zawsze jest coś za coś. Będziesz musiał stworzyć procedurę/funkcję pobierającą z zadanego zakresu wartości, filtrującą i umieszczającą wyniki w określonym miejscu. To wszystko trzeba będzie zrobić dla każdego elementu zakresu, czyli w jakieś pętli, co dla dużej ilości elementów bardzo spowolni operację. Elementy wbudowane...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Dobry wieczór, Jeżeli w Arkuszu2 nie będzie niczego więcej poza tym kryterium i zakres kryterium będzie ciągły (bez pustych komórek), to chyba najprościej zamiast konkretnego zakresu napisać UsedRange, czyli w tym przypadku: [syntax=vb]CriteriaRange:= Sheets("Arkusz2").UsedRange[/syntax] Pozdrowienia
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
Coś niewłaściwie skopiowany ten kod. Mają podwójne "With", a raz "End With" Dodano po 7 [syntax=vb]Sub Kr() Dim bs As Range, r&, i&, j& Dim ik As Boolean, wb As Workbook, br As Range Dim b Set bs = ThisWorkbook.Sheets(1).Columns(4).Cells Set br = ThisWorkbook.Sheets(1).Rows Set a = New Collection r = 1 While bs(r + 1) <> Empty r =...
Przypisz nazwę dla zakresu np. A2:A20 w arkuszu '2' Dla A4 użyj 'Poprawność danych' - lista, żródło - nazwa zakresu Dla B4, E4 - funkcja WYSZUKAJ.PIONOWO
Nie dałeś załącznika, więc nie ma na czym sprawdzić, ale jeśli problemem jest amerykański format daty, to zapis typu: systemowy separator daty. Jeśli ma być faktycznie ukośnik, niezależnie od ustawień systemowych, to trzeba np. tak: [syntax=vbscript]NewDate = Format(DateAdd("d", 126, Date), "m\/d\/yyyy")[/syntax]
A nie wystarczy zwykła tabela przestawna? Jest tam i filtrowanie i możliwość zliczania wartości. Dowolnych nie tylko liczb. Po posortowaniu może być np. w pierwszym wierszu.
To, co w bazie jest naturalne, do Excela jest "przyszywane". Odkąd mnie kiedyś Excel oszukał podczas sortowania i filtrowania sporej "bazy", nie zlecam mu tak karkołomnych zadań. To nie ma sensu, skoro są dedykowane narzędzia do baz. Tylko ludziom czytać się nie chce.
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...
Filtrowanie w poziomie nie jest łatwym tematem w Excelu. Idealnie do tego nadawałby się układ gdyby wszystkie dane dostawy zawrzeć w jednym wierszu. Prezentowanie później tego nawet w takiej formie, że w kolumnie znajdą się daty będzie zdecydowanie prostsze np. wykorzystując tabelę przestawną.
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ą")...
Mam [url=http://www.multipasko.pl/wyniki-csv... plik z wynikami minilotto i zastanawiam się jak z całości wywiltrować wysttępowanie poszczególnych liczb. ile razy wystąpiła dana liczba i wyświetlanie tylko tych wierszy z daną liczbą, czyli numer losowania i wynik losowania np. liczba 9 nr los. l1 l2 l3 l4 l5 18 9 23 35 12 46 21 9 32...
W załączniku.
Numery TextBox-ów miałeś nie po kolei, a poza tym jakieś dziwne adresy. Ograniczyłem zakres filtra do obszaru wypełnionego wg kolumny A. Miałeś całe kolumny. Być może wiele to nie przyspieszy, ale trzeba wypróbować. Wyłączyłem też odświeżanie ekranu, żeby nie migał podczas filtrowania. Na ogół filtrowanie dotyczy jednej kolumny. W jednym przypadku były...
Witam! Mam arkusz gdzie w kolumnie O mam kilka tysięcy dat z całego roku. Jak wyfiltrować daty np z czerwca? Kolumna ustawiona na format data rrrr-mm-dd; excel 2003.
Witam, w pliku exscla mam kilka arkuszy (każdej arkusz ma ten sam schemat danych), jak przefiltrować wszystkie arkusze i wydrukować wszystkie wiersze w których w kolumnie np E jest odpowiednia data.
Spróbuj formatować całe wiersze np tak jak na zrzucie :idea: 959419 to będziesz mógł wykorzystać filtrowanie wg kolorów :spoko: 959426
witam mam tabele z 4 kolumnami nazwisko pracownika | imię pracownika | kolor zmiana | stanowisko i teraz chce stworzyc tabele, w ktorej beda tez te 4 kolumny ale tylko pracownicy z jednej (a jest cztery) danej zmiany np. zmiany RED. chcialbym tez zeby automatycznie po wpisaniu danych do tabeli 1, dane pracownika ze zmianu RED pojawialy sie w tabeli...
Powinno być OK, w jakim formacie wpisujesz dane?
Nie, ponieważ mógłbym wtedy zafiltrować tylko jeden kolor, Ale po to są operatory ORAZ() i LUB() za pomocą których można zawrzeć wiele warunków w jednym warunku. Cały czas mówię o filtrze zaawansowanym. A może podaj w pliku xls jakiś przykład. Nawet w VBA filtrowanie po kolorze jest "kłopotliwe" jeżeli korzystasz z formatowania warunkowego. Trzeba...
Makro napisane, do zamknięcia
Dzięki. Problem rozwiązany dzięki pomocy kolegi (pozostało tylko usunąć zliczanie pustych komórek) przy zastosowaniu takiego oto kodu: Sub copyUniqueWordsToNewSheet() Dim outputColumn As Range, cellsInCurrentColumn As Range Dim numberOfColumnsInCurrentSheet As Integer, currentColumn As Integer Set outputColumn = ThisWorkbook.Sheets("zestawienie").Colum...
Bez VBA się raczej nie obędzie. Są co najmniej dwa wyjścia (w pętli): 1. Filtrowanie i wydruk po każdej zmianie parametrów 2. Arkusz tymczasowy (czyszczenie, kopiowanie warunkowe, wydruk) Które wydajniejsze? Stawiam na Nr.1
Możesz wykorzystać fragment.tekstu(), lewy(), prawy(). W sumie to nie musisz konwertować. Wrzuć to co zrobiłeś, albo przynajmniej arkusz wypełniony tak jakbyś chciał żeby był. Z Twojego opisu mało wynika.
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
Ja bym sprawdził DateTime.Month z innym DateTime.Month.
Zaznaczyć kolumnę wynikową, następnie Dane>Filtruj.
Witam! Mam plik w którym (kolumny po kolei to) nazwa, jednostka miary, sztuki, cena. Chciałbym stworzyć arkusz, w którym wpisując nazwę będzie mi excel filtrować kolumnę z nazwami i jeżeli wyszuka taka nazwę/kod – to wtedy będzie kopiował mi ta nazwę wraz z jednostka miary i cena do listy? Sztuki będę wpisywał sam... może ktoś pomoc bo próbuje...
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
Zawsze mnie drażni logowanie się do każdej kolejnej aplikacji, jeżeli się już zalogowałem do komputera. Bo chyba nie wchodzisz bez hasła do Windowsa. :) Zamiast formatki widziałbym więc odczytanie (z Windowsa) loginu, sprawdzenie uprawnień w bazie aplikacji, wydzielenie i udostępnienie danych użytkownikowi.
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
Gdy zakładasz ochronę musisz dodatkowo zahaczyć sortowanie i używanie autofiltru Zaznaczałam, niestety nie działało.
Idealnie. Bardzo dziekuje!
Czy nie jest to łatwiejsze w pierwszym arkuszu użyć WYSZUKAJ.PIONOWO? Dodano po 23 Przy założeniu, że w skoroszycie 2 arkusza i w arkusz1 w kolumnie A jest naglowek, taky samy jak w arkusz2:[syntax=vb] Sub Filtter_Tab() Dim crt As Range With Sheets(1) Set crt = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)) End With Sheets(2).UsedRange.AdvancedFilter...
Że muszę mieć odkryty arkusz to już sam zauważyłem. Ale z czego wynika to , że jak nagrywam macro to wszystko działa. A jak uruchamiam później skoroszyt to jest #ARG? Zarejestrowałem jeszcze raz makra. Tym razem przed Save nie ukrywałem Arkuszy. Wszystko działało. Robie Save. Wychodzę. Uruchamiam. Nie działa. ??????? Wklejam jeszcze raz kod: Sub Nazwisko()...
Przykład: [syntax=vb]Application.ScreenUpdating = False For Each k In Range("A2:A200") wzor = LCase(Left(k.Value, 1)) If wzor = "a" Or wzor = "b" Or wzor = "c" Then Rows(k.Row).Hidden = False Else Rows(k.Row).Hidden = True End If Next k Application.ScreenUpdating = True[/syntax]
Witam serdecznie, chciałbym się dowiedzieć jaki filtr bądź fukcję należy zastosować, aby excel zwracał mi ten sam dzień z kolejnych miesięcy. Dla przykładu: spółka X w dniu 10 stycznia 2010r. notowana była po kursie Y. Chciałbym, aby excel pokazał mi, jakie były notowania spółki za miesiąc, dwa (10 luty 2010, 10 marzec 2010) itd. Próbowałem z filtrem...
zablokować AutoFilter na konkretnym wierszu ale jednocześnie umożliwić filtrowanie w pozostałych kolumnach Mógłbyś kolego na przykładowym pliku pokazać - co chcesz zrobić :?: jaki efekt uzyskać :?:
--Witam, potrzebuję pomocy w filtrowaniu raportu RCP Excel dla pracownika, chciałbym uzyskać czas pracy dla danego przejścia obliczany jako pierwsze wejście i ostatnie wyjście oraz czas jaki pracownik spędził na przerwie w czasie pracy. W załączniku przesyłam raport zdarzeń jaki otrzymuję z systemu.
Przy tak rozbudowanym arkuszu Excel nie będzie działać błyskawicznie. Excel jest programem uniwersalnym, ma różne "wodotryski", które zabierają czas. W tym przypadku pole tekstowe trochę spowalnia, bo ono "jest gotowe" po naciśnięciu każdego klawisza. Gdyby dane wprowadzać do komórki, filtr zaczynałby działać dopiero po 'Enter', więc byłoby szybciej...
Dobry wieczór, Przyjęte założenia: 1) Dla jednej osoby w danym dniu kod U lub X może wystąpić tylko 1 raz. Gdyby było inaczej uwzględnione będzie pierwsze wystąpienie. 2) Kolejność kolumn z datami jest taka sama w danych źródłowych i tabeli wynikowej. Rozwiązanie w załączniku. Formuły tablicowe jednokomórkowe. Można kopiować w obu kierunkach. Format...
Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |") > 0 Or .Cells(i, 10) Like szef) And _ (InStr(1, kopalnia, "| " & .Cells(i, 11) & "...
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
filtrowanie excel excel filtrowanie liczb excel makra filtrowanie
lexia sterowniki interfejsu citroen xsara świeca multiroom premium
regulowany generator impulsów ne555 regulowany generator impulsów ne555
Czujnik przepływu wody – brak sygnału, diagnostyka, typowe usterki, wirnikowy, ultradźwiękowy Gorenje WA 60149 – liczba amortyzatorów bębna, parametry, wymiana
