A tak [syntax=vbscript]If Format(ark.Cells(i, "BT"), "yyyy") = CDate(Alpex.cmROK) Then[/syntax]
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
Czy to ma działać jak w załączniku?
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
Co do nazw nauczylem się juz tego w VBA z Excela więc takich głupot nie robie
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
Pierwsza linia działa, druga nie Nje działa, bo oczekiwany jest obiekt typu tabela lub kwerenda, a nie zapytanie SQL.
Zadanie polega na tym żeby skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Zadanie polega na tym czego nie dopowiedziałeś. Czy kopiowane mają być wszystkie, czy tylko wyfiltrowane wiersze, jak np. te według "Kolekcja/Seria", wyfiltrowane po "Casual" ? Wyfiltrowanych jest 4 062, a nie...
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...
Select txtcol, count(txtcol) from tabela group by txtcol Oops, zapomniałem, w Excelu ma być... a to jednak nie baza danych.
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
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
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.
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ć,...
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...
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...
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]
Przede wszystkim załącz plik z przykładowymi danymi i pokaż co i jak chcesz filtrować. Napisz też jaką masz wersję Excela i jaki domyślny format daty w systemie operacyjnym. Ogólny schemat postępowania jest tu.[url=https://pl.extendoffice.com/docu...
Witam! Przy takim układzie danych (powtarzające się wartości w kolumnach :!: ) :cry: IMHO musisz szukać rozwiązania w zaawansowanym filtrowaniu :D np jak w https://www.elektroda.pl/rtvforum/viewto...
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 ;-)
Rzecz w tym, że nigdy nie będziesz pewien wyniku. Z InputBox'a pobierasz 01-12-2015, w arkuszu może być 12/1/2015, 12/01/2015, 1/12/2015, 01/12/2015. Który tekst (w obecnym formacie) odfiltrować? Pewnie wszystko (tylko czy odfiltrowaliśmy pierwszego grudnia, czy dwunastego stycznia?). Wartości w kolumnie D nie są datami, w rozumieniu Excel'a, a zwykłym...
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:=...
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]
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...
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...
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ą")...
Może w ten sposób...
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ż
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.
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,...
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...
Witaj Pozeraj, może być dobre. w kolumnie O nowy FID 2 powtarza, tu są ten sam numer i miasto( w starom)
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ć...
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]
zmień na [syntax=vb]Sheets("Filtr").Range("C" & x).PasteSpecial Paste:=xlPasteValues[/syntax]
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 =...
Mam już rozwiązanie: należy zaznaczyć komórki, Ctrl+G -> specjalnie -> tylko widoczne komórki: i wtedy albo kopiuj albo usuń itd.
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...
Funkcje z grupy WYSZUKAJ znajdują zawsze pierwsze dopasowanie, więc tu trudno ich użyć. Uwzględniając, że to ma działać w dość wiekowym Excelu, najlepiej użyć tu formuł tablicowych z funkcjami INDEKS i MIN.K. Coś takiego: =JEŻELI.BŁĄD(INDEKS($C$3:$C$...
wiem że można to ustawiać ręcznie i tak właśnie mam ale jest to zbyt uciążliwe a przy większej liczbie wpisów nie mieści się na ekranie To rozwiązanie które podaliście jest mi potrzebne do pełni szczęścia :) Tylko aby u mnie działało skoroszytu nie skopiuje Co może nie działać w moim pliku ? przecież jest to samo mam okienko w którym wpisuje do skoroszytu...
dzięki za pomoc
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.
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.
Prośba o pomoc w poniższym pomyśle: Chciałbym na podstawie listy rozwijanej filtrować określony zakres. Czyli z listy rozwijanej wybieram sobie wartość "X" i poniżej filtruje się zakres/wiersze wg zadanej wartości. Wiem, że można użyć autofiltru, ale jeśli jest taka opcja to wolałbym nie. Dzięki za pomoc.
Posiadam dwa kody, które osobno działają, ale mam pewien problem jak je połączyć. Mam dane w pliku xlsx, które chcę wyfiltrować według kryteriów (daty i wartości w jednej z kolumny). [syntax=vbscript] Sub Filtr() Worksheets("Sheet1").Range("A:F").AutoFi... Field:=3, Criteria1:="Mag" Worksheets("Sheet1").Range("$A$1:$F$9597... Field:=4, Operator:=xlFilterValues,...
Witam. Mam trzy kolumny A, B i C. Z kolumny A kopiuję dane do komórki C1 za pomocą formuły =A3&","&A4&", "&A5&","&A6&","&A7 . Teraz uruchamiam autofiltr na kolumnie B z parametrem "niepuste". Dane przefiltrowane, jednakże W komórce C1 pojawiają się także dane niewidoczne po użyciu filtra. Jakiej użyć formuły aby do komórki C1 wpisane były tylko przefiltrowane...
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...
Witam Muszę dołączyć do arkusza u góry w każdej kolumnie wyszukiwanie za pomocą textboxa. Wszystko działa ale tylko w kolumnie E i wyszukuje w całej kolumnie pod textboxem. Modyfikowałem już ten kod nie raz ale nie mogę dojść w jaki sposób zrobić to samo do pozostałych kolumn. Proszę o pomoc. W załączniku plik.
Witam, bardzo trudny (jak dla mnie) problem, polega on na pewnym działaniu. Mamy tabele przykładową 1 A 2 A 3 B 4 G 5 V 6 B Co chciałbym uzyskać? Potrzebuje w nowym arkuszu aby posortowało mi według kryteria np. chcę aby wszystkie kolumny z wartością "B" w drugiej kolumnie zwróciło mi pierwszą kolumnę Po wykoniniu powinno to wyglądać tak: 3 B 6 B żeby...
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
Witam! Mam problem z exelem, a dokladnie jak w temacie z filtrami. Otoz mam date z godzina w pierwszej komorce, w kolejnych mam dane z ktorych musze zrobic wykres. Problem w tym ze wykres musze zrobic ze wszystkich dni w roku, ale tylko np. z godziny pierwszej. Wie ktos moze jak to odcedzic zeby zostaly same np. pierwsze godziny?? Za wszelka pomoc z...
Co to znaczy "usunąć puste"? Czy chodzi o ukrycie wierszy, w których są puste komórki w tej wybranej kolumnie, czy o coś innego? Co to znaczy, żeby "nie trzeba było zatwierdzać enterem"? A czym? W jaki sposób miałby być dokonany ten wybór tygodnia?
Hej, Możesz napisać makro w VBA które będzie filtrować dane i skopiuje Ci w konkretną lokalizację w workbooku.
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...
na przykład: w tabeli nie jest "ALIOR"
Trochę inny sposób.
Wbudowany filtr nie wystarczy?
excel makro filtrowa filtrowa tabela skuteczny filtrowa
stacyjke alarmu sterowanie lusterek octavia blokada drzwi zmywarka bosch
Jak zwolnić blokadę hotelową w telewizorze? Pralka Bosch, Whirlpool, Electrolux – czy ręczne dolanie wody odblokuje blokadę drzwi?