Hello Chandra, I recommend using Application.Intersect to detect if a cell or range of interest is in the Target range. This is because multiple cells can be changed at one time (for example, by copy/paste, search/replace, or fill down), and your If/Then, depending on how you write it precisely, can either miss when your range of interest is involved, or cause a Type Mismatch error whether or not it's involved..
This should avoid that problem: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range ' Handle Column 8 Changes for each rng in Application.Intersect(Target, Me.Columns(8)).areas If Not rng is Nothing then ' the following uses an array formula to calculate a number of cells at once rng.offset(0, -2).Value2 = me.evaluate("IF((" & rng.address & ")=""BILLED"",""Booked"",(" & rng.offset(0, -2).address & "))" End If next rng ' Handle Column 6 Changes for each rng in Application.Intersect(Target, Me.Columns(6)).areas If Not rng is Nothing then ' the following uses an array formula to calculate a number of cells at once rng.offset(0, 2).Value2 = me.evaluate("IF((" & rng.address & ")=""OPEN"",""UnBilled"",(" & rng.offset(0, -2).address & "))" End If next rng End Sub Let me know if this works for you; I composed in email, so there could be errors. Asa From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of NOORAIN ANSARI Sent: Tuesday, February 07, 2012 10:30 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Target.cell issues Dear Chandra Sekaran, Please try it.. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 And VBA.UCase(Target.Value) = "BILLED" Then Target.Offset(0, -2).Value = "Booked" End If If Target.Column = 6 And VBA.UCase(Target.Value) = "OPEN" Then Target.Offset(0, 2).Value = "UnBilled" End If End Sub or Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 8 And VBA.UCase(Target.Value) = "BILLED" Then Target.Offset(0, -2).Value = "Booked" End If If Target.Column = 6 And VBA.UCase(Target.Value) = "OPEN" Then Target.Offset(0, 2).Value = "UnBilled" End If End Sub On Wed, Feb 8, 2012 at 11:54 AM, chandra sekaran <duraichan...@gmail.com> wrote: sorry one Contion only worked On Wed, Feb 8, 2012 at 11:44 AM, <dhartiku...@gmail.com> wrote: Copy this code.. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 And Target.Cells = "Billed" Or Target.Cells = "BILLED" Then Target.Offset(0, -2).Value = "Booked" If Target.Column = 6 And Target.Cells = "Open" Or Target.Cells = "OPEN" Then Target.Offset(0, 2).Value = "UnBilled" End If End If End sub Sent from BlackBerryR on Airtel _____ From: chandra sekaran <duraichan...@gmail.com> Sender: excel-macros@googlegroups.com Date: Wed, 8 Feb 2012 11:39:34 +0530 To: <excel-macros@googlegroups.com> ReplyTo: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Target.cell issues Dear all i have wrriten this code for worksheet change module My contion is working but second contion is not working any one help me Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 And Target.Cells = "Billed" Or Target.Cells = "BILLED" Then Target.Offset(0, -2).Value = "Booked" End if If Target.Column = 6 And Target.Cells = "Open" Or Target.Cells = "OPEN" Then Target.Offset(0, 2).Value = "UnBilled" End If End Sub Regards Chandru -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ---------------------------------------------------------------------------- -------------------------- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ---------------------------------------------------------------------------- -------------------------- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ---------------------------------------------------------------------------- -------------------------- To post to this group, send email to excel-macros@googlegroups.com -- Thanks & regards, Noorain Ansari http://noorainansari.com/ <http://excelmacroworld.blogspot.com/> http://excelmacroworld.blogspot.com/ -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ---------------------------------------------------------------------------- -------------------------- To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com