Sorteren van tijd op de juiste plaats

[bouduif]

Als de tijd in een cel (A3) wordt ingevuld zou het daarna gesorteerd moeten worden naar de juiste plaats
Bijv. 11:15
Deze zou dus na het invullen tussen 11:00 (A7) en 12:15 (A8) moeten komen, dus A8 schuift 1 regel op

Indien de tijd bereikt wordt (synchroon aan de comp.) kan er dan een waarschuwing gegeven worden zoals bijvoorbeeld door knipperen of een piep toon

 

[oeldere]

een antwoord op een soortgelijke vraag vind je onder deze link

in jouw geval dien je dan kolom A te sorteren in plaats van kolom U.

 

[bouduif]

Tijd sorteren

Beste Oeldere, ik snap er geen jota van. Ik moet kolom A invullen ipv U, maar wat kan ik invullen----de tijden (ongesorteerd) of data??

 

[oeldere]

private sub workstheet_change

vul in a12 een tijd in en zie wat er gebeurt (zie bijlage).

hiervoor onderstaande code met de macro-recorder opgenomen en worksheet-change bijgevoegd.

VBA-kenners maken deze waarschijnlijk veel korter.

Private Sub Worksheet_Change(ByVal Target As Range)

'Sub sorteren() 'Oeldere
    
    Rows("3:14").Select
    ActiveWorkbook.Worksheets("Zaterdag").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Zaterdag").Sort.SortFields.Add Key:=Range("A3:A14" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Zaterdag").Sort
        .SetRange Range("A2:N14")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
End Sub

 

[bouduif]

Oedere, geweldig bedankt. Nog een laatste vraag!, waar kan ik het aantal rijen groter maken?

 

[Roncancio]

VBA-kenners maken deze waarschijnlijk veel korter.

Dat vraagt om een reactie

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range("A3:H" & Range("A" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("A3")

End Sub

@TS
Je hoeft met bovenstaande code geen regels uit te breiden.
De laatste rij van de A-kolom wordt beschouwd als de laatste rij voor de sortering.

Met vriendelijke groet,


Roncancio

 

[bouduif]

Goeden avond Ron,
Kunt u als voorbeeld de formule werkend in mijn bijgevoegde file zetten? want ik krijg telken male een error als ik de form. overneem

 

[Roncancio]

"U vraagt, wij draaien"


Met vriendelijke groet,


Roncancio

 

[bouduif]

Nog eens een goede avond Ron,
Geweldig, enorm bedankt, indien nodig zou ik graag weer gebruik maken van uw kennis omtrent Excel.
Groet Don Bouma
P.s; onderstaande uitspraak is ook geweldig

 

[oeldere]

Beste Don,

als je vraag is opgelost, zet je de status dan ook even op opgelost?

Ron, "dat vraagt om een reactie "

Geweldig dat je dit even oppakt en verkort; daar kan iedereen weer van leren. :thumb:

 

[bouduif]

Sorry, ik was er nog niet helemaal uit. Ik ben er nog niet achter dat "als de juiste tijd wordt bereikt de cel knippert of een geluid geeft". Maar voor alles geweldig bedankt.
Met vriendelijke groet
Don