• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Waarden in eerste lege cel plaatsen

Status
Niet open voor verdere reacties.
Een overschrijving doe je altijd van het ene rekeningnummer naar een andere. Dus van rekening 1 geeft dit een afboeking en bij rekening 2 wordt het dus een bijboeking. Dit kan je nog steeds in 1 tabel bijhouden.
 
Simpele methode.
Code: 
Private Sub CommandButton1_Click()
Dim txt2, txt3
If TextBox2 <> "" Then txt2 = CDbl(TextBox2)
If TextBox3 <> "" Then txt3 = CDbl(TextBox3)
  Sheets("hoofdblad").ListObjects(1).ListRows.Add.Range.Offset(, 1).Resize(, 5) = Array(Date, TextBox1, "", txt2, txt3)
  Sheets("Rekening").ListObjects(1).ListRows.Add.Range.Offset(, 1).Resize(, 5) = Array(Date, TextBox1, "", txt3, txt2)
Unload Me
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan