Need Help For Cell_change

[sathish_fun]

Hi<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Can any one help me that I need a macro which will run automatically when the cell in row U:U has others (i.e.) <o></o>
If Target. Address = "$U$:$U$" = Others then<o></o>
Active cell next should be updated as reactive <o></o>
<o></o>
(For Eg)<o></o>
<o></o>
If Rang ("U2") = "other" then it should update only in ("v2") as "reactive"<o></o>
<o></o>
Kindly help<o></o>
<o></o>
Sathishv <?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 12pt; HEIGHT: 15.75pt" alt="0" type="#_x0000_t75"><v:imagedata o:href="http://www.mrexcel.com/forum/images/smilies/confused.gif" src="file:///C:\DOCUME~1\sathishv\LOCALS~1\Temp\msohtml1\01\clip_image001.gif"></v:imagedata></v:shape><o></o>

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 21 And UCase(Target.Value) = "OTHER" Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = "Reactive"
    Application.ScreenUpdating = True
End If
End Sub

then close the code window using the X.

 

[Domski]

Hi,

Maybe something like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns("U")) Is Nothing Then
    If Target.Value = "Other" Then Target.Offset(0, 1) = "Reactive"
    
End If
End Sub

Right click on the worksheet tab and select View Code and place the code on the sheet's code page.

Hope it helps,

Dom

 

[Richard Schollar]

Hi

On the sheet where you want this to appear, rightlcick on the tab name and select "view code" - paste the following into the VBE that will open up:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, cell As Range
Set r = Intersect(Target, Range("U:U"))
If Not r Is Nothing Then
    Application.EnableEvents = False
    For Each cell In r
        If UCase(cell.Value) = "OTHER" Then _
            cell.Offset(, 1).Value = "Reactive"
    Next cell
    Application.EnableEvents = False
End If
End Sub

 

[sathish_fun]

Hi thanks it works great

 

[sathish_fun]

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Hi<o></o>
Sorry in my previous request only for Row U:U But now i need both U:U and V:V Kindly Help<o></o>
<o></o>
Can any one help me that I need a macro which will run automatically when the cell in row U:U has others and row V:V = "Good" (i.e.)
If Target. Address = "$U$:$U$" = Others and V:V = "Good" then
Active cell next should be updated as reactive <o></o>
(For Eg)<o></o>
If Rang ("U2") = "other" and V:V = "Good" then it should update only in ("w2") as "reactive"<o></o>
<o></o>
Kindly help
<o></o>
Sathishv <o></o>
<o> </o>

 

[Richard Schollar]

Here's some amended code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, cell As Range
Set r = Intersect(Target, Range("U:U"))
If Not r Is Nothing Then
    Application.EnableEvents = False
    For Each cell In r
        If UCase(cell.Value) = "OTHER" And UCase(cell.Offset(, 1).Value) = "GOOD" Then _
            cell.Offset(, 2).Value = "Reactive"
    Next cell
    Application.EnableEvents = False
End If
End Sub

 

[sathish_fun]

Hi<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Sorry in my previous request only for Row U:U But now i need both U:U and V:V Kindly Help<o></o>
<o></o>
Can any one help me that I need a macro which will run automatically when the cell in row U:U has others and row V:V = "Good" (i.e.)
If Target. Address = "$U$:$U$" = Others and V:V = "Good" then
Active cell next should be updated as reactive <o></o>
(For Eg)<o></o>
If Rang ("U2") = "other" and V:V = "Good" then it should update only in ("w2") as "reactive"<o></o>
<o></o>
Kindly help
<o></o>
Sathishv <o></o>

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 21 And UCase(Target.Value) = "OTHER" And UCase(Target.Offset(0, 1).Value) = "GOOD" Then
    Application.EnableEvents = False
    Target.Offset(0, 2).Value = "Reactive"
    Application.EnableEvents = True
End If
End Sub

 

[Richard Schollar]

See my previous post in this thread