Vraag VBA code "Reiskosten"

[Marky76]

Heb in bijlage een klein stukje code om de reiskosten in te geven.
Je krijgt 2 maal een InputBox en dan zouden de gegevens naar het
tabblad Datagegevens moeten gaan en dan elke keer achter
elkaar gearchiveerd worden. Maar mijn code werkt nog niet
plus er moet nog een stukje code bij opdat wanneer ik voor
de 2de maal de naam en kosten invoer dit achter in het
tabblad datagegevens achter de reeds bestaande gegevens
wordt aangevuld.

Groeten, Mark.

 

[Wigi]

Mark

Sub InvullenAfdrukken()
    Dim lastrow As Long
    lastrow = Sheets("Dataverzameling").Range("A" & Rows.Count).End(xlUp).Row
    
    Do
        Range("C3") = Application.InputBox("Typ uw naam:")
    Loop Until Range("C3") <> ""
    
    Do
        Range("C5") = Application.InputBox("Voer uw reiskosten in:", , , , , , , 1)
    Loop Until Range("C5") <> ""
    
    MsgBox ("Uw gegevens worden nu afgedrukt.")
      ' Hierna komt de opdracht afdrukken
      ' ActiveWindow.SelectedSheets.PrintOut Copies:=2
    
    Range("C3").Cut Sheets("Dataverzameling").Range("A" & lastrow + 1)
    Range("C5").Cut Sheets("Dataverzameling").Range("B" & lastrow + 1)
End Sub

Probeer hier wat van op te steken zodat je niet steeds meer cellen selecteert zoals de macro-recorder doet...

Kopiëren en plakken is trouwens veel efficiënter dan het wegschrijven van iets in een cel.

Wigi

 

[Marky76]

Heb je de code getest, want bij mij werkt die niet.

Ik krijg de foutmelding 400 wanneer ik de naam en het bedrag heb ingegeven, dan krijg ik het venster, uw gegeven worden nu afgedrukt.
Heb deze eens uitgeschakeld door een ' voor te zetten, maar nog krijg ik de foutmelding,
en heb ook aan de knop jouw nieuwe code verbonden.
Dus normaal zou het moeten werken, maar hij doet het nog net niet.

Mark.

 

[Marky76]

Excuseer Wigi, ik heb de juiste code toch niet goed verbonden aan de knop blijkbaar.

De manier waarop jij het hebt opgelost hou ik zeker bij achter de code die ik had gemaakt, zodat ik begrijp wat ik fout deed, zo probeer ik het nu te leren.

Bedankt Wigi!!!