Gegevens vullen uit userform in een bereik

[mathijsderuiter]

Beste mensen,

Ik gebruik nu deze code:

Private Sub cmdToevoegen_Click()
    
    
    Dim irow As Long 'defineer irow als "long"
    Dim ws As Worksheet 'defineer ws als "worksheet"
    Set ws = Blad1 'stel worksheet in op "blad1"
    
    
'vind laatst gebruikte cel, ga naar de volgende rij (1 down, 0 right)
irow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'controleer of er een naam is ingevuld
If Trim(Me.txtAantal.Value) = "" Then
Me.txtAantal.SetFocus
MsgBox "Gelieve een aantal in te vullen"
Exit Sub
End If

'controleer of er een adres is ingevuld
If Trim(Me.txtArtikelnr.Value) = "" Then
Me.txtArtikelnr.SetFocus
MsgBox "gelieve een artikelnummer in te vullen"
Exit Sub
End If

'plaatst de gegevens in de database
Range("A2:E18")(irow, 1).Value = Me.txtAantal.Value
Range("A2:E18")(irow, 2).Value = Me.txtArtikelnr.Value

'verwijder gegevens
Me.txtAantal.Value = "1"
Me.txtArtikelnr.Value = ""



End Sub

Telkens als ik laat toevoegen komt de data in een cel buiten A2:E18.
Het is de bedoeling dat hij de laatste cel controleert in het bereik A2:E18...

Wie kan mij helpen?

 

[HSV]

Dit bedoel je?

cells(irow, 1).Value = Me.txtAantal.Value

 

[mathijsderuiter]

Nee want daarmee zoekt hij de laatste cel in het hele werkblad. Hij moet de laatste cel in een bereik zoeken.

 

[HSV]

Test het eens.

Sub hsv()
Dim cl As Range, c As Long, r As Long
  With Sheets(1)
    For Each cl In .Range("A2:E18").SpecialCells(2)
      If cl.Column > c And cl.Row > r Then c = cl.Column
      If cl.Row > r Then r = cl.Row
    Next
  .Cells(r, c).Offset(1) = txtAantal.Value
 End With
End Sub

 

[HSV]

Ik heb je profiel even bekeken, maar je reageert nergens meer als het goed is bevonden.
Markeer ze als opgelost, dan weten we dat in ieder geval.

Succes ermee.