alculate 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
Asa
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@googleg
Thanks Noorain Ansari ,its works fine
Regards
chandru
On Wed, Feb 8, 2012 at 11:59 AM, NOORAIN ANSARI wrote:
> 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
> Tar
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).Val
sorry one Contion only worked
On Wed, Feb 8, 2012 at 11:44 AM, 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 Tar
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)
