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
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 ;-)
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...
Czy to ma działać jak w załączniku?
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...
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.
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...
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]
Witaj Pozeraj, może być dobre. w kolumnie O nowy FID 2 powtarza, tu są ten sam numer i miasto( w starom)
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...
Makro napisane, do zamknięcia
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
Wbudowany filtr nie wystarczy?
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) & "...
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...
Tu masz nagrany kod z rejestratora przy filtrowaniu daty w zakresie od... do... [syntax=vb]ActiveSheet.Range("$A$1:$E$23... Field:=3, Criteria1:= ">=2012-02-03", Operator:=xlAnd, Criteria2:="<=2012-02-06"[/syntax]. Wystarczy, że zamiast daty wstawisz (złączysz znakiem &) swoją datę początkową i końcową i uzyskasz efekt o który Ci...
Kolego podpowiedz mi jeszcze jak zablokować te dwa górne wiersze tak by zawsze były widoczne. okno->zablokuj okienka. [url=http://abc-excel.blogspot.com/2010/... w excelu
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...
na przykład: w tabeli nie jest "ALIOR"
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
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 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ć...
Bardzo możliwe, że Pan Maciej zrobi tej formuły. Ale ja w takich przypadkach nie złom głowy i użyć makra Działa na podstawie aktywacja "Zestawienie"
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
A, rzeczywiście. Trzeba odkryć wszystkie wiersze przed end(xlUp)
W kolumnie C, jak piszesz, jest data. Wynik więc powinien być w D i E... Spróbuj w D2 takiej formuły tablicowej (Ctrl+Shift+Enter) [syntax=text]=MIN(JEŻELI(A$2:A$100=A2;JE... przeciągnij w dół. W kolumnie E, analogicznie MAX Oczywiście wpisz własne zakresy. Im mniejsze, tym szybciej będzie przeliczało (żadne A:A...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
Hmm... 1. sprawdzić ilość spacji - musi być tylko jedna 2. sprawdzić kody znaków - tylko duże litery od A do Z w obu wyrazach. Takie coś? http://obrazki.elektroda.pl/3887959700_1...
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
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 =...
Wzorowałem się na pliku z dwoma zmiennymi, który działa idealnie. Dodałem trzecią zmienną i wszystko się posypało Zwróć uwagę, że: 1. W pliku "wzorcowym" istniejące tam dwa warunki działają "na krzyż", tzn., że jeśli jeden z nich = "Wszystkie", to sprawdź wartość drugiego i jeśli ten jest inny jak "Wszystkie" to wykonaj kryteria przypisane do tego...
Tak, dokładnie o coś takiego chodziło. Tylko Skąd i Dokąd bym na dwie kolumny rozbił (zakładając że chcesz je mieć potem w raporcie). Nazwy mają się powtarzać. Teraz możesz np. zrobić tabelę przestawną jak w załączniku: http://obrazki.elektroda.pl/2261331300_1... popróbować z różnymi funkcjami czy nawet próbować jakieś makro napisać,...
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.
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]
Dwa pytania na wstępie. Czy możesz ingerować w ten skoroszyt (dodać dodatkową kolumnę dzięki której później będziesz filtrował dane)? O jaką tabelę ci chodzi (z którego arkusza)? Jeżeli możesz ingerować w arkusz dodaj jedną kolumnę przy nazwisku. Wpisz formuły odnoszące się do nazwiska we wszystkich wierszach dotyczących tego nazwiska. Zaznacz grupę...
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
Sprawdź [syntax=vbscript]Sub przyszly_tyd() With ActiveSheet .AutoFilterMode = False .Range("a6:Q3922").AutoFilter Field:=11, Criteria1:= _ xlFilterNextWeek, Operator:=xlFilterDynamic End With End Sub[/syntax] lub [syntax=vbscript]Sub przyszly_tyd() With ActiveSheet If .AutoFilterMode Then .ShowAllData .Range("a6:Q3922").AutoFilter Field:=11, Criteria1:=...
U ciebie są pięknie posortowane dane, a u mnie nie - i nie będzie tak bo dane są dopisywane na bieżąco W kolumnie 'G' (Lista unikatów 'Projekty') masz funkcję wyświetlającą posortowane unikaty - zastosuj ją do innych kolumn (projekty, osoby) i będziesz mieć porządek.
nowe rekordy muszą się wklejać po kolei w te tabele obok (A1:D1, A8:D8 itd.) :?: :?: :?: Czy to ma znaczyć, że nowe rekordy mają być dopisywane do poszczególnych tabelek z tym samym ID ??? Jeśli istnieją jakiekolwiek racjonalne przesłanki, że poszczególne segmenty tabeli nie mogą być dziesięcio-wierszowe :cry: to w kodzie te dane mają kopiować się...
Tu masz proste makro: (sprawdza kolumny dopóki jest wartość w kolumnie C zaczynając od 7 wiersza Sub filtr() a = Range("C3") b = Range("C4") i = 7 Do While Cells(i, 3) <> "" If (Cells(i, 3) >= a) And (Cells(i, 3) <= b) Then Rows(i).EntireRow.Hidden...
Może w ten sposób...
Mam już rozwiązanie: należy zaznaczyć komórki, Ctrl+G -> specjalnie -> tylko widoczne komórki: i wtedy albo kopiuj albo usuń itd.
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,...
Napisz dokładniej, o co ci chodzi, najlepiej podaj przykład w pliku Excela. Co rozumiesz przez dane odfiltrowane? Czy chodzi o użycie autofiltra na tych danych, czy o funkcję FILTRUJ? Użycie funkcji FILTRUJ w połączeniu z UNIKATOWE wydaje się być najprostszym rozwiązaniem, o ile można określić kryterium filtrowania.
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ą")...
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]
Ewentualnie filtrowanie.
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...
Lecz pomimo jej przefitrowania w listboksie widzę wszystkie pozycje. Jak zrobić bym widział tylko te po filtracji? Najszybciej przez 'additem' (czyli pętla po widocznych komórkach i ładowanie do listboksa)
Z tego co zrozumialem mozesz uzyc filtrowania.
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
Dziękuję za funkcję. Niestety z vba nie wolno mi korzystać. Tylko filtrowanie wartości.
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...
--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.
skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Sprawdź: [syntax=vba]Option Explicit Sub odkopiuj() Dim kc As Integer, kd As Integer Dim wrs As Long Dim nagl As String Dim arkC As Worksheet Application.ScreenUpdating = False Application.Calculation = xlManual 'Niekoniecznie Application.EnableEvents...
=AND(IF(A1<DATEVALUE("2013-07-01");TR... Warunek dla komórki A1 W wyższych wersjach Excela jest możliwość ustawienia AutoFiltra dla daty z parametrem "pomiędzy". Trzecia możliwość - posortować całość po dacie i wybrać żadany zakres.
Dzięki za link, niestety nie robi tego czego oczekuje. Nie, nie oczekuje gotowca. Chce jakiś przykład, abym już resztę zrobił sam. Póki co nic nie wychodzi. Jeśli chodzi o filtrowanie tego pliku, z którego trzeba pobrać dane to jest chroniony i nie znam hasła, więc makro nie może filtrować.
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ż
Zaznaczyć kolumnę wynikową, następnie Dane>Filtruj.
No niestety, teraz nic nie kopiuje. Nie wykrzacza się ani nic, z tym że nic się nie pojawia w arkuszu... Nie wiem czy ma znaczenie fakt, że w plikach z których czerpię, dane poddane są filtrowaniu?
Kiedyś na forum był temat magazynu. uchował mi się plik. Jeśli towarów jest naprawdę dużo, to zerknij na filtry (przede wszystkim ten po nazwie) w formularzu pod przyciskiem "Wydanie z magazynu". Projekt oczywiście nie jest dokończony, ale chodziło wtedy o to filtrowanie. Może w ten sposób?
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...
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...
Witam wszystkich, Głowię się jak można zablokować AutoFilter na konkretnym wierszu ale jednocześnie umożliwić filtrowanie w pozostałych kolumnach. Wykorzystanie kodu: ActiveSheet.ListObjects("umowy&... Field:=7, Criteria1:="xxx123" Niestety robi to tylko raz :( Macie jakiś pomysł jak można to zrobić?
Zadanie nierozwiązywalne. Za słabe sprecyzowanie. Czy: MOJ1 MOJ2 to też duplikaty MOJKOT ? A MO1 to także duplikat MOJKOT? A MXYZ też?
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.
Ja bym sprawdził DateTime.Month z innym DateTime.Month.
Dzięki wielkie za pomoc- już sprawdzam. A Excela miałem na wirtualnej maszynie, sprawdzę ASAP na normalnym komputerze i napiszę czy się udało, z góry jednak dzięki!
To podziel lub zablokuj sobie okno Excela (Menu Okno->Podziel/Zablokuj okienka) aby wiersz z autofiltrem był zawsze widoczny. krzychoocpp :arrow: Pisałem post nie widząc jeszcze Twojej odpowiedzi, myśle że stanowi on dobre uzupełnienie Twojej wypowiedzi.
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...
Spróbuj z autofiltrem (makro nagrane rejestratorem i zmodyfikowane) Sub filtruj() Range("C5:C69").Au... ActiveSheet.Range("$C$5:$C$... _ Field:=1, Criteria1:=Array([d3], [e3], [f3], [g3]), Operator:=xlFilterValues End Sub Aby zupełnie...
Daj exela arkusze jeszcze.
Do takiego filtrowania listy musiałbyś wykorzystać TextBox. Raczej nie da się tego wykonać "wewnątrz" ComBox'a, gdy jest aktywny (posiada focus).
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...
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...
Witam, otóż czy jest ktoś w stanie podpowiedzieć jakiego kodu użyć aby automatycznie wyfiltrować dane: Mianowicie: mam zakres danych z którego chciał bym wyfiltorwać dane z arkusz po zakresach wartości : 31 , 33 , 35 mianowicie każdy zakres ma swój arkusz do którego chciał bym żeby przekopiowało dane. po czym filtruje kolejny zakres i tak w kółko aż...
Myślę że można ten kod uprościć tylko nie trafiam za twoim myśleniem (może zaspany jestem). Na początku wyrzucić to co jest zbędne np. tak: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("zmieniane3")) Is Nothing Then NumerWiersza = 3 For NumerKolumny = 2 To 7 If (Worksheets("biblioteka").Cells(1, NumerKolumny)...
Zakres [syntax=vbscript]Range("E3:F" & Rows.Count)[/syntax]zawiera dwie kolumny (2 pola), a Ty chcesz filtrować po trzecim: [syntax=vbscript]field:=3[/syntax]
Mojego archiwum chyba nie można rozpakować bo używam nowego WinRara 5.50. Tym razem spakowałem systemowym 7z. Zrobiłem to tak jak w załączniku. Zostanie mi jeszcze utworzyć listę przefiltrowanych pozycji. Jednak mam pytanie związane jeszcze z samym filtrem. Czy można ten filtr uzależnić całkowicie od siebie aby po przefiltrowaniu w jednym filtrze, filtrowały...
Witam , Ropsi - jestem pełen uznania dla twego ..... co tu dużo ukrywać - geniuszu - dokładnie o taki efekt mi chodziło - dzięki serdeczne - działa wyśmienicie. Nie wiem czy da się to jakoś zoptymalizować aby samo filtrowanie przebiegało minimalnie szybciej - ale nie ma to już takiego znaczenia - Najważniejszy jest efekt , a efekt jest własnie taki...
Witaj Można użyć kwerendy do filtrowania dla pierwszej kolumny(DSN = Text Files) Musi być ustawiona MSQuery
Swój problem rozwiązałem rejestratorem makr. Uruchamiamy Filtruj z zakładki Dane, i usuwamy zaznaczenie "Puste" Przechodzimy do drukowania, w którym zaznaczamy ilość kopii i czy mają być sortowane czy nie . I drukujemy. Usuwamy filtrowanie. Zatrzymujemy rejestrator makr. I mamy makro filtrowania i drukowania. Powodzenie tym, którzy rozwiązują ten problem....
Bo masz bajzel z tymi datami. Np w D797 jest 1/13/2014 w D1403 jest 13/01/2015 oraz wiele, wiele innych. W związku z tym 10/12/ to dwunastego października, czy dziesiątego grudnia? I co z tym biedny Excel ma zrobić?
Zrób plik przykładowy i załącz go na forum :D i wyjaśnij dlaczego potrzebujesz VBA :?: i na czym ma polegać "Filtrowanie od A do Z" :cunning:
Nie wiem jaką masz wersję excela, ale od 2007 w górę to będzie karta DANE->Sortuj, otworzy się okno dialogowe, gdzie będzie można wskazać kolumny i kolejność sortowania. P.S. Podmień dane w pliku o ile są prawdziwe, za dużo danych osobowych jest publicznie przedstawione
Za mało konkretów podałeś. Nie wiadomo, na czym ma polegać to filtrowanie. Czy kryteria filtra będą stałe, czy zmienne? Czy ma to być autofiltr założony wprost na danych źródłowych, czy myślisz o filtrowaniu formułami? Daj załącznik z próbką reprezentatywnych danych i wyjaśnij, jakich oczekujesz wyników.
Tak ma pan racje. Jest to projekt zaliczeniowy i udostepniłem tylko tę częśc kodu.
Pozwolę sobie przypomnieć Koledze Winetou, że tak, jak w Jego przypadku, to: - utworzyć w ODBC odpowiedni DSN, - utworzyć potrzebne kwerendy, - utworzyć formularze do filtrowania i na koniec raporty, które są końcowym efektem, do którego Winetou zmierza. Dodano po 42 Staram się zrobić kod który będzie mi kopiwał dane z przefiltrowanej tabeli poleceniem...
niestety niewiele mi to pomogło.
Aby wykorzystać filtr zaawansowany musisz w specyficzny sposób ustawić dane, a w szczególności nad tabelą z danymi (lub obok) powinieneś zostawić miejsce (wiersze) na warunki które powinien spełniać wynik (muszą być te same nagłówki kolumn). Dokładny opis jak to stosować będziesz miał jak wciśniesz pomoc (ikonka ze znakiem zapytania) i napiszesz "Filtr...
jak mogę zrobić aby makro weryfikowalo hasla [syntax=vbscript]Private Sub Loguj_Click() Set dl = Sheets("Dane logowania") ow = dl.Cells(Rows.Count, "A").End(xlUp).Row On Error Resume Next a = Application.Match(Me.User, dl.Range("A1:A" & ow), 0) If a > 0 Then If Me.Password = CStr(dl.Cells(a, 2)) Then MsgBox "Zalogowany", vbOKOnly Unload Logowanie End...
o co Ci wkleiłem to jest autonomiczny programik. Wklejasz go w nowy moduł i możesz odpalić. wtedy zaznaczy Ci wszystkie niepuste komórki w kolumnie G. jeżeli chcesz, go umieścić w innej procedurze to możesz całość wkleić bez pierwszej i ostatniej linijki. Czyli najpierw odpalam ten Twój kod, a potem uruchamiam moje makro, tak? Zakładasz filtr i chcesz,...
Do takich celów moim zdaniem lepiej wykorzystać filtrowanie. Albo formatowanie warunkowe.
1) zapisane w folderze / lokalizacji liku, z którego były kopiowane Przed 'r = 2' dodaj linije ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path 2)Nezrozumiale - docelowy skoroszyt + filtrowanie(?) co tam filtrowac dla jednego portfela?? Nagraj makro dla np P001
Idealnie. Bardzo dziekuje!
Jedna z metod na ustalenie ostatniego wiersza, którą ja stosuję: [syntax=vb]If FilterMode Then ShowAllData ost_w = Cells(Rows.Count, "A").End(xlUp).Row[/syntax] W tym wypadku - ustala wiersz z ostatnią komórką w kolumnie A. W zmiennej ost_w masz wtedy numer wiersza, który znaczkiem & możesz dokleić do adresu w VBA.
Sortowanie danych to podstawy Excela i nie wolno, chcąc w nim pracować, iść na łatwizne. Trzeba to przetrawić samemu aby nabiło się do baniaka. Można napisać że, help Excela jest po to aby go czytać a nie "olewać", więc tylko podam z brzegu, adresy stron o rzeczonym problemie ( jest ich mnogo a google zasypuje informacjami ): http://office.microsoft.com/pl-pl/excel-...
Gdy zakładasz ochronę musisz dodatkowo zahaczyć sortowanie i używanie autofiltru Zaznaczałam, niestety nie działało.
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
excel filtrowanie excel filtrowanie danych excel makra filtrowanie
naczynia indukcyjną zabezpieczyć brama szarpanie czasie jazdy vectra
moduł komfort termet banggood opinie
ESP8266 Arduino – zliczanie impulsów zewnętrznych TIMER0 i przerwaniami GPIO Spin-off w elektronice i AGD – definicja, przykłady, Creotech, XTPL, inwertery, wirowanie