formula woes

[James]

Private Sub CommandButton1_Click()
Dim rng As Range
Dim rw As Integer
Dim dest As String

With Selection
If [E6 = E47] Then
[G51].Value = [G47 - E6]
End If
Range("B6:G6").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub

The long and the short of it is it's not
performing the subtraction, but it does the
copy and paste

Any help would be appreciated

James

 

[Jay Petrulis]

On 2002-04-22 15:17, James wrote:
Private Sub CommandButton1_Click()
Dim rng As Range
Dim rw As Integer
Dim dest As String

With Selection
If [E6 = E47] Then
[G51].Value = [G47 - E6]
End If
Range("B6:G6").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End Sub

The long and the short of it is it's not
performing the subtraction, but it does the
copy and paste

Any help would be appreciated

James

I don't follow what you are doing, but this should capture the problems with the IF statement, unless [E6] = [E47] is always FALSE.


If [E6] = [E47] Then
[G51].Value = [G47] - [E6]
End If

HTH,
Jay

 

[James]

No dice, it will copy and paste but ignores
the fomula???

James