Must be first

[Ronnie Coleman]

I need someone entering information to a worksheet to
enter into a specific cell first. It must be the first
thing they do so is there a way to code a message box
which would pop up to say "you must enter a value in A1
before anywhere else" if they try and enter anywhere else?

Thanks

 

[Nick Hodge]

Ronnie

You could put code in the Workbook_Open() event like so

Private Sub Workbook_Open()
MsgBox "You must enter data in Cell A1 first", vbOKOnly + vbQuestion
Worksheets("Sheet1").Activate
Range("A1").Select
End Sub

It fires when the workbook is open, displays a msgbox, activates sheet1 and
selects A1 on that sheet

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[Bob Phillips]

You would also need to trap input on the sheet to ensure A1 is completed
before allowing anything else, using the Change event.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[anonymousA]

Hi

Insert in the sheet module

Private Sub worksheet_Activate()

Range("A1").Activate

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False

If Target.Address = Range("A1").Address Then
Else
If IsEmpty(Cells(1, 1)) Then
MsgBox "you must enter something in A1 before anything else"
Range("A1").Activate
End If
End If

Application.EnableEvents = True

End Sub


So long

Ronnie Coleman a écrit :

 

[Nick Hodge]

Bob

I felt that at first to, it's just with the msgbox it seemed a little more
informative than that, hence I used vbInformation for example

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[KL]

Ronnie,

You may also want to consider an InputBox or a UserForm which would pop up
as the workbook opens and would prompt the user to enter the value, othrwise
close the book.

Regards,
KL

 

[Bob Phillips]

Hi Nick,

I agree, that is a friendlier first touch. It still leaves the worksheet
susceptible though, thus the 'also'.

Bob