Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    Jun 2001
    Location
    Netherlands
    Posts
    13
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Forcing cell entry (2000 / SP3)

    Is it possible to force another user to fill in a value in a specific cell - it doesn't matter what kind of value;
    numeric or alpha-numeric, times or dates, anything goes...
    I tried using the Validation function (by unchecking the 'Ignore blank' option), but it doesn't seem to mind about empty cells...

  2. #2
    Uranium Lounger
    Join Date
    Jan 2001
    Location
    South Carolina, USA
    Posts
    7,295
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Forcing cell entry (2000 / SP3)

    At what point do you want to force something to be entered? If the cell is selected and the user tries to go to another cell? When the user tries to switch to another worksheet? When the user tries to close the workbook? When the user swithces from the workbook to another workbook or application? In other words, what do you want to trigger a message to the user telling him he must enter a value in the cell.
    Legare Coleman

  3. #3
    New Lounger
    Join Date
    Jun 2001
    Location
    Netherlands
    Posts
    13
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Forcing cell entry (2000 / SP3)

    I want the check triggered by going to another cell.

  4. #4
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Weert, Limburg, Netherlands
    Posts
    4,812
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Forcing cell entry (2000 / SP3)

    You might try this code in the module of the worksheet in question:

    <pre>Option Explicit

    Dim bActive As Boolean
    Dim bDisableEvents As Boolean

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If bDisableEvents Then Exit Sub
    bDisableEvents = True
    If Target.Address = "$B$2" Then
    bActive = True
    Else
    If bActive Then
    If Me.Range("b2") = "" Then
    MsgBox "Please make an entry in cell B2", vbCritical + vbOKOnly
    Me.Range("b2").Select
    End If
    End If
    End If
    bDisableEvents = False
    End Sub
    </pre>

    Jan Karel Pieterse
    Microsoft Excel MVP, WMVP
    www.jkp-ads.com
    Professional Office Developers Association

  5. #5
    New Lounger
    Join Date
    Jun 2001
    Location
    Netherlands
    Posts
    13
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Forcing cell entry (2000 / SP3)

    I'll try that, thanks!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •