Hulp bij Userform

[rontermaat]

Hallo lieve mensen

wie kan mij helpen
Ik moet de planning bijhouden van overleggen op mijn werk.

ben ik zelf al aan het studderen geweest met het userform

begin Datum - begintijd -eindtijd -Soort overleg- eventuele opmerkingen- einddatum (hoeft geen kolom voor gemaakt in de Lijst)

en nu wil ik dat hij deze gegevens dan automatisch in de juiste volgorde plaatst in de lijst.


Wie kan mij helpen


Alvast ontzettend bedankt

Groet Ron

 

[Hoornvan]

rontermaat,

Kijk hier eens.

 

[Esducsafe]

Excel tabel met sorteer functie

Misschien is dit (zie bijlage) wat je zoekt.
Esducsafe

 

[rontermaat]

Mischien kan iemand mij opweg helpen

Ik wil dus mijn userform koppelen aan de excel lijst en vervolgens moet de excel lijst zichzelf sorteren op datum en tijd

 

[allard1]

Ik wil dus mijn userform koppelen aan de excel lijst en vervolgens moet de excel lijst zichzelf sorteren op datum en tijd

Misschien moet je je eens gaan verdiepen in Macro's. Vervolgens de macro's openen om de code te bekijken en er zo wat van op te steken. Het sorteren kan prima op deze wijze, het koppelen van een userform gaat helaas niet zo. Maar dit is te leren middels dit forum en alle tutorials op internet.

 

[rontermaat]

ben weer iets verder

Bedankt voor de reacties

Ik moet nu alleen nog met de knop het userform te voorschijn toveren (maar geeft een fout aan)

en de agenda (module) aan het textvakje in userform koppelen

en de herhaling (wekelijks 2wekelijks enz) instellen maar weet niet hoe dat moet.

wie kan mij daarmee helpen

 

[danny147]

Beste rontermaat

Ik zie in het bestandje alleen een knopje staan, van code niks te bespeuren.
Zo kan men niks koppelen natuurlijk.

Groetjes Danny. :thumb:

 

[rontermaat]

sorry

dat klopt verkeerde bestand mee gestuurd

maar ik hoop dat het nu lukt

 

[Gremail]

Er zaten nogal wat vreemde dingen in het bestand. Heb het een beetje aangepast, denk dat dit ongeveer de bedoeling is. Gebruik als kalender gewoon een standaard.
Verder naar eigen inzicht aanpassen.

Succes

 

[rontermaat]

Helemaal goed gerrit

Nu wil ik alleen dat hij de afspraak bij

1 malig natuurlijk maar 1 x doet
wekelijks 26 x
2wekelijks 13x
3 wekelijks 8x
4 wekelijks 7x

(dus ongeveer een half jaar)

Alvast bedankt voor alle hulp.

Groetjes Ron

 

[Gremail]

Even snel:
zet na de code van :copy the data to the database, de onderstaande code

Dim n As Integer, a
n = 1
a = 13 '(laat via chkbutton aantal geven, is dus variabel, als je een optionbutton neemt en die in een groep hangt, heb je altijd maar 1 keus)
Do Until n = a
'zet hier de code van je kopieerregel(heb je al)
n = n + 1
Loop

'hij zal je regel nu zo vaak kopieeren tot hij a bereikt heeft en gaat dan verder.

Succes

 

[rontermaat]

Ik heb het geprobeerd maar krijg steeds een fout van dubbelzinnig ....

ik neem aan dat ik dat per aanvink vakje apart moet regelen toch??


Ik hoop dat iemand me hierbij kan helpen.

Groetjes

ik heb wel keuze vakje gemaakt

kan iemand mij vertellen wat ('zet hier de code van je kopieerregel(heb je al) deze code is ken hem nergens vinden.

 

[LucB]

Ron.

Alle OptionButtons werken nu.
Hopelijk was dit je bedoeling.

 

[rontermaat]

laatste vraag

Harstikke bedankt allemaal

Nu heb ik nog een vraag kan hij nu ook automatisch ordenen op datum in de lijst.

Ik ben echt onwijs blij met jullie hulp.

 

[danny147]

Beste rontermaat

Maak een extra knopje aan en plaats volgende formule in.

Sub sorteren()
'
    Application.EnableEvents = False

    Range("A3:E30").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A3:E300")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Application.EnableEvents = True
End Sub

Groetjes Danny. :thumb:

 

[Hoornvan]

rontermaat,

Je kunt de onderstaande code in Module1 toevoegen.
Dan in de code die achter de knop opslaan en voor End sub Sorteren zetten,
dan slaat hij de nieuwe afspraak op en sorteerd het gelijk.

Sub Sorteren()
    [A3:E40].Sort Key1:=[A3], Order1:=xlAscending, Header:=xlYes
    With ActiveWorkbook.Worksheets("Data").Sort
        .SetRange [A3:E40]
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Hoornvan]

rontermaat,

Je kunt ook eventueel onderstaande code gebruiken.
Deze sorteerd eerst op de Datum en dan op de Tijd.

Sub Sorteren()
    [A3:E40].Sort Key1:=[A3], key2:=[B3], Order1:=xlAscending, Header:=xlYes
     With ActiveWorkbook.Worksheets("Data").Sort
        .SetRange [A3:E40]
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[rontermaat]

Helemaal goed zoals hij werkt hij geeft alleen een fout melding

Private Sub Rechthoek1_Klikken()
UserForm1.Show
End Sub
Sub Sorteren()
[A3:E40].Sort Key1:=[A3], key2:=[B3], Order1:=xlAscending, Header:=xlYes
With ActiveWorkbook.Worksheets("Data").Sort
.SetRange Range("A3:E40")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


En ik krijg die fout er niet uit.
kan iemand mij hierbij helpen

daarna geef ik hem als opgelost.

Alvast bedankt voor al jullie hulp.

(ps ik heb aan de bovenzijde boven de lijst 19 rijen nodig voor info over het bedrijf maar als ik nu rijen invoeg komt de lijst gewoon bovenin te staan. ) kan iemand dat nog voor mij regelen (ik ben nog niet heel handig met VBA.)

 

[trucker10]

Bij deze mijn poging om het tot een goed einde te brengen , ik heb de range van 19 vrije rijen al aangepast , je kan nu sorteren van A20 tot . .....
Je kan deze gebruiken voor een vaste range > hier A21:E100

Sub sorteren()
  With Sheets(1)
    .[A21:E100].Sort .[A20], xlAscending, .[B20], , xlAscending, , xlYes
  End With
End Sub

of je kan voor deze gaan

Sub Sorteren()
Dim wks As Worksheet
Dim rng As Range
    For Each wks In Worksheets
    Set rng = wks.Range("A21:E21", wks.Cells.SpecialCells(xlCellTypeLastCell))
        rng.Sort Key1:=wks.Range("A20"), Order1:=xlAscending, _
                 Key2:=wks.Range("B20"), Order2:=xlAscending, Header:=xlYes
    Next wks
Set rng = Nothing
Set wks = Nothing
End Sub

Deze gaat tot de " xlCellTypeLastCell "

Ik heb der nog een knopje bijgedaan

 

[Hoornvan]

rontermaat,

Helemaal goed zoals hij werkt hij geeft alleen een fout melding

Bij mij geeft hij geen fout, heb het nog even geprobeerd.

De laatste macro van trucker10 is ook mooi, hoef je het bereik niet aan te passen.