24. september 2021 - 23:08Der 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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
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
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
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.
Ny bruger
Nybegynder
Opret
Preview
