Goedenavond beste leden,
Ik heb een VBA code welke goed werkt. Alleen na het invullen van m'n UserForm schrijft deze code de ingevulde gegevens van het UserForm iedere keer weg naar de eerstvolgende vrije onderstaande rij.
Kan deze code ook aangepast worden zodat het ingevulde steeds in dezelfde rij wordt overschreven?
Zoals ik al zei, de code voldoet prima alleen zou ik graag zien dat iedere keer als ik het UserForm invul de gegevens worden overschreven in bijvoorbeeld RIJ 12
Onderstaand de gebruikte code. Ik denk dus dat deze regel
A = Cells(Rows.Count, 1).End(xlUp).Row + 1 aangepast moet worden alleen weet ik niet even hoe.
Ik ben pas een beginner met VBA
Alvast bedankt voor de moeite.
Met vriendelijke groet, Berry.
Private Sub CommandButton1_Click()
Dim A As Long
A = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(A, 1).Value = Maatva.Value
Cells(A, 2).Value = Trekva.Value
Cells(A, 3).Value = Tankva.Value
Cells(A, 12).Value = Homva.Value
Cells(A, 11).Value = Kuitva.Value
Cells(A, 13).Value = Yleva.Value
Cells(A, 14).Value = Vastva.Value
Cells(A, 6).Value = Ava.Value
Cells(A, 7).Value = Bva.Value
Cells(A, 8).Value = Cva.Value
Cells(A, 9).Value = Dva.Value
Cells(A, 10).Value = Vasttva.Value
Cells(A, 19).Value = Opmerkingva.Value
Maatva.Value = ""
Trekva.Value = ""
Tankva.Value = ""
Homva.Value = ""
Kuitva.Value = ""
Yleva.Value = ""
Vastva.Value = ""
Ava.Value = ""
Bva.Value = ""
Cva.Value = ""
Dva.Value = ""
Vasttva.Value = ""
Opmerkingva.Value = ""
End Sub