Sorteren op datum combobox userform

Status
Niet open voor verdere reacties.
R

Roxannedw

Gebruiker
Lid geworden
11 dec 2017
Berichten
5
Goedemorgen,

Ik ben voor het eerst aan de slag gegaan met het maken van een userform m.b.v. VBA (ik ben dus nog een echte amateur :)!). Ik wil dit formulier gebruiken om nieuwe trainingen in mijn tabel te plaatsen. Ik heb een combobox gebruikt, met hier in alle data van januari. Nu zou ik graag willen dat wanneer ik bijv. een training op 5 januari toevoeg, hij deze gelijk op volgorde van datum plaatst (dus tussen 4 en 6 januari in). Ook is het belangrijk dat de info die er na komt (training, instantie, trainer enz) ook op de juiste plaats terecht komt. Er kunnen natuurlijk ook meerdere trainingen op 5 januari plaatsvinden. Ik heb al gezocht naar verschillende sorteercodes, maar ik kom er helaas niet uit.

Is er iemand die mij op weg kan helpen?
 

Bijlagen

  • Map1test.xlsm
    27,4 KB · Weergaven: 72
Laatst bewerkt:
Voor het wegschrijven en sorteren
Code: 
Private Sub cmdtoevoegen_Click()
With Sheets("Januari")
  .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Array(txtdatum.Value, txttraining.Value, txtinstantie.Value, txttijd.Value, txttrainer.Value)
  .Cells(1).CurrentRegion.Sort .Cells(1), , , , , , , xlYes
End With

For Each ct In Me.Controls
 If TypeName(ct) = "TextBox" Or TypeName(ct) = "ComboBox" Then ct.Value = ""
Next ct
End Sub

De dagen van januari kan je ook zo in de combobox zetten
Code: 
Private Sub UserForm_Initialize()
  txtdatum.List = [transpose(text(row(1:31),"dd-mmm"))]
End Sub
 
Wauw super, het is gelukt! Bedankt!

En ook dank voor de makkelijkere manier om de dagen in de combobox te zetten!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan