CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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.
Avatar billede 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
Avatar billede 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
Avatar billede MB280SK Seniormester
25. september 2021 - 07:40 #3
Godmorgen Jens48
Super :-)
Virker så fint. Tusind tak
Avatar billede 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?
Avatar billede 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
Avatar billede rasmuso Seniormester
26. september 2021 - 15:10 #6
Nårj - hvor det virker!!
TAK!!
Avatar billede Hmmm…. Mester
27. september 2021 - 08:26 #7
Perfekt
Endnu engang tak
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Excel åbner fil i kæmpe format Af Aske i Excel 8 I dag 06:10 I dag 11:56
Summere beløb pr. dato Af TTA i Excel 2 I går 12:37 I går 15:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel 10 30/10/202408:41 30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel 8 29/10/202411:50 29/10/202414:18
Tidsintervaller i Excel Af Karsten KTL i Excel 3 29/10/202411:47 30/10/202414:20
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat
White papers
Flere white papers »


Premium
Teaser billede
Staten vil selv udvikle kæmpe it-system til 650 millioner kroner: Nu tvinges regeringen til at lægge vigtige dokumenter frem
Læs mere »
Det går fantastisk på det danske Dynamics-marked: NNIT-selskabet Scales kan vælge og vrage mellem opgaver
Skelsættende GDPR-sag ændrer definitionen af 'følsomme oplysninger'
Microsoft: Tvungen skift til Windows 11 kan udskydes med et år, hvis du betaler os 200 kroner
Se alle »
Computerworld
Teaser billede
Russisk domstol: Google skal betale 20 kvintilliarder dollar i bøde - fordobles løbende
Læs mere »
Microsoft: Windows-opdateringer bliver nu 45 procent hurtigere
Test: Det er nærmest vanedannede at anvende disse mini-tastaturer
Prøvekørt: Mægtige, magelige Volvo EX90 er den fødte skærgårdskrydser
Se alle »
CIO
Teaser billede
Novo Nordisk satsede på HoloLens, men nu har Microsoft dræbt produktet
Læs mere »
Microsoft: Sådan arbejder Google målrettet på at skade os i det skjulte
Efter markante prisstigninger: VMware-kunder får dummebøder hvis de ikke skifter hurtigt nok til ny licens-ordning
Trods "indlysende ulempe": CIO Torben Ruberg siger nej til at konsolidere Satairs stribe af ERP-systemer
Se alle »
Job & Karriere
Teaser billede
Pludselig exit fra Schultz kom som en overraskelse for Merete Søby: Derfor stoppede samarbejdet
Læs mere »
Merete Søby fratræder med omgående virkning som CEO for Schultz efter blot tre måneder på posten
Danske Aeven flytter hele hovedkontoret med 600 medarbejdere til ny adresse og tager Sentia med
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Se alle »
White paper
Teaser billede
Styrk compliance, sikkerhed og overblik med ét hug
Læs mere »
Er din cybersikkerhed klar til AI-revolutionen?
Det behøver ikke at gøre ondt: Sådan gør du livet lettere for kunder med multicloud
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »