Opslaan als

[musmiles]

Hi,

Ik heb weer jullie hulp nodig.

Ik heb een excel doc waarbij ik vaak de command : Kopiëren en plakken speciaal waarden gebruik.
Is er een sneltoets voor deze handelling (plakken speciaal Waarden)? heeft iemand hiervoor een macro?

alvast bedankt,

 

[Ron321]

Sub Macro1()
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Effe opgenomen met de macrorecorder.

 

[musmiles]

Sub Macro1()
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Effe opgenomen met de macrorecorder.

bedankt voor je reactie,

zover was ik ook, alleen het werkt niet want nu worden de waarden in cel A1 opgeslagen.

 

[Ron321]

Is het iedere keer een andere cel?

Probeer dan eerst ctrl C en dan
Sub Macro1()
ActiveSheet.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[musmiles]

hi,
Helaas dat werkt niet

krijg een fout melding : Compileerfout synaxisfout?

nog enige idee?

 

[jpvs]

Is het dit?

Sub PlakkenSpeciaalWaarden()
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Of

Sneltoet : W S W ---Enter

Pierre

 

[musmiles]

Hi jpvs,

Helaas deze werkt ook niet