nieuw record komt niet op de volgfende rij te staan??!!

[willie76]

Forummers,

Ik heb een formulier gemaakt waarin de inhoud van een aantal text/comboboxen moet worden overgebracht naar een ander werkblad.

Nu heb ik daar de VBA-code voor:

Private Sub CommandButton1_Click()
    With Sheets("Database")
        .Unprotect Password:="reanimatie"
         lRow = .Range("L600").End(xlUp).Offset(1).Resize(, 1).Row
        For i = 1 To 1
        .Cells(lRow, 1) = ComboBox1.Value
        Next
        For i = 1 To 2
        .Cells(lRow, i + 1) = Me("TextBox" & i).Value
        Next
        For i = 2 To 2
        .Cells(lRow, i + 3) = Me("Combobox" & i).Value
        Next
        For i = 3 To 3
        .Cells(lRow, i + 3) = Me("Textbox" & i).Value
        Next
        For i = 4 To 4
        .Cells(lRow, i + 4) = Me("Textbox" & i).Value
        Next
        For i = 3 To 3
        .Cells(lRow, i + 6) = Me("Combobox" & i).Value
        Next
        .Cells(Rows.Count, 4).End(xlUp).Offset(1).Resize(, 1).Value = WorksheetFunction.Transpose(Sheets("Data").Range("H2").Value)
        .Cells(Rows.Count, 7).End(xlUp).Offset(1).Resize(, 1).Value = WorksheetFunction.Transpose(Sheets("Data").Range("J2").Value)
    .Protect Password:="reanimatie"
    End With

Maar als ik een 2e invoer doe, overschrijft ie deze op de eerste, behalve de 2 items die ik van het werkblad zelf haal (H2 en J2)

Hoe zorg ik er in deze code voor dat een nieuw record op een volgende regel komt te staan ????

Dank alvast

 

[VenA]

Kan je misschien ook even je excelbestandje plaatsen met daarin de code en het formulier met de comboboxen?

 

[willie76]

excuses, maar natuurlijk

 

[Warme bakkertje]

Willie76
Als er je in een andere post suggesties worden gedaan om je code te verbeteren neem deze voorstellen dan ter harte en gebruik ze ook.
http://www.helpmij.nl/forum/showthread.php/774168-Zoek-de-fout-in-mijn-code
Kan je die vraag dan ook op opgelost zetten.
Met betrekking tot deze vraag zie bijlage