Gegevens toevoegen via VBA userform

[Kazandra]

Hallo,

Ik heb een userform gemaakt waarmee ik gegevens wil toevoegen aan een werkblad. Dit heb ik middels de volgende formule gedaan:

'hernoemen toevoegen
Sub toevoegen()
Dim Irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Inkomsten")
Irow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(Irow, 1).Value = Me.F2T3.Value & " " & Me.F2T1.Value
ws.Cells(Irow, 2).Value = Me.F2T1.Value
ws.Cells(Irow, 3).Value = Me.F2T3.Value
ws.Cells(Irow, 4).Value = Me.F3T1.Value
ws.Cells(Irow, 5).Value = Me.F3T2.Value
ws.Cells(Irow, 6).Value = Me.F3T3.Value
ws.Cells(Irow, 7).Value = Me.F3T4.Value
ws.Cells(Irow, 8).Value = Me.F3T5.Value

ws.Cells(Irow, 11).Value = Me.F4T1.Value
ws.Cells(Irow, 12).Value = Me.F4T2.Value
ws.Cells(Irow, 13).Value = Me.F4T3.Value

ws.Cells(Irow, 16).Value = Me.F3C1.Value
ws.Cells(Irow, 17).Value = Me.F5T1.Value
ws.Cells(Irow, 18).Value = Me.F5T2.Value
ws.Cells(Irow, 19).Value = Me.T1.Value
End Sub

Om gegevens te wijzigen gebruik ik de volgende code:

' hernoemen wijzigen
Sub Wijzigen()
Dim f As Range
With Sheets("Inkomsten")
    Set f = .Columns(1).Find(F1T1.Value, , xlValues)
    If Not f Is Nothing Then
        .Cells(f.Row, 1).Resize(, 27) = Array(F7T1.Value & " " & F6T1.Value, F6T1.Value, F7T1.Value, lblfactuurnummer.Value, lblextra.Value, F6T2.Value, F6T3.Value, F6T4.Value, F3C3.Value, F8T1.Value, F8T2.Value, F8T3.Value, F8T4.Value, F8T5.Value, F8T6.Value, "", F6T5.Value, F3T1.Value, "", "", F4T1.Value, F4T2.Value, F4T3.Value, "", F5T1.Value, F5T2.Value, T1.Value)
        End If
End With
End Sub

Nu wil ik zo'n korte code eigenlijk ook gebruiken voor het toevoegen van gegevens, alleen kom ik er nog niet uit. Ik heb reeds het volgende:

'hernoemen toevoegen
Sub toevoegen()
Dim Irow As Long
Dim f As Range
With Sheets("Inkomsten")
Set f = Irow = ws.Cells(Rows.Count, 1)
.End(xlUp).Offset(1, 0).Row
If Not f Is Nothing Then
.Cells(f.Row, 1).Resize(, 27) = Array(F2T2.Value & " " & F6T1.Value, F6T1.Value, F2T2.Value, lblfactuurnummer.Value, lblextra.Value, F6T2.Value, F6T3.Value, F6T4.Value, F3C3.Value, F8T1.Value, F8T2.Value, F8T3.Value, F8T4.Value, F8T5.Value, F8T6.Value, "", F6T5.Value, F3T1.Value, "", "", F4T1.Value, F4T2.Value, F4T3.Value, "", F5T1.Value, F5T2.Value, T1.Value)
End If
End With
End Sub

Wie kan mij helpen deze code aan te passen zodat deze wel werkt?

Alvast super bedankt.

 

[HSV]

Dan zal het zoiets worden.

Sub toevoegen()
Sheets("Inkomsten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 27) = Array(F2T2.Value & " " & F6T1.Value, F6T1.Value, F2T2.Value, lblfactuurnummer.Value, lblextra.Value, F6T2.Value, F6T3.Value, F6T4.Value, F3C3.Value, F8T1.Value, F8T2.Value, F8T3.Value, F8T4.Value, F8T5.Value, F8T6.Value, "", F6T5.Value, F3T1.Value, "", "", F4T1.Value, F4T2.Value, F4T3.Value, "", F5T1.Value, F5T2.Value, T1.Value)
End Sub

 

[Kazandra]

Top dank je wel.