If event When a specific cell changes

[nuclearjack]

Hello

I have a workbook that is shared with many users and it can NOT be
password protected but I want to control the data in cells F45 and G45.
The VB I have works for F45 but I cant duplicate it for cell G45


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Cells(45, 6) Then Cells(45, 6) = "n/a"
End Sub

Currently when ever someone enters anything in cell F45 it changes back
to n/a as soon as they press enter.

 

[halimnurikhwan]

Hi,
Try this :
I've modified this from Ogilvy code :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$F$45" Then
If Target.Value <> "n/a" Then Target.Value = "n/a"
End If
End Sub

or have a look at :
http://groups.google.co.id/group/mi...=gst&q=tom+halim+fire&rnum=1#580a588ace130544

Rgds,

halim

nuclearjack menuliskan: