Application.Inputbox Type2
Hi all,
Any idea why the variable FilterCriteria below is Null? When I step through the If FilterCriteria in Nothing Then step, it goes to exit sub. When prompted with the inputbox, I did enter text. Thanks! On Error Resume Next Set FilterCriteria = Application.InputBox(prompt:= _ "Enter Filter Criteria", Type:=2) If FilterCriteria Is Nothing Then Exit Sub End If On Error GoTo 0 |
Application.Inputbox Type2
"Steve" wrote in message
... Hi all, Any idea why the variable FilterCriteria below is Null? When I step through the If FilterCriteria in Nothing Then step, it goes to exit sub. When prompted with the inputbox, I did enter text. Thanks! On Error Resume Next Set FilterCriteria = Application.InputBox(prompt:= _ "Enter Filter Criteria", Type:=2) If FilterCriteria Is Nothing Then Exit Sub End If On Error GoTo 0 Presumably FilterCriteria is a variant .... Set is an Object oriented statement, and Nothing is an Object property. You are returning a text string, which is not an object. I expect that if you take out the On Error Resume Next you will get run-time errors that would help you debug. Try: FilterCriteria = Application.InputBox(prompt:= _ "Enter Filter Criteria", Type:=2) If IsEmpty(FilterCriteria) Then Exit Sub End If You can put the On Error back in after you finish your testing. -- Clif McIrvin (clare reads his mail with moe, nomail feeds the bit bucket :-) |
Application.Inputbox Type2
Right on the money! Thanks Clif!!
On May 25, 5:37*pm, "Clif McIrvin" wrote: "Steve" wrote in message ... Hi all, Any idea why the variable FilterCriteria below is Null? *When I step through the If FilterCriteria in Nothing Then step, it goes to exit sub. *When prompted with the inputbox, I did enter text. *Thanks! *On Error Resume Next * *Set FilterCriteria = Application.InputBox(prompt:= _ * * * * * *"Enter Filter Criteria", Type:=2) * * * *If FilterCriteria Is Nothing Then * * * * * *Exit Sub * * * *End If *On Error GoTo 0 Presumably FilterCriteria *is a variant .... Set is an Object oriented statement, and Nothing is an Object property. You are returning a text string, which is not an object. I expect that if you take out the On Error Resume Next you will get run-time errors that would help you debug. Try: * * *FilterCriteria = Application.InputBox(prompt:= _ * * * * * * "Enter Filter Criteria", Type:=2) * * * * If IsEmpty(FilterCriteria) Then * * * * * * Exit Sub * * * * End If You can put the On Error back in after you finish your testing. -- Clif McIrvin (clare reads his mail with moe, nomail feeds the bit bucket :-) |
Application.Inputbox Type2
You're welcome
"Steve" wrote in message ... Right on the money! Thanks Clif!! On May 25, 5:37 pm, "Clif McIrvin" wrote: "Steve" wrote in message ... Hi all, Any idea why the variable FilterCriteria below is Null? When I step through the If FilterCriteria in Nothing Then step, it goes to exit sub. When prompted with the inputbox, I did enter text. Thanks! On Error Resume Next Set FilterCriteria = Application.InputBox(prompt:= _ "Enter Filter Criteria", Type:=2) If FilterCriteria Is Nothing Then Exit Sub End If On Error GoTo 0 Presumably FilterCriteria is a variant .... Set is an Object oriented statement, and Nothing is an Object property. You are returning a text string, which is not an object. I expect that if you take out the On Error Resume Next you will get run-time errors that would help you debug. Try: FilterCriteria = Application.InputBox(prompt:= _ "Enter Filter Criteria", Type:=2) If IsEmpty(FilterCriteria) Then Exit Sub End If You can put the On Error back in after you finish your testing. -- Clif McIrvin (clare reads his mail with moe, nomail feeds the bit bucket :-) -- Clif McIrvin (clare reads his mail with moe, nomail feeds the bit bucket :-) |
All times are GMT +1. The time now is 02:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com