Solved

VB Script to check if textbox is blank

Posted on 2010-09-09
7
553 Views
Last Modified: 2012-06-27
Guys

I need an example of a vb script for excel 2003 that checks a textbox to see if it is blank if it is it then prompts you to enter a value in the text box but if there is a value there then do nothing

Any ideas

Regards
0
Comment
Question by:DarrenJackson
7 Comments
 
LVL 11

Expert Comment

by:Runrigger
ID: 33635842
Darren,

Can you be more specific about the process, what event will "trigger" the check?

Thanks
Dave
0
 

Author Comment

by:DarrenJackson
ID: 33635853
Sorry when the excel sheet is opened
0
 
LVL 11

Assisted Solution

by:Runrigger
Runrigger earned 167 total points
ID: 33635883
Open the VB Project explorer, double click the "ThisWorkbook" object to open it's VB editer, then paste the following;

Private Sub Workbook_Open()

    If Range("A1").Value = "" Then
        Range("A1").Value = InputBox("This workbook is missing a mandatory value in Cell A1, enter the value here!", "WARNING")
    End If

End Sub
0
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
LVL 13

Accepted Solution

by:
MWGainesJR earned 167 total points
ID: 33636274
sub worksheet_activate()
dim str as string
if txtmytextbox.text = "" then
      str = inputbox("Enter a value.")
      txtmytextbox.text = str
end if
msgbox "Your value is: " & txtmytextbox.text
end sub
0
 
LVL 59

Assisted Solution

by:Chris Bottomley
Chris Bottomley earned 166 total points
ID: 33644340
If you want a single shot per activation then you cannot go wrong with the post from MWGainesJR.

The following will continue to pester until they input something, (OTHER THAN SPACES or blank).

Referenced to TextBox1 needs to reflect your textbox of course.

Chris

To Create a macro:
------------------

Alt + F11 to open the macro editor

For worksheet event handlers:
     In the project tree select as appropriate:
        EXCEL      : the worksheet code page
     In the workpane select as appropriate:
        EXCEL      : WorkSheet
     In the workpane select the required 'event', (i.e. 'Change')

Check Security as appropriate:
------------------------------

In the application select Tools | Macro | Security
2003 and Earlier : Select Medium
2007 : Outlook - Warnings for all Macros
     : Others - Enable a trusted location and inhibit macros otherwise so do both!
      : Disable Macros
            Office Button, (top left of the screen)
            Options
            Trust Centre
            Trust Centre Settings
            MAcro Settings
            Disable All MAcros with warnings
      : Enable Trusted Locations
            Office Button, (top left of the screen)
            Options
            Trust Centre
            Trust Centre Settings
            Trusted Locations
            Add a preferred location
            ENSURE YOUR FILE IS IN A TRUSTED LOCATION
            Re-open to ensure it is recognised if the above has been changed
            
Select OK


Private Sub Worksheet_Activate()
    Do While Trim(TextBox1.Text) = ""
        TextBox1.Text = InputBox("Enter String for the box", "TextBox1 is blank - needs initialisng")
    Loop
End Sub

Open in new window

0
 

Author Comment

by:DarrenJackson
ID: 33644355
Guys

Thanks for the code I have just tried Chris's and they all work as desired

Thanks I will split points

Thankyou
0
 

Author Closing Comment

by:DarrenJackson
ID: 33644362
Great Thanks
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

785 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question