Window

Thread View: microsoft.public.excel.misc

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Dan Greenwald Thu, 19 Nov 1998 00:00

#3995

Author: Dan Greenwald
Date: Thu, 19 Nov 1998 00:00

7 lines
259 bytes

Would it be possible to set something up on Excel so that when somebody
opened the spreadsheet, a window would pop up that says "Please enter
score for team 1" and it would be designated that that number would go
into a specific cell?

Thanks in advance,

Dan

Re: Window

#3988

Author: "T.W.Thompson"
Date: Wed, 18 Nov 1998 00:00

15 lines
471 bytes

Dan,
Try this for XL 97
Private Sub Workbook_Open()
Score = Application.InputBox("Enter Team's 1 Score.")
Range("A1").Value = Score
End Sub

Dan Greenwald wrote in message <36538461.DC4AAF6F@home.com>...
>Would it be possible to set something up on Excel so that when somebody
>opened the spreadsheet, a window would pop up that says "Please enter
>score for team 1" and it would be designated that that number would go
>into a specific cell?
>
>Thanks in advance,
>
>Dan

Re: Window

#3996

Author: Dan Greenwald
Date: Thu, 19 Nov 1998 00:00

24 lines
621 bytes

I have XL 97 but I'm not sure what this means.  What is private sub
workbook?

Thanks,

Dan

"T.W.Thompson" wrote:
>
> Dan,
> Try this for XL 97
> Private Sub Workbook_Open()
> Score = Application.InputBox("Enter Team's 1 Score.")
> Range("A1").Value = Score
> End Sub
>
> Dan Greenwald wrote in message <36538461.DC4AAF6F@home.com>...
> >Would it be possible to set something up on Excel so that when somebody
> >opened the spreadsheet, a window would pop up that says "Please enter
> >score for team 1" and it would be designated that that number would go
> >into a specific cell?
> >
> >Thanks in advance,
> >
> >Dan

Re: Window

#3997

Author: "T.W. Thompson"
Date: Thu, 19 Nov 1998 00:00

42 lines
1041 bytes

Dan,
Right - Click your worksheet tab
Select "View Code"
Under VBAProject (your workbook's name) double - click "ThisWorkbook"
Paste the macro below

Private Sub Workbook_Open()
Score = Application.InputBox("Enter Team's 1 Score.")
Range("A1").Value = Score
End Sub

Save & close workbook
Open workbook to test.

Regards,
    Thomas

Dan Greenwald wrote in message <3653940D.8B7DA2A3@home.com>...
>I have XL 97 but I'm not sure what this means.  What is private sub
>workbook?
>
>Thanks,
>
>Dan
>
>"T.W.Thompson" wrote:
>>
>> Dan,
>> Try this for XL 97
>> Private Sub Workbook_Open()
>> Score = Application.InputBox("Enter Team's 1 Score.")
>> Range("A1").Value = Score
>> End Sub
>>
>> Dan Greenwald wrote in message <36538461.DC4AAF6F@home.com>...
>> >Would it be possible to set something up on Excel so that when somebody
>> >opened the spreadsheet, a window would pop up that says "Please enter
>> >score for team 1" and it would be designated that that number would go
>> >into a specific cell?
>> >
>> >Thanks in advance,
>> >
>> >Dan

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads