• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 232
  • Last Modified:

Excel -- upon opening, promt for data input


I have a spreadsheet where two critical values drive several associated calculations.

At this time, I've added a simple note in the XLS "reminding" users to ensure reviewing/updated those two values.  

However, to ensure they actually are reviewed/changed, I would like to force their data entry upon opening the spreadsheet.

Value #1 (in cell D1): it is an integer ranging between 15 to 25
Value #2 (in cell D2): it is a fraction.   It can take on only 3 values (i.e., 1/2, 1/3, or 1/4)

Ideally, the on-opening pop-form will utilize a drop-down menu for value #1.   Alternatively, for value #2, radio buttons (or also a drop-down menu) would be great.

Does anyone know how to a) develop the VBA and b) build this linked form?

2 Solutions
Saqib Husain, SyedEngineerCommented:
Try this macro in the workbook module

Private Sub Workbook_Open()
Range("D1") = InputBox("Enter a value from 15 to 25", "Cell D1")
Range("D2") = "=" & InputBox("Enter a 1/2, 1/3 or 1/4", "Cell D2")
End Sub
ExpExchHelpAuthor Commented:

Thx... I've added the code to a module (see attached JPG).

Upon opening the XLS, I'm not prompted for data entry.... it goes straight to the worksheet.

Is there another setting I must verify in order for the macro to be called?

Don't put it in a new module, put it in the "ThisWorkbook" module.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now