K
kanan K
Hi
I have the following VBA code in my auto_open macro
'==============================================================
uname = UserName() 'gets windows login i
If LCase(uname) = "user1" The
uname = "GRUMMAN,ANITA
ElseIf LCase(uname) = "user2" The
uname = "THAI ,HERB
ElseIf LCase(uname) = "user3" The
uname = "BOGGS,JIM E
ElseIf LCase(uname) = "user4" The
uname = "MAXA ,ROB C
End I
'MsgBox unam
Sheets("sheet4").Visible = Tru
Sheets("sheet4").Selec
Set pt = ActiveSheet.PivotTables(1
Set pf = pt.PivotFields("Series"
Application.ScreenUpdating = Fals
Application.DisplayAlerts = Fals
On Error Resume Nex
With pt.PivotFields("Series"
pf.AutoSort xlManual, pf.SourceNam
For Each pi In pf.PivotItem
pi.Visible = Fals
If pi.Value = uname The
pi.Visible = Tru
End I
Next p
pf.AutoSort xlAscending, pf.SourceNam
End Wit
Application.DisplayAlerts = Tru
Application.ScreenUpdating = Tru
Sheets("sheet4").Visible = Fals
'============================================================
The issue is : when user1 opens this book (first user to open this book), it looks at 'GRUMMAN, ANITA'. When user2 opens this book, user2 should only look at 'THAI, HERB' , but it also brings up GRUMMAN,ANITA. But the code works OK, if I mad
user2 to look at any name that is alphabetically before the GRUMMAN, ANITA name in the sequence or list of pivot items ...
like any name staring with F,E,D,C,B or A.
I would really appreciate your input on this
thank
Kana
I have the following VBA code in my auto_open macro
'==============================================================
uname = UserName() 'gets windows login i
If LCase(uname) = "user1" The
uname = "GRUMMAN,ANITA
ElseIf LCase(uname) = "user2" The
uname = "THAI ,HERB
ElseIf LCase(uname) = "user3" The
uname = "BOGGS,JIM E
ElseIf LCase(uname) = "user4" The
uname = "MAXA ,ROB C
End I
'MsgBox unam
Sheets("sheet4").Visible = Tru
Sheets("sheet4").Selec
Set pt = ActiveSheet.PivotTables(1
Set pf = pt.PivotFields("Series"
Application.ScreenUpdating = Fals
Application.DisplayAlerts = Fals
On Error Resume Nex
With pt.PivotFields("Series"
pf.AutoSort xlManual, pf.SourceNam
For Each pi In pf.PivotItem
pi.Visible = Fals
If pi.Value = uname The
pi.Visible = Tru
End I
Next p
pf.AutoSort xlAscending, pf.SourceNam
End Wit
Application.DisplayAlerts = Tru
Application.ScreenUpdating = Tru
Sheets("sheet4").Visible = Fals
'============================================================
The issue is : when user1 opens this book (first user to open this book), it looks at 'GRUMMAN, ANITA'. When user2 opens this book, user2 should only look at 'THAI, HERB' , but it also brings up GRUMMAN,ANITA. But the code works OK, if I mad
user2 to look at any name that is alphabetically before the GRUMMAN, ANITA name in the sequence or list of pivot items ...
like any name staring with F,E,D,C,B or A.
I would really appreciate your input on this
thank
Kana