Command button

[Ron99]

Hi,

I have created command buttons in my worksheet, I want to add codes which is in modules to that button, unfortunately it is not adding. Is there a way to do this ? other than copying the code from mdoules and pasting it in the command button.

Thanks
Ron...

 

[Ron99]

The spelling is correct,

 

[GlennUK]

... have you checked for a trailing space character in the sheet tab name?

 

[Ron99]

The best thing I did was, I copied the name from the tab itself, now it works..may be there was an extra space I had added.

Thanks Guys!!

 

[Ron99]

I have one more query...

I do not want everyone to use the button, I want only specific people to use it, is there a way we can protect the buttons from misuse ?

Regards,
Ron.......

 

[VoG]

You can check against the Windows logon name like this

Sub Macro1()
'
' Macro1 Macro
'
'
Dim LR As Long, _
LC As Long, _
dWs As Worksheet, _
sWs As Worksheet, _
rowx As Long, _
Rng As Range, _
rng1 As String
If Environ("username") <> "Ron" And Environ("username") <> "VoG" Then Exit Sub
Sheets("GSC ACTIVITIES").Select
Set sWs = ActiveSheet

 

[GTO]

See if this returns your username correctly. If it does, you could just wrap the code with an IF and test for acceptable usernames.
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> tryme()<br>    MsgBox Environ("username")<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[Ron99]

How do I add this code in a particular button ?

I have three buttons in sheet called " Button sheet"

I have a button named " sort data", "Extract data", "send mails"

all of the above in this button I have assigned to modules, should I add your given code in the modules or in the sheet called "button sheet" by pressing alt+f11 ?

where and how do I add it ? please advise

Thanks

 

[VoG]

It should go in each Sub in the module.

 

[Ron99]

I have pasted the code

Sub Macro1()
'
' Macro1 Macro
'
'
Dim LR As Long, _
LC As Long, _
dWs As Worksheet, _
sWs As Worksheet, _
rowx As Long, _
Rng As Range, _
rng1 As String
If Environ("username") <> "Ron" And Environ("username") <> "Kjell" Then Exit Sub
Sheets("GCS Activities").Select


when I click on the button, nothing is happening.

in (username), should I have to specify something..

Sorry I am new to VBA..

 

[VoG]

Instead of Ron you need your Windows logon username.