CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Hmmm…. Mester

24. september 2021 - 23:08 Der er 6 kommentarer og
1 løsning

VBA der forhindre dubletter i samme kolonne.

Kære eksperter.
Jeg er helt uerfaren i vba. Er der en der kan hjælpe med en stump vba-kode der forhindre at man kan taste en dublet ind i den første kolonne i mit ark?

Således forstået at når værdien er tastet ind, så får man en fejlbesked og den indtastede dublerede værdi bliver slettet, når man trykker på ok ved beskeden.

Det vil så være fantastisk hvis den celle med den dublerende værdi bliver markeret.

Pft. Newbee.

Synes godt om

jens48 Ekspert

24. september 2021 - 23:56 #1

Læg denne makro ind i arkets koder

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
MsgBox ("Dublet. Bliver slettet")
Target = ""
End If
End If
End Sub

Synes godt om

jens48 Ekspert

25. september 2021 - 01:00 #2

Her med farvning af den dublerede værdi:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
x = WorksheetFunction.Match(Target, Range("A:A"), 0)
Cells(x, 1).Interior.ColorIndex = 4
MsgBox ("Dublet. Bliver slettet")
Target = ""
Cells(x, 1).Interior.ColorIndex = 0
End If
End If
End Sub

Synes godt om

2 synes godt om dette

MB280SK Seniormester

25. september 2021 - 07:40 #3

Godmorgen Jens48
Super :-)
Virker så fint. Tusind tak

Synes godt om

Hmmm…. Mester

26. september 2021 - 09:23 #4

Kan man efterfølgende få den til at hoppe til den markerede celle så den bliver aktiv?

Synes godt om

1 synes godt om dette

jens48 Ekspert

26. september 2021 - 14:07 #5

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
x = WorksheetFunction.Match(Target, Range("A:A"), 0)
Cells(x, 1).Interior.ColorIndex = 4
MsgBox ("Dublet. Bliver slettet")
Target = ""
Cells(x, 1).Interior.ColorIndex = 0
Cells(x, 1).Activate
End If
End If
End Sub

Synes godt om

1 synes godt om dette

rasmuso Seniormester

26. september 2021 - 15:10 #6

Nårj - hvor det virker!!
TAK!!

Synes godt om

Hmmm…. Mester

27. september 2021 - 08:26 #7

Perfekt
Endnu engang tak

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
slette rækker automatisk Af torben lind i Excel	1	I går 18:52	I går 20:32
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	19/04/202413:33	-
Formelhjælp Af boro23 i Excel	4	19/04/202410:54	22/04/202409:25

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS