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

 

[dmtcrainey]

Not sure if i am just being dense, but I do not follow what you are asking for. Could you be more specific.

 

[teodormircea]

Make a Paste Special like values on a range that has the auto filter ON, make it only for the selected visible cells

 

[jindon]

try

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

 

[teodormircea]

Thanks Jindon

 

[teodormircea]

I found a little problem. that is not keeping the cell format after , for ex>
if i have =A1&"," &B2, is not keeping the format.

 

[jindon]

I found a little problem. that is not keeping the cell format after , for ex>
if i have =A1&"," &B2, is not keeping the format.

How those cells are formatted?

 

[teodormircea]

General format , if not formulas doesn't work

 

[jindon]

....
Can you show me the data in each cell and also show me how you want ?

 

[teodormircea]

I just verified once again , is not a problem of the macros , i made a mistake in my formulas, is keeping everything right,macros works fine.
Thanks anyway Jindon