Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketHjælp til at kigge i et range for dubletter

 Besvar Besvar
Forfatter
Ambs Se dropdown
Forum Begynder
Forum Begynder


Medlem: 14.Jun.2019
Land: Danmark
Status: Offline
Point: 1
Direkte link til dette indlæg Emne: Hjælp til at kigge i et range for dubletter
    Sendt: 14.Jun.2019 kl. 13:19
Hej 

Jeg har forsøgt at lave et dokument, hvor jeg har 3 kolonner med indtastninger. I disse 3 kolonner har jeg brug for at blive informeret, hvis jeg tidligere har indtastet en dublet. Jeg har haft forsøgt at få det til at virke ved at bruge data validation, det virker i én kolonne, men kan ikke få det til at virke i et range (A2:C50).
Jeg har også forsøgt med VBA, jeg er ikke en haj til vba, så fik hjælp til koden, men den virker ikke efter hensigten 

"Option Explicit
Dim myRange As Range, myCell As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Set myRange = Range()
For Each myCell In myRange
If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
myCell.Interior.ColorIndex = 3
MsgBox "YOU HAVE ENTERED A DUPLICATE", vbInformation + vbOKOnly, "Test"
Exit Sub
End If
Next
End Sub"

Der skulle vel ikke være nogen der kan hjælpe mig dette?

Mvh,
André  
Til top



Til top
AnneSven Se dropdown
Forum Begynder
Forum Begynder


Medlem: 14.Jun.2019
Status: Offline
Point: 8
Direkte link til dette indlæg Sendt: 14.Jun.2019 kl. 15:17
Jeg plejer at bruge betinget formatering -> regler for fremhævning af celler -> Dubletværdier når jeg skal søge efter dubletter. Der kan du markere alle de celler der skal kontrolleres




Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73
Direkte link til dette indlæg Sendt: 14.Jun.2019 kl. 22:36
Set myRange = Me.Range("A2:C50")

Men AnneSvens metode med betinget formatering er en meget nemmere, da cellefarven automatisk forsinder når en dubletværdi slettes.

Du kan dog opnå det samme med VBA - fx ved at modificere din makro sådan her:

Private Sub Worksheet_Change(ByVal Target As Range)
'Skal placeres i det pågældende ark-modul
    Dim myRange As Range, myCell As Range
    Set myRange = Me.Range("A2:C50") 'din ønskede range
    For Each myCell In myRange
        If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then
            myCell.Interior.ColorIndex = 3
        Else
            myCell.Interior.ColorIndex = 0 'fjerner eventuel gammel dubletfarve
        End If
    Next
End Sub

God fornøjelse :-)
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk