running some VBA code in response to data entered in a cell

[mantrid]

hello again
Can anyone tell me if it is possible to trigger some VBA code when a number
entered in a particular cell on a worksheet is less than the number in
another cell?. I dont know if cells have events linked to them such as mouse
down etc

Thanks
Ian

 

[Nick Hodge]

Mantrid

You could use the worksheet_change event like so. Checks a value in A1 and
if below 10 it colours B1 red

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value < 10 Then
Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
Else
Target.Offset(0, 1).Interior.ColorIndex = xlNone
End If
End If
End Sub

To install right-click the sheet tab and select 'view code...'

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
web: www.nickhodge.co.uk
blog: www.nickhodge.co.uk/blog/

FREE UK OFFICE USER GROUP MEETING, MS READING, 27th APRIL 2007
www.officeusergroup.co.uk

 

[mantrid]

Thanks again Nick
I think that is the kind of think I need. I will have a play and see if I
can get it to do what I need.
Ian