Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Page 2 of 2 FirstFirst 12
Results 11 to 13 of 13

Thread: Protection issues

  1. #11
    Board Regular
    Join Date
    Mar 2002
    Location
    England, UK.
    Posts
    526
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi Brett,

    Yes, on this board I wouldn't really call myself a master compared to the average poster. But at work I'm a genius! (That says more about their excel skills than mine though.....)

    As it happens I find it difficult to get some of my ideas accepted at work. People are a little bit afraid of this macro business. Also another problem I find is that if someone has been on an excel course, they think they know all there is to know about excel! But as I have found, there is so much to learn , good grief!

    RET79

  2. #12
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Christchurch New Zealand
    Posts
    1,030
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    yea you find that you know more than the programmers do at your work even after just a few courses I think the main thing is self teaching and alot of this posting site helps as your ideas can be made into reality instead of going i wonder if i could do this.

  3. #13
    MrExcel MVP Damon Ostrander's Avatar
    Join Date
    Feb 2002
    Location
    Denver, Colorado USA
    Posts
    4,239
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    RETT79,

    Here's some event code that will prevent the user from even selecting a cell until the cell above has been filled.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <> 1 Then
    If IsEmpty(Target.Offset(-1)) Then
    MsgBox "This cell cannot be edited until data has" & vbCrLf & _
    "been entered into the cell above.", vbInformation, _
    "Data prerequisite not met"
    Dim PrevCell As Range
    Set PrevCell = Target.End(xlUp)
    If IsEmpty(PrevCell) Then
    PrevCell.Select
    Else
    PrevCell.Offset(1).Select
    End If
    End If
    End If
    End Sub

    To install this code, simply right-click on the worksheet tab, select View Code, and paste it into the code pane.
    Keep Excelling.

    Damon

    VBAexpert Excel Consulting
    LinkedIn Profile http://www.linkedin.com/pub/damon-ostrander/7/79/a93
    AllExperts Profile http://www.allexperts.com/ep/1059-30...-Ostrander.htm

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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