Dubbele waarden wissen, maar niet de rijen

[henksenior]

Goedemorgen,
I.v.m. het maken van grafieken is het noodzakelijk dat ik in een kolom de dubbele waarden kan wissen, maar niet de rijen.
Ik heb een file toegevoegd en zou er geholpen zijn met een oplossing.
Met vriendelijke groet,
Henk

 

[VenA]

Is een draaitabel een optie?

 

[snb]

Ik zie geen verschil tussen de ene en andere opstelling voor daarop gebaseerde grafieken.

Leg eens uit wat voor grafiek je dan wil.

 

[henksenior]

Ik zie geen verschil tussen de ene en andere opstelling voor daarop gebaseerde grafieken.

Leg eens uit wat voor grafiek je dan wil.

Goedemiddag,
Het gaat niet om de grafiek zelf, alleen om waarden welke ik ga gebruiken in een grafiek.
Met vriendelijke groet,
Henk

 

[henksenior]

Is een draaitabel een optie?

Dank voor u snelle antwoord, ik denk niet dat dit gaat lukken, het aantal kolommen waar ik mee werk is veel groter.
Het gaat dus maar om 1 kolom waar ik alleen de unieke waarden wil laten staan, de inhoud van de rijen moeten blijven.
Met vriendelijke groet
Henk

 

[snb]

Laat eens zien als voorbeeld.

 

[henksenior]

Het voorbeeld

Bijgaand het voorbeeld.

 

[VenA]

Lijkt mij hetzelfde bestand als in #1

 

[henksenior]

Dubbele waarden filteren

SNB had deze vraag gesteld, daarom heb ik de file nog maar een keer geupload.

 

[snb]

Ik heb niet gevraagd het bestand nog een keer te plaatsen.
Ik heb verzocht om ontbrekende informatie.

 

[henksenior]

Dubbele waarden wissen

Het sheet lijkt me duidelijk toch.
Links het voorbeeld waarbij in de linkerkolom alle waarde hetzelfde zijn.
Rechts in het voorbeeld een kolom waarbij alleen de unieke waarden zijn vermeld, de rijen blijven dus gehandhaafd.
De reactie met de voorgestelde draaitabel doet precies wat er is gevraagd.
Ik zou dat graag alleen zonder draaitabel zien.
Mvg Henk

 

[snb]

Het gaat niet om de grafiek zelf, alleen om waarden welke ik ga gebruiken in een grafiek.

Laat daarvan eens een illustratie zien als voorbeeld.

 

[cow18]

in B6

=ALS(C6<>C5;C6;"")
of
=ALS(C6<>C5;C6;NB())

 

[jempi10]

Met een macro:

Sub legecellenverwijderen()

        ActiveSheet.Cells(6, 3).Select
    Do While ActiveCell <> ""
        ActiveCell.Offset(0, 3).Select
        ActiveCell.FormulaR1C1 = "=IF(RC[-3]=R[-1]C[-3],"""",RC[-3])"
        ActiveCell = ActiveCell.Value
        ActiveCell.Offset(1, -3).Select
    Loop
End Sub

 

[henksenior]

Dank cow18 en jempi10, werkt perfect!
Groet, Henk