Kom er niet geheel uit

[Koenie]

Hoi,

Nadat een prikker (joost) mij een heel eind op weg had geholpen met een sjabloontje maken (voor joost: de auto insert row) ben ik zelf ook maar eens aan de slag gegaan en moet zeggen dat het wel wat moeite kost maar er gaat een wereld voor mij open.

Ik kom nu echter nog één probleempje tegen.
In de bijlage vinden jullie een docje met een tabel bestaande uit twee kolommen, te weten
tijd en omschrijving.

Als je de macro uitvoert dan zal de cursor op de goede plaats in de kolom tijd komen te staan en kan ik een tijdstip invoeren.
Tot zover gaat het goed, echter wanneer ik nu met tab naar de kolom omschrijving(in dezelfde rij)ga, "verdwijnt" de cursor en kan ik niets invullen.
Tabben naar de volgende regel in de beide kolommen gaat wel en daar kan ik dan ook iets typen.


wie kan me helpen, en wat doe ik verkeerd?

gr.
Koen.

 

[joost verdaasdo]

Hai Koen,

Zal jou werk eens gaan bestuderen!

Vertel aub even wat jij met 'Prikker' bedoeld want dat zegt mij dus ff helemaal niks..

 

[joost verdaasdo]

Hai Koen,

Er zat een cel in jou tabel welke samengevoegd was dus jou tabel was niet uniform..(dit heb ik aangepast en tabben werkt weer prima)

Ook heb ik even naar jou Syntax (keuze) in het Formulier gekeken en aangepast.

Tip: Probeer het Selection Object zoveel als mogelijk te vermijden..het is object wat voor problemen zorgt en kan beter vervangen worden door het Range object!

De aangepaste code:

Option Explicit

Private Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    With ActiveDocument
        .Bookmarks("bmDatum").Range.Text = Me.txtdatum.Text
        .Bookmarks("bmNaam").Range.Text = Me.txtnaam.Text
        .Bookmarks("bmDienst").Range.Text = Me.Cbodienst.Text
    End With
   
    ActiveDocument.Tables(1).Cell(2, 1).Select
    Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.txtdatum.Text = Format$(Date, "dd mmmm yyyy")
    With Me.Cbodienst
        .AddItem "15:00 -23:00"
        .AddItem "23:00 -07:00"
        .AddItem "22:00 -07:00"
    End With
End Sub

See Yah! :thumb:

 

[Koenie]

Hoi Joost,

zit nu op het werk en zat ook even op een ander forum,
daar worden forumleden Prikkers genoemd, vandaar.

sorry,sorry,sorry

Zal hetgeen je aangepast hebt, straks even bekijken.

gr.
Koen

 

[joost verdaasdo]

Hai,

Vreemde naam nog nooit eerder gehoord...maar goed schaam je vooral niet voel mij geenszins aangevallen hoor! (Ben nogal nieuwsgierig dus...)

Is goed hoor het straks nog wel! :thumb:

 

[Koenie]

Topper

Hoi Joost,

Het is weer een topper!!!

Weer wat van je geleerd.

O ja, dat prikker komt omdat het andere forum een prikbord heet.


gr.
Koen:thumb:

 

[joost verdaasdo]

Hai Koen,

Goed zo graag gedaan weer!

Enne bedankt voor de uitleg, en de nickname "prikker" is in die context volstrekt duidelijk..'