Kopieren

[RobYol]

Beste Forum leden,

Er is veel te vinden hierover op het forum maar op een een of andere manier wil het niet lukken. Als ik op een werkblad x (kan 1 t/m 53 zijn) sta wil ik onder een knop, op dat werkblad, een macro hebben die een bepaalde range (A4:T43) kopieert van werkblad "standaard" en daarbij alleen de waarde kopieert naar een bepaalde range (A4:T43) naar het werkblad waar ik op dat moment op de knop druk.

Alvast u dank :thumb:

gr RobYol

 

[Hoornvan]

RobYol,

Weet je dat er in Excel een macro recorder zit?
Zoja gebruik die dan eens en vereenvoudig de code daarna.

 

[RobYol]

RobYol,

Weet je dat er in Excel een macro recorder zit?
Zoja gebruik die dan eens en vereenvoudig de code daarna.

Beste Hoornvan,

Heb ik gedaan maar geeft fout.

Sub Standaard_kopieren()
Sheets.Select ("Standaard")
Range("A4:T43").Select
Selection.Copy
activeSheets.Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Hoornvan]

Ik zal niet zeegen dat het perfect is maar het werkt.
Klik op de knop

Er kon nog een stukje code af.

Sub Standaard_kopieren()
 [Standaard!A4:T43].Copy
 [A4].PasteSpecial Paste:=xlPasteValues
End Sub

 

[Warme bakkertje]

En zo is hij compleet

Sub Standaard_kopieren()
 [Standaard!A4:T43].Copy
 [A4].PasteSpecial xlPasteValues
 Application.CutCopyMode = False
End Sub

 

[Wigi]

Als je toch alleen maar de waarden nodig hebt, moet je niet kopiëren:

Sub Standaard_kopieren()
    With [Standaard!A4:T43]
        [A4].Resize(.Rows.Count, .Columns.Count) = .Value
    End With
End Sub

 

[RobYol]

Bedankt

Bedankt voor de snelle reacties TOP:thumb::thumb::thumb: