gegevens wegschrijven

[log]

Hallo allemaal,

Ik zoek naar een VBA code die met een druk op de knop ingevoerde gegevens wegschrijft naar een 2e tabblad. Ik heb al vele topics hier over gelezen maar kom er toch niet uit (geen ervaring met VBA).

Zie bijgevoegd bestand.
Wanneer de volledige week is ingevuld wil ik dat de datum, begin tijd, eind tijd, pauze en aantal uren van alle 5 de dagen in sheet 2 wordt geplaatst.
Wanneer ik dit voor de volgende week weer ingevuld heb moet deze onder de bestaande data worden geplaatst.

Kan iemand mij hier mee van dienst zijn?

Alvast bedankt.

 

[tkint]

Beste,

VBA is echt niet zo moeilijk. Er zijn op dit forum en op worksheet.nl zeker voorbeelden te vinden die beantwoorden aan jouw vraag.

 

[samabert]

Volgende doet zoiets, misschien niet de mooiste code maar het werkt.
Range nog aan te passen en een knop voorzien. Plaats de code in een module.

Mvg.
Marc

Sub CopyRange()
    Dim nextRow As Integer
   
Application.ScreenUpdating = False
    
    nextRow = Sheets("Kasboek").Range("E" & Rows.Count).End(xlUp).Row + 1
    
    Sheets("Factuur").Range("R13").Copy
    Sheets("Kasboek").Range("E" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R16").Copy
    Sheets("Kasboek").Range("Z" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R17").Copy
    Sheets("Kasboek").Range("AA" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R18").Copy
    Sheets("Kasboek").Range("AB" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R19").Copy
    Sheets("Kasboek").Range("AC" & nextRow).PasteSpecial xlPasteValues
    
    Sheets("Factuur").Range("R21").Copy
    Sheets("Kasboek").Range("AD" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R20").Copy
    Sheets("Kasboek").Range("AE" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R14").Copy
    Sheets("Kasboek").Range("N" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R22").Copy
    Sheets("Kasboek").Range("Y" & nextRow).PasteSpecial xlPasteValues
    
    Sheets("Factuur").Range("R26").Copy
    Sheets("Kasboek").Range("I" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R25").Copy
    Sheets("Kasboek").Range("J" & nextRow).PasteSpecial xlPasteValues
    
    Sheets("Factuur").Range("R24").Copy
    Sheets("Kasboek").Range("F" & nextRow).PasteSpecial xlPasteValues
    
    
    Sheets("Factuur").Range("R23").Copy
    Sheets("Kasboek").Range("A" & nextRow).PasteSpecial xlPasteValues
    
    
    'Sheets("Factuur").Range("R27").Copy
    'Sheets("Kasboek").Range("" & nextRow).PasteSpecial xlPasteValues
    
    
   
Sheets("Factuur").Select
Range("D13").Select
MsgBox "Gegevens gekopieerd naar kasboek!"
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[log]

Het is gelukt. Bedankt Marc :thumb: