Via knop ingevulde gegevens invullen in ander tablad

[Glekke]

Ik heb een facturatie systeem opgemaakt in excel.
Ik wil via een knop de ingevulde gegevens kopiëren naar het tabblad inkomsten, zodat bij elke nieuw gemaakte factuur de gegevens op een nieuwe rij ingevuld worden. ik loop echter vast en hij vult steeds dezelfde lijn in. Welke code moet ik hieraan toevoegen om de volgende lege rij in te vullen

 

[AD1957]

Plaats even een voorbeeldbestandje met fake gegevens.

 

[Glekke]

Range("E21:F21").Select
Selection.Copy
Sheets("Inkomsten").Select
Range("C55").Select
ActiveSheet.Paste
Sheets("Factuur - Overschrijving").Select
Range("M10:N10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inkomsten").Select
Range("A5:B5").Select
ActiveSheet.Paste
Sheets("Factuur - Overschrijving").Select
Range("M9:N9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inkomsten").Select
Range("E5:F5").Select
ActiveSheet.Paste
Sheets("Factuur - Overschrijving").Select
Range("L31").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inkomsten").Select
Range("R5").Select

 

[edmoor]

Met een voorbeeld bestandje wordt een Excel document bedoelt.
Klik ook eens op de link in mijn handtekening.

 

[Glekke]

testbestand in bijlage

 

[edmoor]

De code die je in #3 plaatste zit niet in dat document.
Welke knop op welk blad moet daarvoor worden gebruikt?

 

[AD1957]

Begin eerst eens met het verwijderen van de samengevoegde cellen.
Die geven vaak problemen met VBA.

 

[Glekke]

Wat bedoelt u?

 

[Glekke]

Begin eerst eens met het verwijderen van de samengevoegde cellen.
Die geven vaak problemen met VBA.

Dit heb ik ondertussen uitgevoerd

 

[Glekke]

De code die je in #3 plaatste zit niet in dat document.
Welke knop op welk blad moet daarvoor worden gebruikt?

Button 14

 

[edmoor]

Wellicht dat dat ongeveer de naam van de knop is, maar dat is geen antwoord op mijn vraag.

 

[HSV]

Zelf even de juiste cellen in de Array sv zetten.

Sub hsv()
 With Sheets("factuur - overschrijving")
  sv = Array(.[e21], .[b27], .[m10], .[b27], .[d10], .[m33], .[m34], .[m37])
 Sheets("inkomsten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = sv
 End With
End Sub

 

[Glekke]

Nu wel met de knop

 

[edmoor]

En de optie van HSV heb je al getest?

 

[Glekke]

Zelf even de juiste cellen in de Array sv zetten.

Sub hsv()
 With Sheets("factuur - overschrijving")
  sv = Array(.[e21], .[b27], .[m10], .[b27], .[d10], .[m33], .[m34], .[m37])
 Sheets("inkomsten").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = sv
 End With
End Sub

Zelf even de juiste cellen in de Array sv zetten. Kan je me een voorbeeld geven aan de hand van mijn file?

 

[HSV]

Zie bestand.

 

[Glekke]

Zie bestand.

Super dankuwel!

 

[Glekke]

Zie bestand.

Zou u mij eens persoonlijk kunnen sturen?

 

[edmoor]

Dat bestand staat in #16.

 

[HSV]

En graag stoppen met citeren.