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
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel 5 19/12/202410:24 I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel 2 16/12/202415:27 17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel 23 13/12/202412:32 18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel 1 10/12/202409:17 10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel 7 09/12/202408:59 09/12/202410:38
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
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54 Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42 Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26 Genhøre telefonsamtale Af anonym24 i Chat & Messaging
White papers
Flere white papers »


Premium
Teaser billede
Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte
Læs mere »
CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden
Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan
Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer
Se alle »
Computerworld
Teaser billede
Dansk verdenshit fra 1992 bliver til ny international tv-serie
Læs mere »
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Din MitID-app er netop blevet opdateret - her er de nye sikkerhedstiltag
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
Region Sjælland vil skrive evighedskontrakt med Oracle-specialister: Står klar med 150 millioner kroner
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
Læs mere »
Sådan: Én løsning til compliance, sikkerhed og overblik
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Se alle »

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