Pop Up Window

  • Thread starter Thread starter Powlaz
  • Start date Start date
P

Powlaz

Is it possible to open a spreadsheet where a pop up comes
up first? Here's what I'm thinking.

I have a timecard workbook that has a tab for 2004-2050.
When the user opens a spreadsheet in the workbook for the
first time (like the beginning of the year) I would like
a pop up window to come up and ask the user to enter his
regulart start time and total number of hours in his
regular work week. So as long as cell A1 is blank the
pop up should keep coming up. Once cell A1 is filled in
(first day of work in new year) the pop up should go
away. How do I do this?

Better yet. How can I make a form that the user enters
his start time, lunch in, lunch out, and end time that
will route the times as they are entered to a
spreadsheet. This would effectively have Excel working
as a Database.

Thanks for the ideas,

Matt
 
Hi
answers see below:
Is it possible to open a spreadsheet where a pop up comes
up first? Here's what I'm thinking.
Click to expand...
Yes, you can use the workbook_open event. Put the following code in
your workbook module (no error checking, etc included - just to give
you an idea):
Private Sub Workbook_Open()
Dim input_value
If Range("A1").Value = "" Then
input_value = InputBox("Enter your data")
Range("A1").Value = input_value
End If
End Sub

Better yet. How can I make a form that the user enters
his start time, lunch in, lunch out, and end time that
will route the times as they are entered to a
spreadsheet. This would effectively have Excel working
as a Database.
Click to expand...
If you have created a worksheet with these headings you could use the
inbuild data mask (goto 'Data - Mask'). Maybe this is sufficient for
your requirements

Frank
 
Matt,

You should address the range in Frank's solution via its worksheet, in case
the workbook is ever saved with a different worksheet active, that is

Private Sub Workbook_Open()
Dim input_value
With Worksheets("Sheet1").Range("A1")
If .Value = "" Then
input_value = InputBox("Enter your data")
.Value = input_value
End If
End With
End Sub

Also, I don't know what the Data - Mask that Frank refers to is, might be a
2003 feature or some odd German function <vbg>, but you could use the
Data>Form functionality.Build a database, column headings, and then you have
built-in form-handling functionality. Better still, use John Walkenbach's
enhanced Data Form addin, available free at
http://j-walk.com/ss/dataform/index.htm

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Hi Bob
You should address the range in Frank's solution via its worksheet,
in case the workbook is ever saved with a different worksheet active,
that is
Click to expand...
Good point, I was just a little bit lazy on this part, thanks for
adding this :-)
Also, I don't know what the Data - Mask that Frank refers to is,
might be a 2003 feature or some odd German function <vbg>,
Click to expand...
O.K.You've got me - I stumbled on the translation :-)
Change 'Mask' to 'Form'. I agree with Bob's suggestion to use John
Walkenbach's add-in.

Best regards
Frank
 
Frank,

You are rockin' and rollin' today with my answers. Thank
you VERY much. Got another question about this one. I
may just use the built in Data Mask or (is it Data >
Form) but how do I get it to load with the page. I don't
want to have to draw it out of the Data menu. Is that
possible?
I'm going to need to brush up on my VB code because I
like the idea of using the pop up window but I don't
remember how to assign the data from the input boxes
(Time In, Lunch In, Lunch Out, Time Out) to 4 different
cells.
Aside from that I have the spreadsheet configured so that
if b4:b35 have "H","S","V" in them then c4:f4(down to
c35:f35) shouldn't take input from the user.
It's getting to where the whole workbook ought to be
coded but I've been trying to do as much as I can with
simple Excel tools.

Thanks again for the help,

Matt

PS (check out my Checkboxes post. Any ideas there?)
 
Hi Matt
You are rockin' and rollin' today with my answers. Thank
you VERY much. Got another question about this one. I
may just use the built in Data Mask or (is it Data >
Form) but how do I get it to load with the page. I don't
want to have to draw it out of the Data menu. Is that
possible?
Click to expand...

for invoking the data form automatically you can put the following code
in the workbook module of your workbook. You can get this by yourself
by just recording your steps with the macro recorder - as I did :-)
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
Range("A1").Select
ActiveSheet.ShowDataForm
End Sub

If your data is in sheet1, starting in A1. If your data is ordered in
columns (lets say A:D) your data is automatically put in the right
cells.
Matt said:
Aside from that I have the spreadsheet configured so that
if b4:b35 have "H","S","V" in them then c4:f4(down to
c35:f35) shouldn't take input from the user.
Click to expand...
see your other post

Frank
 
Back
Top