Ontdubbelen in Excel zonder termen

[xtrt]

Beste mensen,

Het ontdubbelen lukt mij niet, terwijl dit normaal gesproken een kleine moeite is.

Wat ik doe:
Ik ga naar Gegevens --> geavanceerd.

Dan krijg ik een een beeld waar ik het volgende kan invoeren:
Actie:
0 lijst in de cel filteren
0 kopieren naar een andere locatie

Lijst bereik:
Critereum bereik:
Kopieren naar

[ ] Alleen unieke records

Wat ik ingevoerd heb
Actie:
X lijst in de cel filteren (aangevinkt)
0 kopieren naar een andere locatie

Lijst bereik: (de kolom die ontdubbelt moet worden)
Critereum bereik: (de kolom waarmee het vergeleken moet worden)
Kopieren naar: nvt

[X] Alleen unieke records (aangevinkt)

Vervolgens controleer ik of het daadwerkelijk gelukt is, en nog steeds vind ik beide namen in beide kolomen terug terwijl de namen identiek zijn.

Heeft iemand enig idee wat ik fout doe?


Daarnaast heb ik 2 lijsten met bedrijven, één van deze twee lijsten heb ik ontdubbelt. Echter is het probleem dat in de ene lijst het bedrijf abc heet, en in de andere lijst het hetzelfde bedrijf: abc B.V heet.

Wat ik nu graag wil is dat excel deze lijsten voor mij ontdubbelt zonder te kijken naar de rechtsvorm. Dus dat hij bedrijf abc gelijk stelt aan bedrijf abc B.V. N.V. of v.o.f. zodat ik deze op een normale manier kan ontdubbelen.

Is dit mogelijk of niet? En zo ja, hoe?

Met vriendelijke groet,

Erik

 

[alain1988]

jammer maar helaas

Beste mensen,

Weer heb ik een klein probleempje met Excel.

Ik heb 2 lijsten met bedrijven, één van deze twee lijsten heb ik ontdubbelt. Echter is het probleem dat in de ene lijst het bedrijf abc heet, en in de andere lijst het hetzelfde bedrijf: abc B.V heet.

Wat ik nu graag wil is dat excel deze lijsten voor mij ontdubbelt zonder te kijken naar de rechtsvorm. Dus dat hij bedrijf abc gelijk stelt aan bedrijf abc B.V. N.V. of v.o.f. zodat ik deze op een normale manier kan ontdubbelen.

Is dit mogelijk of niet? En zo ja, hoe?

Met vriendelijke groet,

Erik

nee niet mogelijk

 

[xtrt]

Is het wel mogelijk om de dubbelen rood te kleuren?

 

[Ron321]

Ja, maar alleen als ze exact hetzelfde geschreven zijn.

Dim T As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 Then
    If Target.Value = "" Then
        Target.Interior.ColorIndex = xlNone
    End If
    If Target.Value <> T Then
'        If Target.Column = 1 Then
            If Target = 0 Then
                For Each WS In ActiveWorkbook.Worksheets
                    With Worksheets(WS.Name).Range("A:IV")
                        Set G = .Find(T, LookIn:=xlValue, lookat:=xlWhole)
                        If Not G Is Nothing Then
                            firstaddress = G.Address
                            Do
            '                If Target.Address <> G.Address Then
                                Worksheets(WS.Name).Cells(G.Row, G.Column).Interior.ColorIndex = 3
                                teller = teller + 1
                                TR = G.Row
            '                End If

                             Set G = .FindNext(G)
                             Loop While Not G Is Nothing And G.Address <> firstaddress
                         End If
                     End With
                     If teller = 1 Then
                        Worksheets(WS.Name).Cells(TR, G.Column).Interior.ColorIndex = xlNone
                    End If
                Next
            Else
                For Each WS In ActiveWorkbook.Worksheets
                    With Worksheets(WS.Name).Range("A:IV")
                        Set G = .Find(Target, lookat:=xlWhole)
                        If Not G Is Nothing Then
                            firstaddress = G.Address
                            Do
                                Worksheets(WS.Name).Cells(G.Row, G.Column).Interior.ColorIndex = 3
                                teller = teller + 1
                                TR = G.Row
'                                If firstaddress = Target.Address And teller = 1 Then
'                                    Worksheets(WS.Name).Cells(G.Row, "A").Interior.ColorIndex = xlNone
'                                End If
                                Set G = .FindNext(G)
                            Loop While Not G Is Nothing And G.Address <> firstaddress
                        End If
                    End With
                Next
                If firstaddress = Target.Address And teller = 1 Then
                    Worksheets(Target.Worksheet.Name).Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
                End If
            End If
        End If
'    End If
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 1 And Target.Count = 1 Then
    T = Target.Value
    Target = ActiveCell.Value
End If

End Sub

 

[xtrt]

Wat bedoel je met: ja alleen als ze exact hetzelfde geschreven zijn?

Verder is er nog een klein probleempje. Het ontdubbelen lukt namelijk niet niet.

Wat ik doe:
Ik ga naar Gegevens --> geavanceerd.

Dan krijg ik een een beeld waar ik het volgende kan invoeren:
Actie:
0 lijst in de cel filteren
0 kopieren naar een andere locatie

Lijst bereik:
Critereum bereik:
Kopieren naar

[ ] Alleen unieke records

Wat ik ingevoerd heb
Actie:
X lijst in de cel filteren (aangevinkt)
0 kopieren naar een andere locatie

Lijst bereik: (de kolom die ontdubbelt moet worden)
Critereum bereik: (de kolom waarmee het vergeleken moet worden)
Kopieren naar: nvt

[X] Alleen unieke records (aangevinkt)

Vervolgens controleer ik of het daadwerkelijk gelukt is, en nog steeds vind ik beide namen in beide kolomen terug terwijl de namen identiek zijn.

Heeft iemand enig idee wat ik fout doe?

 

[Ron321]

Wat bedoel je met: ja alleen als ze exact hetzelfde geschreven zijn?

Dus als er dan abc B.V. ingevuld wordt en er staat al ergens abc B.V. dan kleurt het rood.

 

[xtrt]

Dus als er dan abc B.V. ingevuld wordt en er staat al ergens abc B.V. dan kleurt het rood.

Ja.

En weet jij toevallig ook wat ik verkeerd doe bij het ontdubbelen?

 

[zapatr]

Ik heb 2 lijsten met bedrijven, één van deze twee lijsten heb ik ontdubbelt. Echter is het probleem dat in de ene lijst het bedrijf abc heet, en in de andere lijst het hetzelfde bedrijf: abc B.V heet.
Wat ik nu graag wil is dat excel deze lijsten voor mij ontdubbelt zonder te kijken naar de rechtsvorm. Dus dat hij bedrijf abc gelijk stelt aan bedrijf abc B.V. N.V. of v.o.f. zodat ik deze op een normale manier kan ontdubbelen.Is dit mogelijk of niet?

In tegenstelling met wat Alain1988 schrijft, is dat wel degelijk mogelijk.
Om een goed antwoord te kunnen geven is het wel gewenst dat je hier een bestand met gegevens plaatst.

 

[xtrt]

In tegenstelling met wat Alain1988 schrijft, is dat wel degelijk mogelijk.
Om een goed antwoord te kunnen geven is het wel gewenst dat je hier een bestand met gegevens plaatst.

Sorry, maar dat kan ik helaas niet doen.

Kan iemand mij wel vertellen wat ik fout doe bij het ontdubbelen?

 

[Wigi]

Sorry, maar dat kan ik helaas niet doen.

Met fictieve gegevens lukt dat wel

Zeker als je weet dat het jou de oplossing voor je probleem kan opleveren