• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

dubbele cellen verwijderen in Excel

  • Onderwerp starter Onderwerp starter mlc1
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
M

mlc1

Gebruiker
Lid geworden
22 mrt 2010
Berichten
100
Beste allemaal

In mijn excelsheet (voorbeeld bijgevoegd) staan cellen met dubbele waarden. Nu wil ik na een Filter dat:
van de cellen met een dubbele waarden de eerste cel zichtbaar blijft en de tweede en opvolgende cellen met diezelfde waarde blanco/kleur is. Na een filtering moeten alle cellen weer zichtbaar/normaal zijn.

Ik heb in dit forum rondgesnuffeld en een "bijna" oplossing gevonden (hierin worden alle gelijke cellen gekleurd).

Ik ben niet erg bedreven met VB wie helpt mij verder?

Bijvoorbaat dank Ron
 

Bijlagen

Laatst bewerkt:
Beste mlc1 ;)

heb een hulpkolom geplaatst B.
Hierin een formule die ubieke getallen 0 weergeeft en dubbele een 1 weergeeft.
Daarna kan je hier op filteren.

In excel 2007 kan je filteren op kleur.

Groetjes Danny. :thumb:
 

Bijlagen

hoi mic1

misschien heb je hier iets aan (met voorwaardelijke opmaak

je kunt het in O1 aan of uit zetten

groet sylvester
 
dubbele cellen verwijderen

Hi Danny en Sylvester
Dank voor jullie reactie echter bij de oplossing van Sylvester ontbreekt wat (macro?):confused:
Danny's oplossing begrijp ik, maar ik zou het graag in een macro /VB zien daar ik de
basis spreadsheet van derden aangeleverd krijg en deze moet aanpassen om het resultaat te krijgen
Liefst met één druk op de knop zou handig zijn
in mijn macro zat een klein foutje: verwijzing naar "blad4" moet "filter" zijn.

Mag ik op jullie steun rekenen?:thumb:

Groet Ron
 
kijk eens bij voorwaardelijke opmaak in kolom A

en verander aan eens in uit (cel O1)

groet Sylvester
 
Hi Ronald

Dank voor je bericht. Dit is niet wat ik bedoel. Nu verdwijnt de complete regel.
Het moet zo zijn dat alleen de dubbele cel blanco wordt
en het subtotaal aantal/gewicht hetzelfde blijft als zonder filter aan.

Groet Ron.
 
dubbele cellen

sylvester-ponte zei:
kijk eens bij voorwaardelijke opmaak in kolom A

en verander aan eens in uit (cel O1)

groet Sylvester
Klik om te vergroten...

dank je Sylvester.
YES, zoiets moet het worden.
De dubbele cellen zijn nu blanco, maar zou dit in een makro gezet kunnen worden?
Ik krijg de gegevens zo in een excelfile aangeleverd en moet dan iedere keer behoorlijk wat wijzigen.
Lijkt me handig als ik de macro erin kopieer.

Groet Ron
 
mlc1,

Code aangepast:
Code: 
Sub DubbelWaardenMarkeren()
Dim r As Range
Dim p As Variant
Dim i, lr As Long
Application.ScreenUpdating = False
    Sheets("filter").Columns(1).Interior.ColorIndex = xlNone
    lr = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
        
    For i = 2 To lr
        If Cells(i, 1).Interior.ColorIndex = 43 Then GoTo Volgende
        Set r = Range(Cells(i + 1, 1), Cells(lr, 1))
        For Each p In r
            If p = Cells(i, 1) Then
                p.Font.ThemeColor = xlThemeColorDark1
            End If
        Next
Volgende:
    Next
    Range(Cells(1, 1), Cells(1, 5)).AutoFilter Field:=5, Criteria1:="AA"
Application.ScreenUpdating = True
End Sub
Sub FilterWeg()
Application.ScreenUpdating = False
    On Error Resume Next
    Sheets("Filter").ShowAllData
    Sheets("filter").Columns(1).Font.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
End Sub
Deze zou moeten doen wat je wil.
 
dubbele cellen

RvanGalenLast zei:
mlc1,

Code aangepast:
Code: 
Sub DubbelWaardenMarkeren()
Dim r As Range
Dim p As Variant
Dim i, lr As Long
Application.ScreenUpdating = False
    Sheets("filter").Columns(1).Interior.ColorIndex = xlNone
    lr = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
        
    For i = 2 To lr
        If Cells(i, 1).Interior.ColorIndex = 43 Then GoTo Volgende
        Set r = Range(Cells(i + 1, 1), Cells(lr, 1))
        For Each p In r
            If p = Cells(i, 1) Then
                p.Font.ThemeColor = xlThemeColorDark1
            End If
        Next
Volgende:
    Next
    Range(Cells(1, 1), Cells(1, 5)).AutoFilter Field:=5, Cri[COLOR="darkorange"]teria1:="AA"[/COLOR]
Application.ScreenUpdating = True
End Sub
Sub FilterWeg()
Application.ScreenUpdating = False
    On Error Resume Next
    Sheets("Filter").ShowAllData
    Sheets("filter").Columns(1).Font.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
End Sub
Deze zou moeten doen wat je wil.
Klik om te vergroten...


Ronald
Dat ziet er goed uit alleen het volgende probleeem doet zich nu voor:
Er wordt nu bijvb na filter op exporteur CC automatisch weer naar exporteur AA verwezen in de macro
dus waarop gefilterd wordt AA of BB of CC of DD moet ook deze macro op werken.

Gaat dat lukken ?


Ik ben er ook achter dat als het filter en de macro is toegepast de blanco containernummers verwijderd kunnen worden
door in de container filter op "filteren op kleur" -"automatisch" te klikken
zo blijft het subtotaal bestaan en alle unieke containernummers staan direct onder elkaar om te kunnen kopieren naar een ander dokument.
(Zou ik de blanco velden laten staan en kopieer deze naar een ander dokument dan verschijnen de dubble containernummers weer)

Groet Ron
 
Ik heb de code iets aangepast.

Code: 
Sub DubbelWaardenMarkeren()
Dim r As Range
Dim p As Variant
Dim i, lr As Long
Application.ScreenUpdating = False
    Sheets("filter").Columns(1).Font.ColorIndex = xlColorIndexAutomatic
    lr = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
        
    For i = 2 To lr
        If Cells(i, 1).Font.ColorIndex = 2 Then GoTo Volgende
        Set r = Range(Cells(i + 1, 1), Cells(lr, 1))
        For Each p In r
            If p = Cells(i, 1) Then
                p.Font.ColorIndex = 2
            End If
        Next
Volgende:
    Next
Application.ScreenUpdating = True
    Range(Cells(1, 1), Cells(1, 5)).AutoFilter Field:=5, _
            Criteria1:=Application.InputBox(prompt:="Selecteer een exporteur", _
                Title:="Exporteur selecteren", Type:=8)
End Sub

De subtotalen werken ook hier.
Het viel mij op bij container ZSCU5802945 2 exporteurs staan. Exporteur DD komt nu niet naar voren.
 
hoi deze macro stelt de voorwaardelijke opmaak in kolom A in
en als je hem nog een keer uitvoert verwijdert hij de voorwaardelijke opmaak weer

Code: 
Sub DubbelWaardenMarkeren()
    Dim Eind As Integer
    If Range("A2").FormatConditions.Count = 1 Then
       Columns(1).FormatConditions.Delete
       Exit Sub
    End If
    Eind = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2").FormatConditions.Add Type:=xlExpression, Formula1:="=A2=A1"
    Range("A2").FormatConditions(1).Font.ColorIndex = 2
    Range("A2").Copy
    Range(Cells(2, 1), Cells(Eind, 1)).PasteSpecial Paste:=xlPasteFormats, _
      Operation:=xlNone, Transpose:=False
    Application.CutCopyMode = False
    Range("A2").Select
End Sub

groet Sylvester
 
dubbele cellen

RvanGalenLast zei:
Ik heb de code iets aangepast.

Code: 
Sub DubbelWaardenMarkeren()
Dim r As Range
Dim p As Variant
Dim i, lr As Long
Application.ScreenUpdating = False
    Sheets("filter").Columns(1).Font.ColorIndex = xlColorIndexAutomatic
    lr = Sheets("Filter").Cells(Rows.Count, "A").End(xlUp).Row
        
    For i = 2 To lr
        If Cells(i, 1).Font.ColorIndex = 2 Then GoTo Volgende
        Set r = Range(Cells(i + 1, 1), Cells(lr, 1))
        For Each p In r
            If p = Cells(i, 1) Then
                p.Font.ColorIndex = 2
            End If
        Next
Volgende:
    Next
Application.ScreenUpdating = True
    Range(Cells(1, 1), Cells(1, 5)).AutoFilter Field:=5, _
            Criteria1:=Application.InputBox(prompt:="Selecteer een exporteur", _
                Title:="Exporteur selecteren", Type:=8)
End Sub

De subtotalen werken ook hier.
Het viel mij op bij container ZSCU5802945 2 exporteurs staan. Exporteur DD komt nu niet naar voren.
Klik om te vergroten...

Hi Ronald

Deze gaat fout met exporteur DD

er kunnen inderdaad meerdere eporteurs in dezelfde container zitten.



Groet Ron
 
Laatst bewerkt:
dubbele cellen

sylvester-ponte zei:
hoi deze macro stelt de voorwaardelijke opmaak in kolom A in
en als je hem nog een keer uitvoert verwijdert hij de voorwaardelijke opmaak weer

Code: 
Sub DubbelWaardenMarkeren()
    Dim Eind As Integer
    If Range("A2").FormatConditions.Count = 1 Then
       Columns(1).FormatConditions.Delete
       Exit Sub
    End If
    Eind = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2").FormatConditions.Add Type:=xlExpression, Formula1:="=A2=A1"
    Range("A2").FormatConditions(1).Font.ColorIndex = 2
    Range("A2").Copy
    Range(Cells(2, 1), Cells(Eind, 1)).PasteSpecial Paste:=xlPasteFormats, _
      Operation:=xlNone, Transpose:=False
    Application.CutCopyMode = False
    Range("A2").Select
End Sub

groet Sylvester
Klik om te vergroten...


Hi Sylvester

Ik ga morgen testen op mijn werk
Ik gebruik tabblad filter en kom er achter dat ik eerst tabblad basis de containernrs moet sorteren dan lijkt het te lukken

Groet Ron
 
hoi mlc1
jij schrijft:

Ik gebruik tabblad filter en kom er achter dat ik eerst tabblad basis de containernrs moet sorteren dan lijkt het te lukken
Klik om te vergroten...

deze macro werkt in het geactiveerde tabblad, dus eerst het tabblad waarin de macro moet werken activeren en dan de macro laten werken.
de gegevens in kolom A moeten wel gesorteerd zijn zo dat gelijke containers bij elkaar staan

groet sylvester
 
Nou ben ik er zelf helaas niet goed in, maar dit vraagstuk lijkt me typisch een gevalletje Pivot Table (draaitabel). Daar heb je - als je 't kan - binnen een paar tellen een schitterend overzicht zonder VBA...

Groet, Leo
 
dubbele cellen

Ginger zei:
Nou ben ik er zelf helaas niet goed in, maar dit vraagstuk lijkt me typisch een gevalletje Pivot Table (draaitabel). Daar heb je - als je 't kan - binnen een paar tellen een schitterend overzicht zonder VBA...

Groet, Leo
Klik om te vergroten...

Hi Leo

Nou dat gaat bij mij niet lukken, na filteren levert de draaitabel ook de containernummers die niet geselecteerd/gefilterd zijn.

Groet Ron
 
dubbele cellen

sylvester-ponte zei:
hoi mlc1
jij schrijft:



deze macro werkt in het geactiveerde tabblad, dus eerst het tabblad waarin de macro moet werken activeren en dan de macro laten werken.
de gegevens in kolom A moeten wel gesorteerd zijn zo dat gelijke containers bij elkaar staan

groet sylvester
Klik om te vergroten...

Hi Sylvester


Er kunnen meerdere exporteurs in een container zitten
De filtering van dubbele containers gaat fout met exporteur DD
Dit komt denk ik omdat de macro de dubbele containers zoekt die ook verborgen zijn
De macro moet gaan zoeken na filtering

Groet Ron
 
hoi mlc1

als je in de basis eerst sorteert op container en op exporteurs

in menu data en dan sorteren

dus niet onder beurt apart sorteren

en daarna de "verdwijnmacro" draait gaat het goed

groet sylvester
 
sylvester-ponte zei:
hoi mlc1

als je in de basis eerst sorteert op container en op exporteurs

in menu data en dan sorteren

dus niet onder beurt apart sorteren

en daarna de "verdwijnmacro" draait gaat het goed

groet sylvester
Klik om te vergroten...

sorry dit klopt niet helemaal ik ga er later mee verder:o

ik moet uitzoeken of een cel weet of hij zichtbaar is of niet

met specialcells() of zo

groet sylvester
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan