[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("V15:V16")) Is Nothing Then If Target.Address = "$V$16" Then r = 1 Target.Offset(-10 - r, 3).Resize(2, 2).Copy Target.Offset(r * 2, 2) End If End Sub [/syntax]
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
To powinna pomóc Ci funkcja WYSZUKAJ.PIONOWO Poczytaj pomoc, bo za dużo tłumaczenia. Dodano po 19 Tutaj coś na szybko skleciłem. Zobacz co się znajduje w kolumnie 'h'. Robiłem to w LibreOffice więc może coś się inaczej wyświetlać, ale działać powinno też w excelu.
Cześć forumowicze chciałbym dopytać o zastosowanie jakiej formuły aby uniknąć wprowadzenia dwa razy tej samej osoby w arkuszach grafiku miesięcznego żeby nie duplikować osoby i np wprowadzając dana osobę w arkuszu X otrzymamy info ze istnieje duplikat (ta osoba jest już wprowadzona w innym formularzu) wprowadź poprawne dane
chciabym uniknąć duplikowania się wartości (nazwisk) wstawianych w jednej kolumnie za pomocą listy A może w ogóle wykluczyć z listy już użyte? W przykładzie lista dynamiczna jako nazwa + kolumny pomocnicze.
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))...
makrem[syntax=vb]Sub usunDupKol() tRow = 3 While Cells(tRow, 1) <> "" For c = Cells(tRow, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Application.CountIf(Rows(tRow), Cells(tRow, c)) > 1 Then Cells(tRow, c).Delete xlToLeft End If Next tRow = tRow + 1 Wend End Sub [/syntax]
No ... trochę utrudniłeś zadanie. Było cos niedawno z pracownikami na różnych wydziałach - tworzenie ciągłej listy pracowników. Kolega adamas tam zaproponował pewne ciekawe rozwiązanie. Tu też by trzeba było zrobić podobnie. Najpierw zrobić taką sama tabelkę jak jest, tylko bez dubli w kolumnach a potem ustawić w jednej liście. edit: Choć jak się okazało...
Cześc. Próbuje stworzyc taką formułe gdzie w kolumnie B bedą powtarzajce sie teksty. Na załączonym przykładzie (uprościłem go na maksa) w komórce B5 jest tekst "dwa" który wystpuje wcześniej w komórce B2. Chicałbym aby w komórce A5 znalazła sie taka formuła która bedzie porównywała/ wyszukiwała komórke na prawo (czyli B5) z poprzedzającymi ja komórkami...
Okno "aktualizuj wartości" pojawia się, bo użyłeś w formule odwołania do nieistniejących nazw plików i arkuszy. Do sprawdzania z poprzednimi miesiącami miałeś po prostu użyć 3x tej samej funkcji sprawdzającej, którą miałeś opartą na LICZ.WARUNKI, zmieniając jedynie zakres miesięcy. Po co używasz LICZ.JEŻELI, skoro funkcja powinna wyglądać tak: [syntax=vb]=JEŻELI(LICZ.WARUNKI(A:A;A3;B...
No cóż, drygu do formułek to takiego nie mam jak kolega Prot , natomiast makrem to tak, jak poniżej w pliku, no i takie zgrabne to to nie jest .. : / ... : ) ... 907466 Starałem się uwzględnić tutaj "stan nieustalony", tzn. sytuację kiedy " tak dostawy2 " może znajdować się albo pod " tak dostawy1 ", albo po przekątnej od niej. 907467 Poza tym, lepiej...
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
Jak można zrobić, żeby przed uruchomieniem tej procedury makro sprawdziło czy w tabeli ("A3:D&) nie ma już danych osoby wstawionej do komórek Przykładowo - sprawdzanie nazwiska (w praktyce trzeba by zastosować rozbudowany słownik bo mogą występować pracownicy o tym samym nazwisku :D ) można zrobić poprzez małą modyfikację Twojego kodu :spoko: [syntax=vbscript]...
Dodałem opcję czyszczenia.
Jeśli masz Excela 2010 lub nowszy można to zrobić w Power Query
Lub tabela przestawna lub: [syntax=vb]Sub kokos() Dim r&, c& r = 2 While Cells(r, 1) <> "" c = Application.Match(Cells(r, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3): Cells(r, 3) = "" While Cells(r, 1) = Cells(r + 1, 1) c = Application.Match(Cells(r + 1, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3) Rows(r + 1).Delete Wend r = r + 1 Wend End...
W takim razie tabela przestawna a źródłem niech będzie lista
[syntax=vb] Sub DelDupl() With Sheets(1).Range("A:B") r = 2 While .Cells(r, 1) <> Empty If Application.CountIf(.Columns(1), .Cells(r, 1)) > 1 Then .Rows(r).Delete shift:=xlUp r = r - 1 End If r = r + 1 Wend End With End Sub [/syntax] jeszcze nie jest dobre?
Uzupełnię pytanie kolegi yogi009 Ile maksymalnie wierszy liczy grupa? W załączniku przykład dla trzech. Ograniczeniem jest maksymalna ilość zagnieżdżeń funkcji JEŻELI.
Jednak wtedy kopiowanie danych różniących się do "pustych miejsc" trzeba będzie dokonać "na piechotę" Jeśli w kolumnie "title" nie będą występowały powtórzenia danych (duplikaty) to całą robotę wykona proponowana formuła przeciągnięta do dołu wynikowej tabeli :-)
Tak, jest możliwe np. wykorzystując sprawdzanie poprawności danych: https://obrazki.elektroda.pl/1272072900_... W tym przypadku wykorzystałem funkcję LICZ.JEŻELI() która sprawdza czy liczba wystąpień w kolumnie A:A wprowadzanej wartości jest równa jeden.
Witam. Szukam sposobu na porównanie zawartości dwóch kolumn w excellu 2007 Mam dwie kolumny w których znajdują się adresy w formacie Przykład Kolumna A Kolumna B ul.Kaliska 2b 2 ul.Kościuszki 1 2 ul.Kościuszki 1 2 ul.Kowalskiego 2 I tak kilka tysięcy wierszy Szukam sposobu na porównanie zawartości tych kolumn tzn. Szukam powtarzających się adresów czyli...
Na razie tylko zmniany Co do tych antydubli i listy w zależności od zmiany jeszcze różnej dla każdego kierowcy to więcej roboty i na pewno przynajmniej jeden arkusz pomocniczy.
Kolumna ta jest dokładnie stawką brutto zmieniającą się raz w roku ma ona wartość 11,25 lub 14,45 dlatego najlepiej gdyby duplikat był usunięty . Przykład dla ID 01072: Kolumny C,D,E duplikaty usunięte kolumny F,G,H,I,J,K - suma godzin i dni dla duplikowanego ID Kolumna L , O zawsze ta sama wartość dla duplikowanego ID wiec zostaje jedna wartość Kolumna...
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ąć...
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Wg mnie pominąłes ostatni parametr rodzaj porównania. Nie wiem co Excel wtedy robi ale podaje zły wynik. Formuła, która u mnie działa to: =INDEKS(B4:B20;PODAJ.POZYCJĘ(MAX(C4:C20)... Pozdrawiam Solo
... uniemożliwiać ponowne dodanie tych samych ... Utwórz sobie "indeksa" z wpisywanych danych i przyrównuj go do, tak samo utworzonego, "indeksa" w "bazie" przelatując ją pętlą po wierszach, np: 978978
Witam mam prośbę o pomoc jak w tytule, mam: Id. Ilosc. Cena A. 2. 1 D. 1. 2 G. 4. 5 D. 2. 2 F. 4. 6 H. 2. 3 G. 5. 5 G. 3. 3 Chodzi scalenie takich samych produktów i zsumowanie ilości jednak sumowac i scalac te o tej samej cenie,inna cena to inny produkt Czyli unikalna pozycja, macie sposób?
Najprościej? Połączyć arkusze (jako źródła tabelek) w Access i już z poziomu Access'a można sobie widokami (kwerendami) porobić co się chce - włącznie z szukaniem duplikatów. Rzeźbienie tego w Excelu to będzie więcej roboty (np. z tym szukaniem duplikatów).
Witam. Potrzebuje makra, które kopiuj dane z arkusza Excela "BAZA" do arkusza excela "baza1" i usuwa duplikaty (imie i nazwisko) które występują kolejny raz w kolumnie C. W arkuszu "baza" funkcje Excela muszą zostać. Przeszukałam internet i nie znalazłam kodu.Wierszy będzie maximum 100 z których należało by usunąć duplikaty.
Napisz jaka wersja Excela, w 2007 w menu Dane jest polecenie usuń duplikaty, w stardzych Edycja -> Znajdź/Zastąp
A tak się zapytam, wbudowana funkcja usuń duplikaty ? Co w przypadku powiedzmy Jana Kowalskiego co ma psa Azora, i Jana Kowalskiego co ma psa Bobika ? To ten sam Jan Kowalski ? Zakres sprawdzania duplikatów ustawiasz jak chcesz , czy to ma się odwołać do jednej kolumny czy do np. wszystkich . Usuwanie duplikatów leci dość szybko.
... tylko działa ono jeśli duplikowane wiersze są jedno pod drugim :) [syntax=vba]Option Explicit Sub dupli_pupli_jedno_rozec() Dim k%: k = 4 Dim wr&, w&: w = 2 Do While Cells(w, 1).Value < Cells(w + 1, 1).Value w = w + 1 Loop Do wr = 2: w = w + 1 Do While Cells(w, 1).Value < Cells(w + 1, 1).Value Cells(wr, k).Value = Cells(w, k).Value...
No o ile dobrze zrozumiałem chodzi o szukanie i podświetlanie duplikatów. Chyba że znów czegoś nie zrozumiałem, jak trzeba.
Dokładnie tak - potrzebuje mechanizmu broniącego przed powstaniem duplikatów.
Otworz pliki Excel'om. Uzyj funkcje LICZ.JEŻELI lub PODAJ.POZYCJĘ. Lub kopie do jednego arkuszu i "usun duplikaty"
Jeżeli produkt występuje tylko raz to możne wbudowane formatowanie duplikatów rozwiąże problem.
Ale teraz błysnę. :D Wszystko jak w poście wyżej, czyli u kolegi marek003 z jedną tylko dokładką. Jak sam piszesz czasami jakis rekord w 1 tabeli, nie ma odpowiednika w drugiej i teraz: > jeżeli w pierwszej tabeli są wszystkie używane rekordy a w drugiej nie to nie ma problemu - bazujesz na nich > jeżeli w drugiej są wszystkie a w pierwszej nie - analogicznie...
Wyszukaj.pionowo nie chce zadziałać?
Sorki, zmyliło mnie "o identycznych 4 kolumnach" ;) Użyj dwóch kolumn pomocniczych np. E, gdzie formuła =A1&B1&C1&D1 i F =JEŻELI(LICZ.JEŻELI(E:E;A1&B... duplikat";"")
Po co komplikujesz sobie życie? Wydziel kolumnę dla godziny, zaznacz kolumnę z nazwiskami i zastosuj formatowanie warunkowe (duplikujące się wartości)...
Przenosze temat. Zle sformulowane zapytanie (moja wina).
jeżeli(oraz($a1=$a2;$b1=$b2;&quo... Czy nie zabrakło Ci czasem ) dla oraz ?
Zrób z tego tabelę przestawną: kolumnę A do wiersza, a z B, C i D - sumę wartości.
Dzięki za pomoc problem rozwiązany. Zamykam.
Załącznik powinien być adekwatny do danych rzeczywistych. Nie da się pisać formuł na każdą okoliczność. Liczby pomocnicze muszą być całkowite dodatnie i w odpowiednim porządku wyznaczonym przez kierunek sortowania. W kolumnie J nie może być duplikatów.
excel 2010 problem rozwiązałem taka pętlą For i = 4 To 18 For j = 20 To 100 If Cells(i, 8).Value = Cells(j, 2).Value Then If Cells(j, 2).Value <> "" Then Cells(j, 2).Interior.Color = RGB(255, 0, 0) End If End If Next j Next i
Witam Proszę o cierpliwość i pomoc :) w napisaniu kodu VBA Excel oraz wskazanie, jak w tablicach wskazać zakres np. cały wiersz a nie poszczególne komórki. Problem: 3 tablice z danymi liczbowymi: tablica 12A (i , j) tablica 12B (i , j) tablica 12C (i , j) tablica HHH (i , j) - tablica do której należy wpisać wartości z tablic jw.. Zadanie: napisz kod...
duplikat excel duplikat excel arkusz excel usuwać duplikat
nadmuch kabina lexmark drukarki licznik skakać
d5500 samsung programowanie motorola gm300
Joystick jako potencjometr i przełącznik soft Kenwood TH-G71 - Polska instrukcja obsługi
