Zelfde bereik kopieren

[deSmid]

Door mijn hele werkblad, op verschillende bladen en op verschillende locatie's heb ik steeds het zelfde gebied wat ik wil kopieren naar een vast blad op een vaste plaats.
Het gebied is altijd 5kolommen breed en 30 rijen hoog. Dit gebied moet worden worden geselecteerd en gekopieerd altijd naar het blad 'Bereken'.
Nu wil ik handmatig de eerste cel selecteren, homepositie van dat gebied en vervolgens via macro (kopie_sel) de actie laten uitvoeren vanaf de geselecteerde cel het gebied kopieren (5kol. en 30 rijen) en Plakken als......'waarden' op werkblad 'Bereken' in B4:F34.

Grt,
deSmid.

 

[LucB]

Hallo DeSmid,

Probeer deze Macroeens.

Sub Copy_Naar_Bereken()
'Run deze Macro vaaf het Blad naar keuze
'en selecteer de 1e cel.
With ActiveSheet
Range(ActiveCell, ActiveCell.Offset(29, 4)).Copy _
Sheets("Bereken").Range("B4")
End With
End Sub

 

[deSmid]

Heel goed Luc,

Deze was me ook nog niet bekend, maar kan ik ook uitsluitend de waarden invoegen op het blad 'Bereken' en niet de formules?

Als dit niet kan hoeft het geen probleem te zijn want dan zou ik de macro kunnen aanvullen door nogmaals het gebied te kopieren en vervolgens te 'plakken speciaal......'waarden'.

Uiteindelijk krijg ik dan:

Sub Copy_Naar_Bereken()
'Run deze Macro vaaf het Blad naar keuze
'en selecteer de 1e cel.
With ActiveSheet
Range(ActiveCell, ActiveCell.Offset(29, 4)).Copy _
Sheets("Bereken").Range("B4")
End With
'
Range("B4:F33").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
'
End Sub

:thumb:
Grt,
deSmid.

 

[LucB]

deSmid,

Dan wordt het deze.

Sub Copy_Naar_Bereken()
'Run deze Macro vaaf het Blad naar keuze
'en selecteer de 1e cel.
With ActiveSheet
Range(ActiveCell, ActiveCell.Offset(29, 4)).Copy
Sheets("Bereken").Range("B4").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Sheets("Bereken").Activate
Range("A1").Select
End Sub

 

[deSmid]

Ik was er al heel tevreden mee, maar zo is het helemaal af.

Bedankt,
Grt,
deSmid.