Formulier probleem

[Lijst]

beste,

Als ik via een formulier gegevens naar desbetreffende tabel wil schrijven, lukt dit alleen als ik de eerste rij (4) eerst invul.
graag had ik willen beginnen van een lege tabel zie foto's.
welke aanpassing moet hier voor gebeuren in de code want met ik kan het nergens vinden.




Alvast bedankt

 

[snb]

Plaats Excel bestanden, geen plaatjes.

 

[SjonR]

Private Sub Enter_Click()
Dim LastRow As Long, ws As Worksheet

    Set ws = Blad1
    
    LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
    
    ws.Range("B" & LastRow).Value = Klnr.Value
    ws.Range("C" & LastRow).Value = Vnaam.Value
    ws.Range("D" & LastRow).Value = Anaam.Value
    ws.Range("E" & LastRow).Value = Sstraat.Value
    ws.Range("F" & LastRow).Value = Hnummer.Value
    ws.Range("G" & LastRow).Value = Pcode.Value
    ws.Range("H" & LastRow).Value = SGemeente.Value
    
End Sub

werkt dit voor je?

 

[gast0660]

Private Sub Enter_Click()
Dim LastRow As Long, wskl As Worksheet
Set wskl = Worksheets("Klanten")
With wskl
LastRow = wskl.Range("B" & Rows.Count).End(xlUp).Row
wskl.Cells(LastRow + 1, "B").Resize(, 7) = Array(Klnr.Value, Vnaam.Value, Anaam.Value, Sstraat.Value, Hnummer.Value, Pcode, Sgemeente.Value)
End With
End Sub

 

[Lijst]

Prachtig dit werkt, bedankt voor je hulp. nu nog even begrijpen wat je precies gedaan hebt, kwestie wat bij te leren.
Merci

Private Sub Enter_Click()
Dim LastRow As Long, ws As Worksheet

    Set ws = Blad1
    
    LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
    
    ws.Range("B" & LastRow).Value = Klnr.Value
    ws.Range("C" & LastRow).Value = Vnaam.Value
    ws.Range("D" & LastRow).Value = Anaam.Value
    ws.Range("E" & LastRow).Value = Sstraat.Value
    ws.Range("F" & LastRow).Value = Hnummer.Value
    ws.Range("G" & LastRow).Value = Pcode.Value
    ws.Range("H" & LastRow).Value = SGemeente.Value
    
End Sub

werkt dit voor je?

 

[SjonR]

Feitelijk zoek je de laatste gevulde rij en zet je de inhoud van je userform er 1 rij onder.

Plaats bij vervolgvragen aub een voorbeeldbestand, want elke keer een foto moeten aanklikken is zwaar irritant.

 

[snb]

Svp niet 'citeren' (quoten). Gebruik de juiste reageerknop

1 regel (zonder variabelen) is genoeg:

Sub M_snb()
  sheets("Klanten").cells(Rows.Count,2).End(xlUp).offset(1).Resize(, 7) = Array(Klnr.Value, Vnaam.Value, Anaam.Value, Sstraat.Value, Hnummer.Value, Pcode, Sgemeente.Value)
End Sub

 

[Lijst]

oke ik hou jullie opmerkingen in het achterhoofd, bedankt voor de tijd ik leer hier heel veel van. grt