Sheet zichtbaar obv userid

[arvie76]

Wat zie ik over het hoofd ?

dit is mijn code

Private Sub Workbook_Open()
Sheets("Locaties").Range("L3") = Environ("UserName")
Sheets("voorraadtelling").Range("C2").Value = Now
[B][COLOR="#FF0000"]If Sheets("Locaties").[UserId] = "aartj03" Or "verhr07" Then[/COLOR][/B]
Sheets("Waarden").Select
Else
Sheets("Voorraadtelling").Select
'Keuze = MsgBox("Ben je Teamleider?", vbYesNo + vbQuestion, "Keuze maken")
'Sheets("Waarden").Select
'If Keuze = vbYes Then
'Exit Sub
'Else
'Sheets("Voorraadtelling").Select
End If
End Sub

Het gaat mis bij het rode. Als ik daar maar één userid vermeld loopt deze keurig door en gaat hij naar juiste sheet maar zodra ik er meer userid's vermeld zoals in voorbeeld loopt de macro vast.

Werkte eerst met msgbox en op basis van het antwoord ging deze naar juiste sheet, maar wil het nu o.b.v. userid doen.

 

[edmoor]

Maak er dit van:

Private Sub Workbook_Open()
    Sheets("Locaties").Range("L3") = Environ("UserName")
    Sheets("voorraadtelling").Range("C2").Value = Now
    
    Select Case Sheets("Locaties").[UserID]
        Case "aartj03", "verhr07"
            Sheets("Waarden").Select
        Case Else
            Sheets("Voorraadtelling").Select
    End Select
End Sub

 

[arvie76]

Opgelost !!!

Thnx Edmoor !!! :thumb:

Wilde eerst zeggen werkt niet. Maar door een slordigheid van mijn kant, door voor de rode regel geen ' te zetten ging hij steeds naar voorraadtelling wat logisch. ' weg hallen en hij werkt wel. Foutje

Private Sub Workbook_Open()
Sheets("Locaties").Range("L3") = Environ("UserName")
Sheets("voorraadtelling").Range("C2").Value = Now

Select Case Sheets("Locaties").[UserId]
        Case "aartj03", "vos0j13", "kloog04", "gielm00", "verhr07"
            Sheets("Waarden").Select
        Case Else
            Sheets("Voorraadtelling").Select
    End Select
'If Sheets("Locaties").[UserId] = "verhr07" Then
'Sheets("Waarden").Select
'Else
[COLOR="#FF0000"][B]Sheets("Voorraadtelling").Select[/B][/COLOR]
'Keuze = MsgBox("Ben je Teamleider?", vbYesNo + vbQuestion, "Keuze maken")
'Sheets("Waarden").Select
'If Keuze = vbYes Then
'Exit Sub
'Else
'Sheets("Voorraadtelling").Select
'End If
End Sub

 

[edmoor]

Een kopie en plakken van mijn voorbeeld was voldoende geweest.
Dan ben je de overhead aan commentaar kwijt en staan ook de inspringpunten zoals ze horen.

 

[jkpieterse]

Sheets("Locaties").[UserId]

Met bovenstaande vraag je de compiler om aan Excel te vragen wat UserId voor ding is, waarna het wordt opgehaald en dat is langzaam. Beter is:

Sheets("Locaties").Range("UserId").Value

 

[arvie76]

@jkpietse

In

Sheets("Locaties").[UserId]

staat [UserId] voor de cel("l3") waar het userid vermeld staat. Heb deze cel een naam gegeven zodat als de layout aangepast wordt ik de VBA niet hoef aan te passen, want dan blijft die cel Userid heten.

&Edmoor

Klopt wat je zegt maar ben gewent voor ik ding verwijder uit een Macro de oude optie's uit te schakelen voor geval nieuwe marco niet doet wat ik wil.

 

[snb]

Er hoeft helemaal niets naar het werkboek geschreven te worden.

Private Sub Workbook_Open()
  Sheets("voorraadtelling").Range("C2").Value = Now
    
  Sheets("Waarden").Visible=instr("aartj03verhr07",Environ("Username"))
End Sub

 

[jkpieterse]

In

Sheets("Locaties").[UserId]

staat [UserId] voor de cel("l3") waar het userid vermeld staat. Heb deze cel een naam gegeven zodat als de layout aangepast wordt ik de VBA niet hoef aan te passen, want dan blijft die cel Userid heten.

Dat hoef je mij niet uit te leggen, ik schrijf al 25 jaar VBA code Maar mijn syntax is aan te bevelen boven die met de rechte haken.