Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Target="" error
Excel 2002, Win XP
I have a short WorkSheet_Change macro as below: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If Target = "" Then Exit Sub 'Call a macro End Sub I'm getting a Type Mismatch error on: If Target = "" Then Exit Sub and only the 'If Target="" Then' is highlighted I think I've done this before without the error. Maybe I'm thinking of a regular macro. What I want to do is Exit Sub if Target is blank. Where did I go wrong? Thanks for your help. Otto |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Target="" error
Either:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If isempty(Target) Then Exit Sub 'Call a macro End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If len(trim(Target)) = 0 Then Exit Sub 'Call a macro End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If Target.Text = "" Then Exit Sub 'Call a macro End Sub If you want to process a multi cell area for Target, then you will have to add code to specifically deal with that. Range("A1").Resize(2,1) = "" will raise a type mismatch error since you are comparing an array to a string. -- Regards, Tom Ogilvy Otto Moehrbach wrote in message ... Excel 2002, Win XP I have a short WorkSheet_Change macro as below: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If Target = "" Then Exit Sub 'Call a macro End Sub I'm getting a Type Mismatch error on: If Target = "" Then Exit Sub and only the 'If Target="" Then' is highlighted I think I've done this before without the error. Maybe I'm thinking of a regular macro. What I want to do is Exit Sub if Target is blank. Where did I go wrong? Thanks for your help. Otto |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Target="" error
Tom
What you pointed out seems so obvious once I see it. Thanks for the help, as always. Otto "Tom Ogilvy" wrote in message ... Either: Private Sub Worksheet_Change(ByVal Target As Range) If Target.count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If isempty(Target) Then Exit Sub 'Call a macro End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If len(trim(Target)) = 0 Then Exit Sub 'Call a macro End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.count 1 then exit sub If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If Target.Text = "" Then Exit Sub 'Call a macro End Sub If you want to process a multi cell area for Target, then you will have to add code to specifically deal with that. Range("A1").Resize(2,1) = "" will raise a type mismatch error since you are comparing an array to a string. -- Regards, Tom Ogilvy Otto Moehrbach wrote in message ... Excel 2002, Win XP I have a short WorkSheet_Change macro as below: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F29:J29", "F93")) Is Nothing Then Exit Sub If Target = "" Then Exit Sub 'Call a macro End Sub I'm getting a Type Mismatch error on: If Target = "" Then Exit Sub and only the 'If Target="" Then' is highlighted I think I've done this before without the error. Maybe I'm thinking of a regular macro. What I want to do is Exit Sub if Target is blank. Where did I go wrong? Thanks for your help. Otto |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"num#" errors .. how to average a group with a "num#" error | Excel Discussion (Misc queries) | |||
"Document not saved" "error in loading DLL" | Excel Discussion (Misc queries) | |||
How to insert a "Target" line into basic bar chart | Charts and Charting in Excel | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Shortcut key for "Paste Options" and "Error Checking" buttons? | Excel Discussion (Misc queries) |