Wegschrijven invoerblad

[gerrit123456789]

Hallo,

Ik heb een vraag:
Ik wil de gegevens van het invoerblad wegschrijven naar het totaal overzicht.

Zo moeten dus de cellen B5 t/m H5 en B9 t/m H9 en ook G12 en H12 weggeschreven worden in het totaal overzicht
Als ze weggeschreven zijn/worden moeten bovengenoemde cellen leeggemaakt worden.

Als ik tussentijds het bestand sluit moet alles zo blijven staan zoals het ook op het invoerblad ingevuld is.

Wie kan mij hierbij helpen.

Bij voorbaat dank,

Gerrit

Het bestand heb ik bijgevoegd.

Bekijk bijlage DEGIRO.xlsx

 

[VenA]

Ik begrijp niet hoe je met deze opmaak lekker kan werken. Met een een beetje code is het vrij eenvoudig te regelen.

Sub VenA()
With Sheets("Totaal overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Resize(, 7) = Sheets("Invoerblad").[B5:H5].Value
    .Offset(, 8).Resize(, 7) = Sheets("Invoerblad").[B9:H9].Value
    .Offset(, 16).Resize(, 2) = Sheets("Invoerblad").[G12:H12].Value
End With
Sheets("Invoerblad").[B5:H5,B9:H9].ClearContents
End Sub

De opmaak in de tab 'Totaal overzicht' mag je zelf nog even doen.

 

[gerrit123456789]

In ieder geval bedankt voor de hulp.

Heb ik nog een klein vraagje:
Is het mogelijk om de formules in bepaalde cellen te laten behouden.

Groet,

Gerrit

 

[VenA]

Ook dat kan.

Sheets("Invoerblad").[B5:H5,B9:H9].SpecialCells(2).ClearContents

 

[gerrit123456789]

Heel erg bedankt.
Ik ben hier enorm mee geholpen.

Groet,

Gerrit