Hi,
I have a sheet i am working on and want to copy the data from the cells to another sheet but as text only and not use the formatting.
this is what i am using but this copies the formatting or formula when i would like just text
Sub Bar()
Dim r1 As Range, r2 As Range
Set r1 = Sheets("TM").Range("f25")
Set r2 = Sheets("TM Bar").Range("A100").End(xlUp).Offset(1, 0)
r1.Copy r2
ActiveWorkbook.Close SaveChanges:=True
End Sub
I have a sheet i am working on and want to copy the data from the cells to another sheet but as text only and not use the formatting.
this is what i am using but this copies the formatting or formula when i would like just text
Sub Bar()
Dim r1 As Range, r2 As Range
Set r1 = Sheets("TM").Range("f25")
Set r2 = Sheets("TM Bar").Range("A100").End(xlUp).Offset(1, 0)
r1.Copy r2
ActiveWorkbook.Close SaveChanges:=True
End Sub