if statemnts

 
Private Sub USEROPEN()

Sheets("UserData").Select
Range("A10").Select
ActiveCell.Value = Application.UserName
If ActiveCell.Value = "ali" Then
Run "UserDataOnOpen"
End If

End Sub

this macro currently only runs if ali opens the file I want to run it if Tom or Micheal or John opened it and if anyone else did then do nothing , how can I adapt this macro to do that .. anyhelp

Originally Posted by khalid79m

 
Private Sub USEROPEN()

Sheets("UserData").Select
Range("A10").Select
ActiveCell.Value = Application.UserName
If ActiveCell.Value = "ali" Then
Run "UserDataOnOpen"
End If

End Sub

this macro currently only runs if ali opens the file I want to run it if Tom or Micheal or John opened it and if anyone else did then do nothing , how can I adapt this macro to do that .. anyhelp

Hi,
amend

If ActiveCell.Value = "ali" Then
to

If ActiveCell.Value = "ali" or ActiveCell.Value = "tom" or ActiveCell.Value = "michael" or ActiveCell.Value = "john" Then

also, as previously advised,

If LCase(Range("A10").Value) = "ali" then

use the lowercase for testing, probably as

If LCase(ActiveCell.Value) = "ali" then


hth
---

Originally Posted by khalid79m

also, as previously advised, amend

ActiveCell.Value = Application.UserName
to lowercase for testing purposes


I dont understand what you mean, all the usernames will be in lowercase anyway as I will set them on each users PC alongside their staff number ie

markhepper0145648

Yes it was amended, I didn't hit the correct line to Lowercase.

the reason for lowercase? - your question was " if Tom or Micheal or John " - and they're not lowercase.

It's something that gets overlooked, it may be simple here to use login names and say that you are always sure of the lowercase, but your question proves that wrong.

As mudraker suggested, use the lowercase, it's good practice and you'll spend less time with hassles when it really counts.

hth
---

Originally Posted by khalid79m

also in response to my initial question re if statement

is there an easier way to do it as i need to run the macro for 20 different people out of about 700 who will access the file , could i just do seperate if statement for each one or can you word wrap the script some how ?

20? - I didn't read that into your post. I saw 3 additional people, for which the answer was given.

For a list, something like

 listOfUsers = Array("ali", "tom", "michael")
    
    For n = 0 To UBound(listOfUserss)
        if ActiveCell.value = listOfUsers(n))
        run ' your sub
        exit sub
        endif
    Next n

should work for you.

---
added, for the 'wrap' the Help on wrap shows how to wrap in a cell, with a wrap in that instruction.
---