Copy PAASTE VALUES

[teodormircea]

Hello

How can i use this code to make it working also on a range filtered

Sub CopyPasteValues()
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

[jindon]

Are you talking about this one ?

Sub test()
Dim myAreas As Areas, myArea As Range
With Selection
    On Error Resume Next
    Set myAreas = .SpecialCells(12).Areas
    On Error GoTo 0
    If myAreas Is Nothing Then Exit Sub
    For Each myArea In myAreas
        myArea.Value = myArea.Value
    Next
End With
End Sub

Then change to

Sub test()
Dim myAreas As Areas, myArea As Range, r As Range
With Selection
    On Error Resume Next
    Set myAreas = .SpecialCells(12).Areas
    On Error GoTo 0
    If myAreas Is Nothing Then Exit Sub
    For Each myArea In myAreas
        For Each r In myArea
            r.Value = r.Text
        Next
    Next
End With
End Sub

 

[cgmojoco]

can this be re-written to skip blanks?

Also, is this to advanced?? how build in an undo?