Picture button VBA

tigerdel

Board Regular
Joined
Oct 13, 2015
Messages
50
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

Rich (BB code):
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
Else
    MsgBox "You do not have access to this page!!"
End If
End If
End Sub
Thanks for looking
 
Last edited:

Some videos you may like

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,762
Office Version
2013
Platform
Windows
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:

Watch MrExcel Video

Forum statistics

Threads
1,101,996
Messages
5,484,089
Members
407,430
Latest member
sgoldman

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top