Dobry wieczór, Formułę można uprościć zastępując sumy podobnych wyrażeń formułą tablicową. Formułę wprowadza się do jednej komórki klawiszami Ctrl+Shift+Enter, a później kopiuje w dół. Mam wątpliwość co do celowości liczenia VAT w przypadku biletów bezpłatnych. O ile się nie mylę zawsze w wyniku otrzymuje się zero, a te obliczenia to połowa formuły....
Należy połączyć funkcję UNIKATOWE z funkcją FILTRUJ: [syntax=text]=UNIKATOWE(FILTRUJ(C3:C10;H... Tylko to może być niejednoznaczne, bo ta sama osoba raz może być z "x" a innym razem nie. Ta formuła działa w ten sposób, że najpierw pomija wiersze z "x", a potem szuka unikatów wśród pozostałych osób.
... potrzebuję wyciągnąć wszystkie unikaty, które znajdują się w kolumnie A i zapisać je do kolumny B. Na necie znalazłem formułę, która to wykonuje, niestety ma jeden minus, w przypadku gdy danych w kolumnie A będzie mniej niż zakres w tej formule, formuła wywala błąd. Wystarczy usunąć "g" z komórki A28 i wszystko znika. Jeśli ktoś ma jakiś patent...
Ja preferuję rozwiązania najprostsze, za pomocą zwykłych funkcji i narzędzi Excela. Część a). Skopiować tabele A i B jedna nad drugą, najpierw B, potem A. Zaznaczyć obie. Użyć narzędzia Usuń duplikaty. U góry pozostaną unikaty z B (które nie są potrzebne), pod spodem będą unikaty z A (bo jeśli były w B, to pozostały w górnej części). Tę część można...
Zależy mi aby było to rozwiązane bez makr Jeśli szukasz sposobu uniemożliwienia wklejenia duplikatów :cry: - to można przygotować kolumny pomocnicze, które zweryfikują unikatowość poszczególnych danych w zestawie wklejanych wartości :D 1078166 Wstępnie wklejasz nowe dane w "zielone" pole, formuły weryfikują unikatowość i z "niebieskiego" pola wklejasz...
funkcja tablicowa Czyli po wpisaniu powyższej funkcji z komórki wychodzimy (zatwierdzamy) Ctrl+Shift+Enter w komórce pojawią się nawiasy klamrowe jak poniżej: Edit ----------------------------- Powyższe dotyczy gdyby to były liczby. Jeżeli to tekst (a tak najprawdopodobniej jest) to trzeba zamiast Częstość() użyć innej funkcji, bo ona tekstowe dane...
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.
Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....
i chciałbym go podzielić na mniejsze pliki według kolumny A Zacznij od znalezienia unikatowych wartości z kolumny A bo musisz mieć podstawę do sprawdzania [syntax=vb]Sub FindUniqInColumn(ByVal col As Byte, ByRef items As Collection) Dim i As Integer Dim cnt As Integer Excel.ActiveSheet.Columns(col).Copy Columns(250) Excel.ActiveSheet.Columns(250).RemoveDup...
Nie wiem, co znaczy "przestaje działać". Trzeba było załączyć swój plik. Przesyłam wersję ze zmienionym zakresem.
Wow super to WYSZUKAJ.PIONOWO załatwia sprawę. Z tymi unikatami to już mniej ważne, ale dzięki za pomoc.
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
Na Twojem przykladzie:
Zobacz teraz. Dodałem pętlę po arkuszach. [syntax=vbscript]For Each wk2 In Sheets(Array(Arkusz24.Name, Arkusz26.Name))[/syntax]Można również użyć numerów arkuszy: [syntax=vbscript]For Each wk2 In Sheets(Array(2, 3))[/syntax]albo wprost nazw jako tekstów, ale te są u Ciebie długie, więc niezbyt wygodne w użyciu.
Utwórz sobie arkusz o nazwie C gdzie pojawią się różnice. [syntax=vbscript]Sub elka() For x = 1 To Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row If IsError(Application.Match(Sheets("B").Ce... 1), Sheets("A").Columns(1), 0)) Then y = y + 1 Sheets("C").Cells(y, 1) = Sheets("B").Cells(x, 1) End If Next End Sub[/syntax] ps. Musisz mieć nazwane te arkusze...
Tak, teraz dopiero wiadomo, o co chodzi. Podaję dwie propozycje formuł. Pierwsza w "starym stylu" bez funkcji LAMBDA: [syntax=text]=UNIKATOWE(FILTRUJ($K$5:$K$... z wykorzystaniem funkcji pomocniczej LAMBDA: [syntax=text]=LET(dane;$K$5:$K$24;UNIKAT...
Załącz przykładowy plik. Funkcji działającej wprost i jeszcze na przefiltrowanych danych - nie ma. Funkcja WYST.NAJCZĘŚCIEJ działa tylko na liczbach. Trzeba więc unikatom z tych przefiltrowanych danych przypisać liczby i działać na tych liczbach. Istotne jest czy będzie jakaś zdecydowana dominanta w tych danych, czy nie okaże się, że 3 słowa występują...
[syntax=vb]Sub Porownaj() Dim s As String, y As Long, r As Range y = 1 ow = Cells(Rows.Count, "B").End(xlUp).Row Set r = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) For x = 1 To ow s = Cells(x, 2) If Application.CountIf(r, s) = 0 Then Cells(y, 3) = s y = y + 1 End If Next End Sub [/syntax]
Najprościej: kolumna pomocnicza, MAX()+1 i formuła wyszukiwania.
Sprawdź czy dobrze - Bo nie wiem czy dobrze zrozumiałem. A poprawiałem kod "czysto" matematycznie bez większego rozumienia - minęło 3, roku Dane i przycisk dla "nowego" makra w Arkusz2 [syntax=vbnet]Sub Dostosuj2() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New...
=JEŻELI(LICZ.JEŻELI($B$1:$B$10;A1)>0;""; A1)
Bardzo to niejasno napisałeś i nie pokazałeś w pliku spodziewanych wyników. Czy chcesz zliczać wszystkie widoczne komórki z wybranym słowem, czy tylko unikaty? Czy to słowo ma stanowić całą zawartość komórki, czy może być fragmentem?
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
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.
Proszę jeśli to możliwe o nadanie jakiegoś kierunku, od czego zacząć. Po mojemu: 1. Lista unikatów wg kolumny "B" - pod warunkiem, że nie ma dwóch różnych osób o tym samym nazwisku. Ew "D", jeśli pole jest obowiązkowe. Najprościej przez Collection w pętli 'For Each arkusz' z wyłączeniem "Szablon". 2. Bardzo podobną pętlą wypełniasz tabelkę w "Szablon"...
Bardzo dziękuję Wam za zainteresowanie moim przypadkiem. W odpowiedzi na post Pana Clubs - dodanie (at) zadziałało tylko w pierwszym wierszu. Po przeciągnięciu formuły do niższych wierszy otrzymuję inny błąd "Liczba". Odpowiadając Panu Maciejowi Gonetowi, chciałbym podziękować za uproszczenie formuły, która działa po zapisaniu pliku i ponownym otworzeniu....
:arrow: trekkers A spróbowałeś przynajmniej zastosować poradę kolegi nunak 'a ? Jaką wersję masz excela? Jeżeli 2010 i powyżej masz funkcją "usuń duplikaty". Tylko nie zaznacz jednej kolumny a wszystkie te które mają być indywidualne. Jak nie wierzysz w wyniki zrób sobie test np z trzema kolumnami i danymi. wpisz przykładowe wartości, zaznacz całą tabelę...
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
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...
Pierwsze to nie wiem, czy temat jest odpowiedni do problemu. Potrzebowałbym pomocy przy zrobieniu pewnej rzeczy. Opiszę to na przykładzie koszyka z owocami. Mam dane w paru kolumnach. Kol. A nieistotna, kolumna B opisuje owoce (jabłko, cytryna, kiwi itp.), w kol. C jest unikatowy numer (dla każdego owocu, np. j1, j2, jx, ct1 ...), a kolejna (D) podaje...
Jeżeli używasz Excela >=2007 to możesz użyć narzędzia "usuń duplikaty" [syntax=vb]Sub zz() Dim lLstRw& Dim iLstCol% Dim rRng As Range With Application .ScreenUpdating = False End With iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row Set rRng = Range(Cells(1, i), Cells(lLstRw, i))...
Dziekuje ale dopiero sie ucze Warto w takim razie poszperać w narzędziach Excela. Zwykle w takich przypadkach wystarczą: sortowanie, filtr zaawansowany z zaznaczonymi opcjami "kopiuj w nowe miejsce" oraz "tylko unikaty". Jeśli już musi być w VBA, to nagraj w/w rejestratorem...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Zakładając, że dane będą uporządkowane jak w załączonym przykładowym pliku można zrobić tak. W wybranej kolumnie np. F tworzymy listę unikatów (może być funkcja UNIKATOWE, a jeśli masz starszego Excela to za pomocą narzędzia Usuń duplikaty). W kolumnie obok formuła: [syntax=text]=SUMA.ILOCZYNÓW($D$3:$D$127...
Cześć, Potrzebuję makra na wysyłanie maili do różnych użytkowników z różnymi załącznikami. Pomysł na to to : •Pierwsza kolumna (adres mailowy) •Druga kolumna (ścieżka z której excel ma dodać plik) I ważne np. w komórce A1 będzie właściwy adresat do pliku B1 i tak dalej A2/B2, A3/B3 Treść jest uniwersalna dla wszystkich, jedyne unikaty to...
Ponoć jeden obraz znaczy więcej niż tysiąc słów. http://obrazki.elektroda.pl/2393225800_1... Po prawej masz to co było w podpowiedzi kol. marcinj12 .
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
Hmm, zastanawiam się nad celem tego działania. Jeśli trzeba z obu kolumn wyciągnąć wszystkie unikatowe PESEL'e + dane "towarzyszące", to nie prościej "przelecieć" kolejno obie kolumny z wpisaniem do kolekcji i sprawdzeniem błędu? Jeśli err=0 zapisujemy do tabelki wynikowej (unikat), w przeciwnym wypadku nie. Czy koniecznie potrzebny jest wynik porównania...
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
Nie podałeś wersji Excela, więc nie wiem, czy możesz używać wszystkich funkcji. Ale zakładając, że masz dostęp do funkcji UNIKATOWE, możesz zastosować taką regułę FW: [syntax=text]=CZY.PARZYSTE(ILE.NIEPUSTYC... zakres pomaluj sobie najpierw ręcznie na żółto, a później formatowaniem warunkowym zrobisz zielone pasy. Adresy...
Witam pisze w odniesieniu do tematu [url=http://www.elektroda.pl/rtvforum/to... kolumn excel Otóż wykorzystałem ostatnią formułę do Wykluczenia Danych z kolumny 1 których nie ma w kolumnie 2. Chodzi o To by wykazał mi wszystkie komórki w A których nie ma w kolumnie B Jeśli w kom A jest liczba (12) a gdzieś w kolumnie B cyfra...
Skoro nie podejmujesz się analizy to skąd wiesz że nie liczy unikatowych wystąpień? Ja ją przetestowałem i liczy tak jak trzeba, z tym że liczy też osoby które mają wypełnioną tylko jedną komórkę tj. imię lub nazwisko. A chciałbym żeby excel pomijał taką osobę. Niestety ja z kolei nie za bardzo kumam funkcji bd.ile.rekordów.a. Ale biorąc pod uwagę twoją...
Jasne, nie mniej jednak taka sama sytuacja może wydarzyć się w przypadku rozwiązania z przyciskiem. Ja bym to połączył ze sprawdzeniem czy taki wpis nie istnieje już w zestawieniu(np zrobienie unikatowego rekordu z Pozycja&grupa&Data.). Jeśli istnieje można wyświetlić monit o potencjalnym dublowaniu. Edytowałem. Nie cytuj w całości postu poprzedzającego....
Po mojemu dobrze liczy. Jeżeli policzysz "12" =LICZ.JEŻELI(G:G;K4) wyjdzie ich 11szt, a tak naprawdę wszystko dotyczy jednego, MODEL_17 Musiałbyś zrobić sobie najpierw listę unikatowych z kolumny E dodano po chwili W załączniku z 3-ma kolumnami pomocniczymi. W związku z tym, że niektóre mogą mieć ten sam wynik i będzie bieda z wyszukiwaniem, dodałem...
Witam, posiadam 1 listę z kilkunastoma tysiącami pewnych wartości. 1 Kolumna to unikatowy kod, a druga kolumna to wartości, które również występują x razy. Np. 125, 215, 125, 126, 127, 127 itd. Ale każda wartość ma unikatowy kod. Posiadam również druga listę która chce uzupełnić. Zalezy mi na tym by z tej dużej listy wyszukać konkretne wartości i uzyskać...
Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej przez operator Like w VBA, to znaczy w tym przypadku:...
Rozumiem, że numery w kolumnie B są tylko pomocnicze, inaczej byłyby same unikaty. Jednak piszesz, że w pliku A wpisy są unikatowe, a w załączonym pliku przykładowym są duplikaty. Poza tym w pliku B są prawie same duplikaty, są tam tylko 2 rodzaje wpisu na przemian. Więc przede wszystkim z niego należy najpierw usunąć duplikaty. I jak w końcu ma wyglądać...
Tworzę dokument w Arkuszu1. Jest to comiesięczne zestawienie dokumentów sprzedaży zawierające kilka rubryk. Wszystko co możliwe zautomatyzowałem ile się dało, największy problem będę miał z rubryką gdzie podaję dane kupujących/odbiorców. Ci kupujący niebawem zaczną mi się powtarzać regularnie w kolejnych miesiącach. To autouzupełnianie jakie daje excel...
Jeżeli jakiś fragment jest stały, tzn występuje w każdym wierszu Np miejscowość oraz ilość cyfr na końcu zawsze będzie od 1-4, to rozwiązanie jest stosunkowo łatwe. W innym przypadku należy rozważyć utworzenie listy pomocniczej nazwisk lub miejscowości. Jeśli ich występowanie nie jest zupełnie przypadkowe, to też byłaby możliwość posortowania wykorzystując...
Kolega marek003 zapewne ma jakiegoś asa w rękawie :) Niestety nie mam :) Przyznam że ciekawy pomysł z tą eliminacją wybranych elementów (o wykorzystaniu max() myślałem z tym że nie miałem kiedy przetestować) Jeszcze sie zastanawiam nad sortowaniem i "antydublem" Sortowanie tylko w arkuszu ale zastanawiam się czy nie zrobić jako antydubla w VBA zamiast...
Jeśli korzystasz z arkusza kalkulacyjnego Excel, to można w nim napisać własną funkcję tzw. UDF, która może wykonać to zadanie. Zakładam, że dane są w jednym ciągu tekstowym, rozdzielone spacjami, i można je umieścić w komórce arkusza. Listing funkcji jest taki: [syntax=vbscript]Function Unikaty(src As String) As String Dim lista, wyn, i As Long lista...
Sorry że tak wyszło ale wyszedł zbieg okoliczności i wynik był dobry. dzięki Bobo za zwrócenie uwagi. Jednak znalazłem coś innego co chyba będzie działało przynajmniej ja sprawdziłem na tym prostym przykładzie zapoczątkowanym przez Ciebie Apstynent. Oto Info z pomocy excela Zliczanie wystąpień unikatowych wpisów 1. Zaznacz kolumnę zawierającą listę....
Ten opis jest w dalszym ciągu nieprecyzyjny. 1) Kopiuje Pan kolumny E, F, G, H, I. Czy w tym momencie ma być sprawdzana unikatowość trójki kolumn E,F,G oraz osobno H? Dane są skopiowane. Procedura sprawdza poprawność. Jak ma zareagować w razie stwierdzenia, że jest duplikat w kolumnach E-G lub H? Rozumiem, że ma wyświetlić komunikat i co dalej? Usunąć...
Czemu na siłę w makro? I w jaki sposób pozyskujesz unikalną listę kodów w arkuszu? Nie jestem pewien (bo nie używam tego za często), czy tabela przestawna nie będzie tutaj odpowiednim narzędziem. Powinna dać sobie radę z wygenerowaniem listy unikatowych identyfikatorów i ze zsumowaniem wartości, jeśli dobrze kojarzę (sam nie sprawdzę, bo w excelu 2003...
Przetestuj poniższe makro mając otwarty arkusz z tabelą wejściową [syntax=vb]Sub Sum_By_Account() Dim shSrc As Worksheet 'arkusz źródłowy Dim shDest As Worksheet 'arkusz docelowy Dim lOstRw As Long 'ostatnia zajęta komórka tabeli źródłowej Dim lOstRw2 As Long 'ostatnia zajęta komórka tabeli z wyfiltrowanymi unikatami numerów kont With Application .ScreenUpdating...
Jeszcze jeden wariant. Uwzględnia ostatnie (w sensie numeru wiersza, a nie daty) zamówienie każdego towaru. Zakładam, że wpisy w arkuszu 'Stany' będą unikatowe.
Najprościej byłoby zastosować filtr zaawansowany z kopiowaniem listy unikatów w nowe miejsce i funkcję SUMA.JEŻELI odwołującej się do tabelki źródłowej. Ad P.S. Tak, istnieje taka możliwość. Niestety, same się nie "nagrają". Potrzebna będzie procedura zapisu danych do nowych plików z nadaniem nazw. Na początek, w celach poznawczych, można nagrać kopiowanie...
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...
Witam wszystkich Chciałbym stworzyć plik w Excelu, do skanowania przesyłek (paletyzowania). A mianowicie wyglądałoby to tak: Jest 7 kierunków, które z linii głównej automat dzieli przesyłki na 5 zjazdów, dzieli je po unikatowym numerze zaznaczonym na zdjęciu, Paczki są przeze mnie paletyzowane i tu potrzebuję kontroli w postaci skanu na paletę, abym...
Najprościej: Filtr zaawansowany>tylko unikatowe>kopiuj w nowe miejsce +LICZ.JEŻELI
Zobacz załączony plik. Całość to około 5000 wierszy, 100 modeli i 4 kategorie. Zrobienie raportu (wyliczenie udziału kategorii A dla każdego produktu) zajmuje coś koło 3-ech minut. 1. Posortuj dane po modelu. 2. Skopuj unikatowe modele do następnej kolumny (wklej specjalnie z zaznaczeniem "tylko unikatowe") - w następnych trzech kolumnach będzie Twój...
Zdaje się, że chodzi o zapisanie unikatów - nie o sortowanie. Sposobów jest, jak zwykle, kilka. Poniżej jeden z nich, z wykorzystaniem kolekcji. Przetestuj, dostosuj do własnych potrzeb.[syntax=vb]Dim cUnique As Collection, tablica() As Variant, tmp As Variant Dim i As Integer, msg As String Set cUnique = New Collection tmp = Array(0, 1, 2, 1, 2, 3,...
Zaznacz kolumnę A, menu: dane> filtr zaawansowany> filtruj na miejscu, tylko unikatowe
A zna Pan może formułę która z zakresu np: b2:b30 pokaż 3 unikatowe najwyższe wartości ? np: mamy 5,5,5,4,4,2,2,0 wynik formuły to 5,4,2. Sprawdź załącznik.
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Żle Cię zrozumiałem. Chodzi o zliczenie wszystkich wartości bez powtórzeń. Ja założyłem, że chcesz zliczać wartości unikatowe, czyli te, które się nie powtarzają. Możesz spróbować przerobić odrobinę moje makro, jeśli Ci się chce.
Jeśli dane w "Kolumna5" są unikatowe, to można przez "zwykłe" kopiowanie: [syntax=vbscript]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim wSrc As Long, wDst As Long If ListBox1.ListCount = 0 Then Exit Sub wSrc = Sheets("ARK_1").Columns(5).Find(what:=Li... lookat:=xlWhole).Row wDst = Sheets("ARK_2").Range("A" &...
Witam, Proszę o pomoc w napisaniu Makra. Informacje: Docelowy plik posiada 10 arkuszy z nazwami miast (załącznik4) Założenia: Makro powinno kopiować nazwiska z arkuszy z nazwami miast (kolumna H) wybierać unikaty, oraz kopiować je do co drugiej kolumny arkusza "Podsumowanie" począwszy od wiersza 9 (czyli pierwsza kolumna od A9, duga od C9 itd.) Przykładowy...
Jeżeli to operacja jednorazowa to: w excelu 2003 i niżej : Zaznacz kolumnę z danymi. Menu Dane - Filtr ... - Filtr zaawansowany. Zaznaczasz kopiuj w inne miejsce. Okienko z warunkiem zostawiasz puste. W okienku celu ("Kopiuj do:") zaznacz pierwszą komórkę gdzie ma być wklejona lista. zaznacz "Tylko unikatowe rekordy" i wciśnij ok. w excelu 2007 i wyżej...
Witam, Mam bazę danych, w osobnym arkuszu utworzyłam sobie listę w której mogę wybrać nr klienta (nr klienta jest czasami z jakimś tekstem lub z jakimiś dodatkowymi liczbami ale mam go traktować jako jeden klient). Udalo mi się napisać proste makro (jestem poczatkujaca) które z wyfiltrowanej listy kopiuje te nr do osobnego arkusza, sortuje tam te dane,...
Cóż. Tabela przestawna pokaże Ci wszystko, ale dalej trzeba bystrego oka, żeby zauważyć różnice. Można zastosować "konkurencyjne rozwiązanie" we wszystkich arkuszach. W ostateczności napisać makro, które "wydłubie" wszystkie unikatowe indeksy/nazwy towarów z 3 arkuszy, oznaczy różnice w cenach, etc. i wpisze do osobnego arkusza wynikowego.
wyskakuje jeszcze błąd z tą samą nazwą arkusza W Skoroszyt zawierający makra zostawić tylko jeden arkusz i dać mu jakiś unikatową nazwę(ale Excel, sam zmienia nazwę (dodaje (2)), a następnie zmiany nazwy na nazwę skoroszytu) Chcesz wybrać pliki indywidualnie? Wtedy [syntax=vb] Sub zbior() Dim wb As Workbook Do fl = Application.GetOpenFilename("ExcelFiles....
1. Jeśli połączysz imię i nazwisko w kolumnie pomocniczej (=A2&" "&B2), to będzie już możliwe uzyskanie unikatów (osób/pracowników). Jeśli tabela przestawna nie zwraca Ci oczekiwanych rezultatów, pozostaje wykorzystanie funkcji wyszukiwania. W kolejnej kolumnie pomocniczej indeksy (kilka tematów niżej był przykład z JEŻELI(LICZ.JEŻELI()=1;MAX();itd)...
Witam, potrzebuję pomocy w uzupełnieniu formuły zapisanej w komórkach J5-J9 (stopień), która nie będzie uwzględniała duplikatów. Tzn. jeśli w kolumnie C wpisany zostanie projekt o tym samym numerze więcej niż raz a dodatkowo w kolumnie w danym kwartale będzie obok tych samych nr projektów "1" to w komórkach J5-J9 ma zliczać unikatowe nr projektów. Używam...
Dzień dobry, potrzebuję pomocy w napisaniu formuły, która wylosuje taką ilość unikatowych nr, jaka jest w komórce D1. Dodatkowo w komórkach D4-D17 przy wylosowanym nr powinna wyświetlić się 1, jeśli nr został wylosowany albo 0, jeśli nie został wylosowany.
Do każdego z tych podpunktów powinien być przygotowany przykład z wariantami, kiedy warunek jest/nie jest spełniony. Wtedy np. zauważyłabyś, że warunki podane w pp. 3 i 5 są częściowo sprzeczne (jeśli daty operacji i dok. źródłowego są różne, to oba warunki nie mogą być spełnione) - albo coś jest źle zapisane. W załączniku propozycja rozwiązań na skromnej...
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Moje dane są mniej więcej takiej postaci (uproszczony schemat). Chodzi mi o to, że dla danej osoby w kolumnie "czy admin?" muszą być zawsze te same wartości, czyli muszę w jakiś sposób wyłapać błędy (tutaj w przypadku Ani w 3 wierszu "nie") i je zaznaczyć. Jestem w stanie znaleźć i wypisać unikaty z kolumny "Osoba" oraz zliczyć ile razy dana osoba występuje,...
Ok dzięki ale zamierzenie jest takie żeby te wartości przypisać ludziom na liście z unikatowymi imionami, czyli np. Janek będzie jednym wierszem w drugim arkuszu i w komórce obok ilość dni a w kolejnej średnią
gdzieś mam byka ale nie mam czasu dzisiaj tego poprawić, może jak ktoś rzuci okiem to wyłapie.. jeżeli nie to jutro Czasem szybciej napisać nowe, niż szukać błędu... w cudzym ;) Najprościej wykorzystać kolekcję. Dopisanie duplikatu kończy się błędem, więc w efekcie zostają tylko unikaty... [syntax=vb]Sub kopiuj() Dim nUnique As Collection, sht As Worksheet...
...arkusz z bazą pracowników i firm, którzy należą do tej samej grupy... Zły dobór wyznaczników grup - zapisy typu " 001 " sformatowane na tekst, nieszczególnie się nadają do tworzenia ' ID ' list. Wiele funkcji i ich kombinacji, używanych np: do tworzenia list dynamicznych i sortowanych unikatów, polegnie w zetknięciu z nimi ... taka właściwość excel'a,...
Witam, jestem początkujący w temacie VBA a mam następujący problem: 1) plik .xlsx zawiera ok. 30 tys. rekordów 2) w kolumnie K jest ok. 100 unikatowych wartości 3) chciałbym, aby makro vs. ww. kolumny otworzyło ok. 100 plików w wybranym w kodzie folderze - w nazwie każdego pliku powinny znaleźć się poszczególne 100 unikatowe wartości z kolumny K, dane...
Mamy tu sytuację, gdzie wiele rekordów, pasuje do wielu. Rozpatrzmy wszystko od końca. Faza III: możemy po prostu zliczyć ilości po obu stronach (podobnie jak w fazie II) i oznaczać "do wprowadzenia" wiersze "jak leci". W obecnym kształcie, makro szuka najmniej dopasowanych w zbiorze (patrz kolejność przypisania zmiennej 'ar')* Być może trzeba dołożyć/zmienić...
Witam, Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J. W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń. Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami...
miesiace to inne zagadnienie :) tam beda automatyczne podliczenia godzin pracy w danym miesiacu jesli chodzi o szczegoly. Czyli szukasz unikatowych wartości dla JobNo & Description? Bez względu na daty, czasy, etc? tak, bez wzgledu na inne wartosci unikatowe wartosci maja sie znalesc w tblList na podstawie unikatowych danych pobieranych z tabeli HoursDetails...
OK, głównym problemem jest unikatowość rekordów, bo cała reszta idzie z automatu jak burza. Jeśli jakieś pole jest ustawione na unikatowe wartości a my takich nie dodajemy, to najprawdopodobniej jest główną przyczyną problemu z dodaniem rekordu. Zagrzebałem się w wielu różnych miejscach i wielu różnych forach - jesli nie zna się założonej struktury...
W kolumnie A widzę komórki w których znajdują się liczby unikatowe oddzielone przecinkami przykład; 1. 100001,100002,10007 2. 10100,102000 3. 300001 Jeżeli szukana liczba np 1007 występuje w w jednej z komórek to zwróć jako wartość 10007
Wpisy w kolumnie A muszą być unikatowe. Przy tej modyfikacji już nie były. Wobec tego dodałem do tego identyfikatora w kol. A jeszcze te 3 ostatnie znaki.
Cześć, Potrzebuję pomocy przy scalaniu danych ze zduplikowanych wierszy. W pierwszej kolumnie mam zarówno unikatowe, jak i powtarzające się wiersze (kategorie), w kolejnych kolumnach są wartości (tekstowe) przyporządkowane do tych kategorii. Muszę pozbyć się zduplikowanych kategorii, ale w ten sposób, aby wszystkie wartości przyporządkowane do danej...
Zmienianie odstępów między słupkami Możesz zwiększyć lub zmniejszyć odstępy między słupkami na wykresie słupkowym. Na wykresie słupkowym 2-W słupki mogą nawet nakładać się na siebie. 1. Na wykresie kliknij serię danych (seria danych: Powiązane punkty danych, które są kreślone na wykresie. Każda seria danych na wykresie ma unikatowy kolor lub wzór i...
Witam. Temat może i wałkowany wielokrotnie, ale nie bardzo potrafię się w tym odnaleźć. Mam 2 pliki a w nich 2 arkusze. Pierwszy arkusz - "katalog" zawiera unikatowe nr katalogowe artykułów, zapisane w pierwszej kolumnie. Drugi arkusz - "baza" zawiera zestaw danych, w tym także nr katalogowe artykułów oraz ceny w tych samych wierszach. Niestety kolejność...
Udało się zrobić frormuły ale niestety jak lista unikatowych komórek się utworzy to lista się generuje od początku
A nie wystarczy "Filtr Zaawansowany" z unikatami oraz funkcja "Suma.Jeżeli" ? Jakby co, to nawet nagrywarką makropolecń można to zarejestrować we własnym zakresie ?
Witam. Po pierwsze aby posortować tabelę nie trzeba zaznaczać całej tabeli a tylko jedną komórkę w tej tabeli (komórkę a nie kolumnę czy wiersz). Wydaje mi się że możesz posłużyć się narzędziem Filtr Zaawansowany z menu Dane, i tam wybrać opcję tylko unikatowe rekordy. To napewno zadziała (sprawdzałem 5 sek temu :) ) jak byś nie wiedział co z tym zrobić...
Witam! Na pewno da się zrobić funkcję wyszukującą :D i makro kopiujące wyszukane dane do tabeli. Póki co, podejrzewam że wystarczyć Ci może wykorzystanie kopiowania zaawansowanego filtru (wartości unikatowych), oraz ewentualnie ustawienie poprawności danych (dla listy wyboru). :idea: Zobacz jak to działa w załączonym arkuszu. 820959
1. Najpierw należy zrobić listę unikatowych numerów z całego skoroszytu (makro). Nie powinno być problemów. Porównujesz każdy numer ze znajdującymi się już na liście. Pierwszy, wiadomo musi być unikatowy. Jeżeli drugi jest różny od pierwszego - dopisujesz, jeśli nie - następny. itd przez wszystkie arkusze poza ukrytymi. 2. Sumowanie wartości wg numerów....
Ok, troszke musialem modyfikowac moj arkusz... I musze cala sytuacje nakreslic od nowa: W bazie w "Arkusz1" szukam okreslonego powtarzalnego "tekstu" w kolumnie "H". Jesli znajde np. w kolumnie H5 kopiuje odpowiadajace mu wiersze A5:D5 do "Arkusz2" rowniez do A5:D5 na sam koniec. Unikatowa wartosc wystepuje w kolumnie "A" i chcialbym zeby makro sprawdzalo...
Dzień dobry wszystkim, problem przedstawia się następująco: Posiadam w excelu listę około 4500 rekordów. W kolumnie A znajduje się kod każdego rekordu. Muszę znaleźć i wyfiltrować podobne do siebie kody - problem stanowi fakt, że kody co prawda rozpoczynają się zawsze tak samo - natomiast posiadają różną długość i różne znaki na końcu. Przykładowo:...
Jak wcisnąć w nie zabezpieczenie, aby nowo wgrywane dane były porównane z danymi już istniejącymi i jeżeli będą takie same to danych nie wgramy całkowicie?? Czy można też ustawić komunikat za jaką datę te dane zostały wgrane ? Jeśli kopiowane dane zawierają jakąś datę (lub coś innego, unikatowego) dla porównania, to nie ma problemu...
kopiować excel excel kopiowanie excel excel hasło excel haslo excel
alternator trafic volvo silnika lenovo blokada biosu
renault df101 tylko zegar integra
Volvo S80 2.9 benzyna – lokalizacja czujnika temperatury chłodnicy Bosch KGN36A00 – wymiana filtra węglowego, kompatybilność, instrukcja krok po kroku