Code Userform

[jantje1]

In onderstaande code worden de gegevens weggezet, maar is het niet mogelijk om te beginnen vanafD3 tot D31 de gegevens te laten wegzetten en zo ja hoe doe je dit?

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("jan")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(3, 0).Row

'check for a part number
If Trim(Me.txtkm.Value) = "" Then
Me.txtkm.SetFocus
MsgBox "Please enter a part number"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 4).Value = Me.txtkm.Value
ws.Cells(iRow, 5).Value = Me.txttijd.Value
ws.Cells(iRow, 8).Value = Me.txtopmerkingen.Value
ws.Cells(iRow, 9).Value = Me.txtcadans.Value
ws.Cells(iRow, 10).Value = Me.txtgemiddeldehartslag.Value
ws.Cells(iRow, 11).Value = Me.txtmaxhartslag.Value
ws.Cells(iRow, 12).Value = Me.txtlekkebanden.Value
ws.Cells(iRow, 13).Value = Me.txtcalorieen.Value


'clear the data
Me.txtkm.Value = ""
Me.txttijd.Value = ""
Me.txtopmerkingen.Value = ""
Me.txtcadans.Value = ""
Me.txtgemiddeldehartslag.Value = ""
Me.txtmaxhartslag.Value = ""
Me.txtlekkebanden.Value = ""
Me.txtcalorieen.Value = ""
Me.txtkm.SetFocus

End Sub


Private Sub cmdClose_Click()
Unload Me
End Sub

Alvast bedankt

 

[Roncancio]

Wat je kan doen is om onder....

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(3, 0).Row

.. toe te voegen:

If iRow <3 Then iRow = 3

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Zoiets misschien

i = Sheets("Blad1").Cells(Rows.Count, 4).End(xlUp).Offset(1).Row
irow = IIf(i <= 3, 3, i)

 

[snb]

Herschreven

Private Sub cmdAdd_Click()
   For j=4 to 13
     if j< 6 then
        With Me("txt" & choose(j-3,"km","tijd"))
           c0=c0 & .Text & "|"
           .Text=""
        End With
     end if
     if j>7 then 
       With Me("txt" & choose(j-7,"opmerkingen","cadans","gemiddeldehartslag","maxhartslag","lekkebanden","calorieen"))
          c1=c1 & .Text & "|"
          .Text=""
       End with
   Next
   With sheets("jan").Cells(Rows.Count, 1).End(xlUp)
       .Offset(3,3).resize,2)=split(c0,"|")
       .offset(3,7).resize(,6)=split(c1,"|")
  End with
End Sub

In je voorbeeld worden de gegevens horizontaal weggeschreven.
Vanaf D3: D31 begrijp ik dan niet.