Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Funkcja Excel - blokowanie wpisania duplikatów

#1
Funkcja Excel - blokowanie wpisania duplikatów
Witam
Poszukuje funkcji która automatycznie usunie mi wpis jeżeli się powtórzy
Inaczej mówiąc skaner skanuje mi kod do Excela i chce żeby kod nigdy się nie powtórzył


Tytułuj poprawnie wątki: http://forum.pcformat.pl/Jak-poprawnie-t...ac-watki-t
Wyjątkowo poprawiłem.
broda99

.
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: Funkcja Excel
Wytłumacz dokładniej co masz na myśli.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: Funkcja Excel
skanuje kod jest on wyświetlany ale może sie powtórzyć a nie ma prawa i czy istnieje jakiś programik który usunie mi powtórzony kod
 System operacyjny: windows_seven Przeglądarka: chrome
#4
RE: Funkcja Excel
Kolejne kody paskowe wpisywane w komórki - coś takiego?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#5
RE: Funkcja Excel
kod kreskowy jest skanowany i wyświetla się ale nie chce aby się powtarzał
jeśli jakiś wpis się powtórzy , automatycznie
usuwa
 System operacyjny: windows_seven Przeglądarka: chrome
#6
RE: Funkcja Excel
Zaznacz całą kolumnę (A) > Menu Dane > Sprawdzanie poprawności... - w zakładce ustawienia w okienku wyboru "Dozwolone": "Niestandardowe", w okienku "Formuła" wpisz:
Cytat:=licz.jeżeli(A:A;A1)<=1
+ komunikat o błędzie.

Można oczywiście również za pomocą kodu VBA.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#7
RE: Funkcja Excel
dobra ale to jest jak znam liczbę a ja mam kolumnę którą chce żeby sprawdził czy się nie powtarzają 4 czy 5 ostatnich cyfr
albo coś co będzie mi zaznaczało powtórzone kody
 System operacyjny: windows_seven Przeglądarka: chrome
#8
RE: Funkcja Excel - blokowanie wpisania duplikatów
Napisz dokładnie: jakie to wartości (ile znaków, same cyfry?), ile znaków do sprawdzenia?
Najlepiej podaj przykład.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#9
RE: Funkcja Excel - blokowanie wpisania duplikatów
mam kod 000082407339 i 08 oznacza osobę
a reszta jest zmienna i w związku z tym że różne osoby będą skanowały nie chcę aby liczby zmienne się powtórzyły
 System operacyjny: windows_seven Przeglądarka: chrome
#10
RE: Funkcja Excel - blokowanie wpisania duplikatów
Najprościej byłoby rozbić wartość na 2 kolumny: 00008 | 2407339
i wyszukać duplikaty w kol. B korzystając z tej samej formuły i formatowania warunkowego: http://office.microsoft.com/pl-pl/excel-...36616.aspx baź skopiować unikatowe wartości lub usunąć duplikaty korzystając z polecenia Menu > Dane: http://office.microsoft.com/pl-pl/excel-...73943.aspx (Excel 2007>).

---
Makro: (Alt+F11 > Wstaw: Moduł > w nowy moduł wklej kod):
Kod:
Option Explicit

Sub Usun_duplikaty()
Dim kod As String, d As Integer, i As Integer
Dim kol As Range, odp As String, licz As Integer

Columns("A:C").Select
Selection.NumberFormat = "@"
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select

licz = 0
d = Cells(Rows.Count, "A").End(xlUp).Row
Set kol = Range(Cells(d, 3), Cells(1, 3))

For i = 2 To d
    Cells(i, 2).Value = Left(Cells(i, 1).Value, Len(Cells(i, 1)) - 7)
    Cells(i, 3).Value = Right(Cells(i, 1).Value, 7)
Next i

For i = 2 To d
    If Application.WorksheetFunction.CountIf(kol, Cells(i, 3).Value) > 1 Then
        Cells(i, 3).Interior.ColorIndex = 36
        licz = licz + 1
    End If
Next i

'Range("A1").Select

If licz = 0 Then
    MsgBox ("Nie ma duplikatów")
    GoTo laend
Else
    odp = MsgBox("Duplikatów: " & licz / 2 & ". Usunąć duplikaty?", vbYesNo)

    If odp = vbYes Then
        For i = d To 2 Step -1
            If Application.WorksheetFunction.CountIf(kol, Cells(i, 3).Value) > 1 Then
                Cells(i, 3).EntireRow.Delete
            End If
        Next i
    End If
End If

laend:
Range("A1").Select

End Sub
Makro zaznacza jednym kolorem wszystkie znalezione duplikaty, usuwa powtarzające się od końca (w arkuszu zostaje 1-szy od góry).
Założenia:
W 1 wierszu są nagłówki kolumn.
Kod jest 7-mio cyfrowy.

Kolor możesz sobie zmienić:
[Obrazek: excel-color-index.png]
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
Zaznaczanie w Excelu powtarzających się wartości różnymi koloramiexcel zablokowanie duplikatówexcel blokada wpisania takiej samej wartościexcel kod kreskowyexcel funkcja powtarzające się komórkiexcel 2010 kody kreskoweexcel 2010 blokowanie kolduplikaty excel 2007 vbabrak danych ze skanera kodów excelblokowanie komórki po wpisaniu wartości

Podobne wątki (Funkcja Excel - blokowanie wpisania duplikatów)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  AOMEI i funkcja synchronizacji ramirez77 3 5477 26.05.2021, 10:52
Ostatni post: Pentium4320
  Excel, GIMP, Photoshop - nauka z książki? adi191 1 5415 09.02.2020, 18:36
Ostatni post: Fix00ser
  Pobieranie rekordów z Facebook'a - MS Excel krisoo 1 6110 29.10.2019, 05:06
Ostatni post: broda99

Skocz do: