Userform invoer automatisch een regel verder naar onderen plaatsen

[Jay305]

Hallo,
Ik ben al even bezig om te proberen met mijn userfrom,
ik probeer namelijk dat mijn gegevens worden ingevoerd op de goede plaats en dat deze met telkens een regel ertussen eronder word ingevoerd.
dit lukt me niet zo goed. iemand die mij kan helpen???

Bekijk bijlage Test storingen MET CODING.xlsm

Met vriendelijke groet
Jay

 

[Jay305]

Nog een meededeling over mijn bestand,
Ik heb alleen nog maar één code geschreven voor de eerste tabblad dit omdat als ik de eerste goed zo hebben de rest copy paste werk zou zijn.

 

[jos1982]

Misschien is er een code die nog beter kan, maar dit bied in ieder geval een oplossing.

Private Sub CM_00_Click()
   Sheets("Assemblage 1").Select

Range("A100").Select
Selection.End(xlUp).Select

If ActiveCell.Row = 6 Then

Selection.Offset(1, 0).Value = C_01.Value
Selection.Offset(1, 2).Value = C_02.Value
Selection.Offset(1, 3).Value = C_03.Value
Selection.Offset(1, 5).Value = T_01.Value
Selection.Offset(1, 7).Value = C_04.Value
Selection.Offset(1, 8).Value = C_05.Value

Else

Selection.Offset(2, 0).Value = C_01.Value
Selection.Offset(2, 2).Value = C_02.Value
Selection.Offset(2, 3).Value = C_03.Value
Selection.Offset(2, 5).Value = T_01.Value
Selection.Offset(2, 7).Value = C_04.Value
Selection.Offset(2, 8).Value = C_05.Value
End If

End Sub

Gr Jos

 

[TitaTovenaar]

Dat kan beter zo:

Private Sub CM_00_Click()
   
With Sheets("Assemblage 1")

    If .Cells(Rows.Count, 1).End(xlUp).Row = 6 Then
        A = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Else
        A = .Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Row
    End If
    
        .Range("A" & A) = C_01
        .Range("C" & A) = C_02
        .Range("D" & A) = C_03
        .Range("F" & A) = T_01
        .Range("H" & A) = C_04
        .Range("I" & A) = C_05
End With
End Sub

Las naderhand dat je een regel er bij wilde

 

[VenA]

Zal ook wel in de buurt komen.

Private Sub CM_00_Click()
  With Sheets("Assemblage 1")
    t = .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(t + 1 + Abs((t Mod 2) = 0), 1).Resize(, 7) = Array(C_01, "", C_03, "", T_01, "", C_04, C_05)
  End With
End Sub

 

[TitaTovenaar]

@VenA
Zo compact strekt mijn kennis (nog) niet, dank je voor dit leermoment. Overigens mist C_02 in de Array