Help

[Mark_68]

Als ik de volgende code gebruik gaat hij niet naar de volgende regel met opslaan, maar vervangt hij steeds dezelfde cel

Private Sub cmdInvoeren_Click()

Dim le As Long
lr = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1

With Sheets(cmbKeuze.Text)
.Cells(lr + 1, "A").Value = Me.cmbMaand.Value
.Cells(lr + 1, "C").Value = Me.txtBedrag.Value

End With

End Sub

 

[edmoor]

Plaats een voorbeeld document.
Die code slaat niks op maar zet waarden in cellen.
Verder Dim je le en gebruik je lr.
Slordig, maar staat los van je probleem.
De lr + 1 is ook overbodig.

 

[Mark_68]

Hierbij het document het gaat om de opdracht voor het invoeren

 

[edmoor]

Het werkblad Data is leeg.
Daar krijg je dus altijd regel 2 op terug.

 

[Mark_68]

Is er dan ook een mogelijkheid om de waardes direct naar het juiste tabblad op te slaan?

 

[edmoor]

Uiteraard.
Plaats een relevant document en leg uit wat precies je bedoeling is.

 

[Mark_68]

Het document is hetzelfde.
Mijn bedoeling is als je voor Uitkering kiest dat het dan op het tabblad uitkering komt te staan, en zorgtoeslag op het tabblad zorgtoeslag enz.

 

[edmoor]

Verwijder op de relevante werkbladen de lege regel 2 en gebruik dan dit:

Private Sub cmdInvoeren_Click()
    Dim lr As Long

    lr = Sheets(cmbKeuze.Text).Range("A" & Rows.Count).End(xlUp).Row + 1
    With Sheets(cmbKeuze.Text)
        .Cells(lr, "A").Value = Me.cmbMaand.Value
        .Cells(lr, "C").Value = Me.txtBedrag.Value
    End With
End Sub

Die Dim mag ook weg.

 

[snb]

Er mag wel meer weg:

Private Sub cmdInvoeren_Click()
  Sheets(cmbKeuze).cells(rows.count,1).End(xlUp).offset(1).resize(,2)=array(cmbMaand,txtBedrag)
End Sub

 

[Mark_68]

Dank je wel beide, het werkt