Mijn VBA code werkt niet goed met mijn userform

[rpjust]

Beste helpers...

Ik kom er niet meer uit, Ik heb ee stukje code die niet doet wat hij moet doen. Ik wil graag van mijn userform de gegevens op een werkblad hebben
echter kom ik niet op de volgende regel uit maar aan het einde van het werkblad.

De code die ik gebruik is alsvolgt:

Range("A2").Select
Acticvecell.End(xlDown).Select
lastrow=activecell.row
cells(lastrow+1, 1).value=txtDate.text
cells(lastrow+1, 2).value=txtVertrek.text

Range("A2").select
txtDate.text=""
txtVertrek.text=""

Hij geeft elke keer de foutcode op de lijn cells(lastrow+1, 1).value=txtDate.text

Ik hoop dat iemand mij kan helpen

mvg
RP

 

[Cobbe]

txtDate.Text veroorzaakt de fout en dus ook txtVertrek.text.
Dus check dat even.

 

[edmoor]

Kijk ook even naar dit:
Acticvecell.End(xlDown).Select

 

[rpjust]

Bedankt voor het meedenken, echter is het probleem nog niet opgelost, hij blijft mij verwijzen naar de laatste cel op het werkblad en vult de volgende regel A3 enz niet in?

gr

 

[Cobbe]

Ja zonder bestand gaat dat moeilijk worden.

 

[VenA]

Als alles onder A2 leeg is ga je met jouw code naar de laatste rij. En de laatste rij + 1 gaat niet.

lr = cells(rows.count,1).end(xlup).row

 

[Cobbe]

Probeer het zo eens:

Sub cobbe()
lastrow = Range("A" & Rows.Rows.Count).End(xlUp).Row + 1
 Cells(lastrow, 1).Value = txtDate.Text
 Cells(lastrow, 2).Value = txtVertrek.Text
  txtDate.Text = ""
  txtVertrek.Text = ""
End Sub

 

[HSV]

Ik heb mijn vermoedens dat beide textboxen een datum vertegenwoordigen.

sub hsv()
 Cells(rows.count, 1).end(xlup).offset(1).resize(,2) = array(cdate(txtDate),cdate(txtVertrek))
 txtDate= ""
 txtVertrek = ""
end sub