1 kolom automatisch sorteren in excel

[jvhelleman]

Hallo,

Ik heb het forum afgezocht naar een oplossing voor een probleem. maar ik kon geen passende oplossing vinden. Mijn vraag:

Is het mogelijk om automatisch met VBA 1 kolom te sorteren op waarde X en en waarde Y te verwijderen uit het overzicht. Het moet denk ik een iets met een IF wezen maar ik kom er niet uit.

Ik heb in de bijlage het document gestopt waarin ik de sortering en filtering wil aanbrengen. In het werkblad "Overz. Cat 2-3" is een overzicht te zien van blad "Cat 2-3" In kolom F staat de a van aanwezig en een 0 als het vak leeg is. Nu wil ik dat de alleen de waarde a wordt weer gegeven op dit blad.

al vast vriendelijk bedankt voor de hulp

Bekijk bijlage klassement_zomercup_2011_Cat2-3.zip

 

[HSV]

Zo zou het kunnen.

Sub tst()
 Dim cl As Variant
      With Sheets("Overz. Cat 2-3")
       .Range("A6:F" & .Cells(Rows.Count, 6).End(xlUp).Offset(1).Row).ClearContents
      End With
    With Sheets("Cat 2-3")
      For Each cl In .Range("G9:G" & .Cells(Rows.Count, 7).End(xlUp).Row)
       If cl.Offset(, 4).Value = "a" Then
    With Sheets("Overz. Cat 2-3")
      .Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 5).Value = cl.Resize(, 5).Value
      .Cells(Rows.Count, 6).End(xlUp)(2) = cl.Offset(, -1)
      .Range("A6:F" & .Cells(Rows.Count, 6).End(xlUp).Row).Sort .[C5], xlAscending
     End With
    End If
   Next cl
 End With
End Sub

 

[Warme bakkertje]

Of als de volgorde op blad2 iets gewijzigd mag worden, met Uitgebreid filter.

 

[Jerre001]

dit kan je ook gebruiken om veel dingen zoals kolommen en rijen te sorteren

http://www.asap-utilities.com/download-asap-utilities-free.php?file=1

en is gratis

mvg

 

[jvhelleman]

Hallo allemaal,

Hartelijk dank voor jullie hulp en suggesties. Ik ben hier goed mee geholpen. :thumb: