kopiëren van meerdere selecties en de "waarde" plakken in één handeling

[Robert Smidt]

Beste helpmij'ers,

Ik ben op zoek naar een vereenvoudiging van een selectie over meerdere cellen die de inhoud (voorzien van een formule "per cel") omzet naar de waarde (per cel) die de formule genereert. M.a.w. ik wil graag dat de formules over alle geselecteerde cellen worden vervangen door de waarde (oftewel het resultaat van de formule). Mijn bedoeling was om alle cellen te selecteren en de waarde naar zichzelf te kopiëren. Hier is vast een veel betere methode voor dan onderstaand, dat overigens ook niet werkt.

Sub TEST()
    Range("K9,M9,K11,M11,K13,M13,K16,M16,K18,K22,M22,K27,K29,K31,K35,M35,K37,M37"). _
        Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Een antwoord zie ik met veel belangstelling tegemoet,

Met vriendelijke groet,
Robert Smidt

 

[edmoor]

Zoiets?

Sub TEST()
    For Each cel In Range("K9:M37")
        If cel.HasFormula Then cel.Value = cel.Value
    Next cel
End Sub

 

[Robert Smidt]

Code werkt precies goed, heel erg bedankt..ik ben hier wederom erg blij mee.

fijne paasdagen

Groeten, Robert

 

[edmoor]

Nog iets ingekort.
En ook fijne dagen gewenst

 

[HSV]

Zou dit niet werken.

Sub TEST()
   Range("K9:M37") = Range("K9:M37").value
End Sub