Results 1 to 2 of 2

Thread: Picture button VBA
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Oct 2015
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)

    Default Picture button VBA

    I am looking to find out how to add code to my VBA script for when a picture button is clicked

    I have a series of picture buttons which, if I click any one of them runs through a script to confirm or deny access

    What I now need to do is:

    If the access is granted to the picture button clicked, it take them to the required page

    There are 8 picture buttons: i.e. Emma_Summary, Alex_Summary etc and they would click their button to access their page

    The code that checks their access works to the Success Message and it is there that I need to add that whichever picture button was clicked it opens that page

    Sub shape_click()
    Dim selName As String
    Dim foundUser As Range
    Dim userRow As Long
    Dim userCol As Long
    selName = Mid(Application.Caller, 1, InStr(1, Application.Caller, "_") - 1)
    userRow = Sheets("Admin").Range("B5").Value
    Set foundUser = Sheets("Admin").Range("D1:V1").Find(selName)
    If foundUser Is Nothing Then
        MsgBox "User not found!"
        Exit Sub
    End If
        userCol = foundUser.Column
    If selName = Sheets("Admin").Range("B2") Or Sheets("Admin").Cells(userRow, userCol).Value = "–" Then
        MsgBox "Success!" -THIS IS WHERE I NEED THE CODE
        MsgBox "You do not have access to this page!!"
    End If
    End If
    End Sub
    Thanks for looking
    Last edited by tigerdel; Jun 16th, 2019 at 01:31 AM.

  2. #2
    Board Regular My Aswer Is This's Avatar
    Join Date
    Jul 2014
    Post Thanks / Like
    28 Post(s)
    13 Thread(s)

    Default Re: Picture button VBA

    Is SelName the name of the sheet you want to go to? We call them sheets not Pages.
    selName = Mid(Application.Caller, 1, InStr(1, Application.Caller, "_") -

    Last edited by My Aswer Is This; Jun 16th, 2019 at 01:51 AM.
    Be sure and always test this script on sample data the first time you use this as to avoid any problems with your data. Always trying to learn more and help others where I can. I'm using Excel 2013.
    Patience please Iím not perfect yet. "Memories are forever"

Some videos you may like

User Tag List

Tags for this Thread

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