VBA - Copy raw data as decimal number

[excelhasey]

I am trying to copy data (in number format) which are populated from another worksheet and change regularly but I want to copy this data to another cell - When I use the VBA code below it does copy the data from the cells i.e. from Col G to Col B but when you click on cell B3 you see the number (lets say 1.86) in the cell but the cell has also copied the formula over from cell G3 - I don't want this I just want the raw output data i.e. 1.86

Am I close or miles away ?? (Its the Dim Variant isn't it ??)

Option Explicit

Dim copymydata As Variant

Private Sub copymydata()

If [G3] >= 0 Then

Range("G3:G2000").Copy Range("B3:B2000")

End If

End Sub

[MiniBlueDragon]

I think it needs to be a PasteSpecial?

Option Explicit

Dim copymydata As Variant

Private Sub copymydata()

If [G3] >= 0 Then

Set rng = Range("G3:G2000")
rng.Copy
Range("B3:B2000").PasteSpecial (xlPasteValues)

End If

End Sub

That work for you?

[Captain Sensible]

I always just use something like this and it just copies the value in the cell rather than any formulas

Sheet2.Range("I5").Value = Sheet1.Range("Q2").Value

[Captain Sensible]

Private Sub copymydata()

If [G3] >= 0 Then

Range("B3:B2000").Value = Range("G3:G2000").Value

End If

End Sub

[excelhasey]

Thanks lads cant get t to work on this tab in VBA I already have

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

So MiniBlueDragon & Captain Sensible how do I integrate your code ??

Thanks