automatisch sorteren op datum

[kooist]

Hallo Helpmij'ers.

Ik probeer een klein Excel programma'tje te maken die op datum sorteert. De datum die het eerst komt komt bovenaan te staan.
nu werkt het wel wanneer ik op 'sorteren en filteren' klik en daarna op 'sorteren van oud naar nieuw' dat is dus ook de bedoeling
maar dan automatisch. dus zodra ik 07-03-2014 intyp deze direct tussen bijv. 02-02-2014 en 09-03-2014 komt te staan zonder dat ik daar knoppen
voor hoef in te drukken. Ik heb tussen de instellingen gekeken en daar staat automatisch bijwerken wel aangevinkt maar nog steeds doet hij het niet

ik heb de cel [ C ] wel op datum gezet.

ik gebruik Excel 2010

ik hoop dat iemand mij hierbij kan helpen?

groeten
Kooist

 

[Cobbe]

Neem die handeling eens op met de macrorecorder.
Dan zet je die code achter een Change_Event en klaar is .....

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Chr(64 + Target.Column) = "C" Then Target.EntireColumn.Sort Range("C1")
End Sub

Bij een wijziging in de C-kolom wordt de sortering automatisch uitgevoerd.

Met vriendelijke groet,


Roncancio

 

[kooist]

Dankuwel voor de reacties.

Ik weet helemaal niets van macro's maar heb even op Google gekeken, heb daar wel wat gevonden en mijn macro opgenomen
nu heb ik ook uw reactie gelezen en geprobeerd Roncancio, Hier was ik zelf nooit opgekomen maar ik heb wat geprobeerd en het werkt!
alleen niet helemaal goed. ik had het wat beter uit moeten leggen. maar ik wou graag dat A en B samen met C veranderen [deze zijn aan elkaar gekoppeld qua gegevens]

maar dan A1 B1 C1 niet want hier staat de beschrijving van A, B en C ik weet het ik vraag heel wat maar als u mij een link kunt geven waar ik uitleg hierover kan vinden ben ik zeker bereid om het zelf uit te zoeken en te maken.

[ ik dacht mede door C1 in C2 te veranderen dat dit zou lukken maar het heeft nog niet het gewenst resultaat. ]

alvast bedankt voor uw tijd

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Chr(64 + Target.Column) = "C" Then Range("A1:C" & Target.Row).Sort Range("C2"), , , , , , , xlYes
End Sub

Met vriendelijke groet,


Roncancio

 

[kooist]

Super! dankuwel!