Macro voor sorteren tabel

[Berk91]

Hoi allemaal,

Ik heb weer een dingetje in Excel waar ik niet uitkom.
Op één tabblad heb ik 4 tabellen staan die elk een eigen status heeft

Nu wil ik een macro (knop) hebben die ervoor zorgt dat als ik ergens de status aanpas deze in de desbetreffende tabel terecht komt.

In heb een voorbeeld in de bijlage.
VB. als ik de status van e aanpas naar ingediend wil ik dat deze in de tabel van ingediend komt.


Is er iemand die mij hiermee kan helpen?

 

[Mde]

ik denk dat je een verkeerde bijlage hebt bijgevoegd

 

[VenA]

Daarnaast kan je het beter in 1 tabel laten staan en met filters of draaitabellen werken.

 

[Berk91]

Excuses ik had inderdaad een verkeerde bijlage!

Ja 1 tabel was ook mijn voorkeur, maar dat is hier nu niet gewenst.
Ze willen ook per tabel een andere kleur zodat er snel zichtbaar is hoeveel er zijn ingediend enz.

 

[VenA]

Ze moeten zich dan eerst maar eens verdiepen in het gebruik van tabellen. Onder elkaar zetten doe je bij voorkeur niet omdat je bij het verplaatsen van gegevens steeds weer de tabellen opnieuw moet positioneren in je werkblad. Daarnaast kan je aan de kleuren niet snel zien hoeveel rijen er in de verschillende tabellen staan. Met voorwaardelijke opmaak kan je ook een kleur aan status geven.

 

[Berk91]

Bedankt voor je antwoord. Alles in 1 tabel zetten heb ik al uitgewerkt met voorwaardelijke opmaak en een macro die sorteert op kleur.
Hoe onhandig dan ook is de wens eenmaal dat er 4 tabellen onder elkaar staan met verschillende statussen.
Als het niet mogelijk is dan moet het inderdaad 1 tabel worden of het blijft een handmatige actie.

 

[VenA]

Hoe handig ben je met VBA? Volgens mij gaat jouw wens best wat regels code kosten en zal ook onderhouden moeten worden voor iets wat in mijn optiek niet nodig is. De tabel sorteren en de draaitabel verversen na het wijzigen van de status stelt niet zoveel voor binnen VBA.

Met een change-event en aangepast sorteren kan je het ook binnen 1 tabel oplossen.

Private Sub Worksheet_Change(ByVal Target As Range)
  Set lo = ActiveSheet.ListObjects(1)
  If Not Intersect(Target, lo.DataBodyRange.Columns(2)) Is Nothing Then
    With Application
      .EnableEvents = False
      .AddCustomList Split("Idee Ingediend Toegekend Afgewezen")
      lo.Range.Sort lo.Range.Cells(1, 2), , , , , , , xlYes, .CustomListCount + 1
      .DeleteCustomList .CustomListCount
      .EnableEvents = True
    End With
  End If
End Sub

 

[emields]

of zo? dan kan je nog kiezen wat je wil zien.