Format value paste

[Abhijeet]

Hi

I have excel data Numbers i want to paste values but what ever in column A that show value as it is i want to paste value please tell me i have mention in column B expected values i want.

 

[Luke M]

You'll want to use the .Text property of the cell. Example:

Sub CopyVisibleNumber()
Dim c As Range

For Each c In Range("A1:A10")
    'the .Text property references what is displayed
    c.Offset(, 2).Value = c.Text
Next

End Sub

 

[Abhijeet]

Thanks Luke M for this.Please help me in this post also
http://forum.chandoo.org/threads/update-the-counts-with-criteria.20942/#post-127214

 

[Abhijeet]

Hi Luke M
Please tell me how to remove £ currency Symbol this macro pull if column A has £ currency symbol so i don't want £ currency symbol please tell me

 

[Luke M]

Sub CopyVisibleNumber()
Dim c As Range

For Each c In Range("A1:A10")
    'the .Text property references what is displayed
   c.Offset(, 2).Value = WorksheetFunction.Substitute(c.Text, "£", "")
Next

End Sub