Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Visual Basic Question
I have used some formulas in Visual Basic which have worked very well, but I
have come across a small, but still irritating problem. I have a column M which has different statuses (Offer Accepted, Offer Declined, Offer Outstanding, 1st Round Offer, 2nd Round Offer, Assessment Centre), I created the following formula in Visual Basic TryD: If Intersect(Target, Range("$M$10:$M$209")) Is Nothing Then GoTo TryE For Each myCell In Intersect(Target, Range("$M$10:$M$209")) If myCell.Value < "Offer" Then Application.EnableEvents = False myCell.Offset(0, 1).ClearContents Application.EnableEvents = True End If Next myCell What happens is if I change the status from Offer Declined to Offer Accepted in column M, it removes everything in column N, when I only want that to happen when M does not contain "offer" or is blank. Is there anyway of doing this? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Visual Basic Question
Hi Alex,
Instead of: If myCell.Value < "Offer" Then try: If InStr(myCell.Value, "Offer") = 0 Then Cheers -- macropod [MVP - Microsoft Word] "Alex" wrote in message ... | I have used some formulas in Visual Basic which have worked very well, but I | have come across a small, but still irritating problem. | | I have a column M which has different statuses (Offer Accepted, Offer | Declined, Offer Outstanding, 1st Round Offer, 2nd Round Offer, Assessment | Centre), I created the following formula in Visual Basic | | TryD: | | If Intersect(Target, Range("$M$10:$M$209")) Is Nothing Then GoTo TryE | For Each myCell In Intersect(Target, Range("$M$10:$M$209")) | If myCell.Value < "Offer" Then | Application.EnableEvents = False | myCell.Offset(0, 1).ClearContents | Application.EnableEvents = True | End If | Next myCell | | What happens is if I change the status from Offer Declined to Offer Accepted | in column M, it removes everything in column N, when I only want that to | happen when M does not contain "offer" or is blank. | Is there anyway of doing this? | | |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Visual Basic Question
Excellent, thanks for that.
"macropod" wrote: Hi Alex, Instead of: If myCell.Value < "Offer" Then try: If InStr(myCell.Value, "Offer") = 0 Then Cheers -- macropod [MVP - Microsoft Word] "Alex" wrote in message ... | I have used some formulas in Visual Basic which have worked very well, but I | have come across a small, but still irritating problem. | | I have a column M which has different statuses (Offer Accepted, Offer | Declined, Offer Outstanding, 1st Round Offer, 2nd Round Offer, Assessment | Centre), I created the following formula in Visual Basic | | TryD: | | If Intersect(Target, Range("$M$10:$M$209")) Is Nothing Then GoTo TryE | For Each myCell In Intersect(Target, Range("$M$10:$M$209")) | If myCell.Value < "Offer" Then | Application.EnableEvents = False | myCell.Offset(0, 1).ClearContents | Application.EnableEvents = True | End If | Next myCell | | What happens is if I change the status from Offer Declined to Offer Accepted | in column M, it removes everything in column N, when I only want that to | happen when M does not contain "offer" or is blank. | Is there anyway of doing this? | | |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Visual Basic Question
You could also use
If Not myCell.Value Like "Offer*" Then -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "macropod" wrote in message ... Hi Alex, Instead of: If myCell.Value < "Offer" Then try: If InStr(myCell.Value, "Offer") = 0 Then Cheers -- macropod [MVP - Microsoft Word] "Alex" wrote in message ... | I have used some formulas in Visual Basic which have worked very well, but I | have come across a small, but still irritating problem. | | I have a column M which has different statuses (Offer Accepted, Offer | Declined, Offer Outstanding, 1st Round Offer, 2nd Round Offer, Assessment | Centre), I created the following formula in Visual Basic | | TryD: | | If Intersect(Target, Range("$M$10:$M$209")) Is Nothing Then GoTo TryE | For Each myCell In Intersect(Target, Range("$M$10:$M$209")) | If myCell.Value < "Offer" Then | Application.EnableEvents = False | myCell.Offset(0, 1).ClearContents | Application.EnableEvents = True | End If | Next myCell | | What happens is if I change the status from Offer Declined to Offer Accepted | in column M, it removes everything in column N, when I only want that to | happen when M does not contain "offer" or is blank. | Is there anyway of doing this? | | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Micrsoft Visual Basic Compile error: Expected: end of statement | Excel Discussion (Misc queries) | |||
Visual basic editor | Excel Discussion (Misc queries) | |||
Macro Calling Visual Basic References | Excel Discussion (Misc queries) | |||
Visual Basic and VBA Forum | Excel Discussion (Misc queries) | |||
basic pie chart question | Charts and Charting in Excel |