help with If Isnumeric

Use the following code instead:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Cells(Target.Row, 5) = Cells(Target.Row, 5) + Cells(Target.Row, 7)
End If
End Sub

This code has to be entered in the module of the sheet in question. This can be done by right-clicking on the sheet tab name, and then selecting view code.


- Mangesh

Well, I see what you did there... A problem with that is I need it to stop half way down the page. Example would be g6:g20. I also like the other codes ability to be used with a button instead of on change.

And if you have any info on where I can find some more info on this, or even help me describe what it is im trying to do so I can search for it that would be great too. That is probably my biggest problem... I dont know what to call what im trying to do.

And Thanks Mangesh
This project im working on might get me a nice raise(I'm up for review next week so I'll let you know )


And thanks in advance for anyone elses help
Chris

Anyone else have any suggestions by chance?

Hi Justchris,

sorry, had not seen your reply to your second post.

For it to work for g6:g20, modify my code above to something likethis:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 And (Target.Row >= 6 And Target.Row <= 20) Then
        Cells(Target.Row, 5) = Cells(Target.Row, 5) + Cells(Target.Row, 7)
    End If
End Sub

And If you want it to work for a button, then use something like this:
Assign the following code to the button. I am assuming that you will use a button from the control toolbox

Private Sub CommandButton1_Click()
    For i = 6 To 20
        Cells(i, 5) = Cells(i, 5) + Cells(i, 7)
    Next
End Sub

- Mangesh