[ mehiho @ 07.08.2013. 19:01 ] @
U prilogu tabela u kojoj je i u Sheet1 i 2 ubaceno dugme koje prebacuje iz jednog sheet-a u drugi, tj nesto kao napred-nazad. Sve to radi kako valja, medjutim kada jedan sheet sakrijem, tj, u hide, makro gubi funkciju, tj, ne mogu se setati medju sheetovima.
Ideja je da postoji jedan glavni sheet, koji ce pomocu dugmeta otvarati druge sheetove, dok ce ti drugi sheetovi biti sakriveni, tj, otvarati se pojedinacno, kako se koji pozove. Naravno prilikom izlaska iz jednog sheeta, isti ce opet biti nevidljiv, dok ce se pozvani otvoriti.
Dakle akcenat je na hide. Moze li se takvo sto uraditi.
[ timmy @ 07.08.2013. 19:47 ] @
Na prvom listu za dugmice koji otvaraju druugi i treci list postavi nesto nalik ovom kodu
Code:

Private Sub Goto2()
    Sheets("Sheet2").Visible = True
    Sheets("Sheet2").Activate
End Sub

Private Sub Goto3()
    Sheets("Sheet3").Visible = True
    Sheets("Sheet3").Activate
End Sub


Na na drugom i trecem listu postavi kod za automatsko sakrivanje listova po njihovom napustanju
Code:

Private Sub Worksheet_Deactivate()
    Sheets("Sheet2").Visible = False
End Sub

Private Sub Worksheet_Deactivate()
    Sheets("Sheet3").Visible = False
End Sub


Pozdrav
[ mehiho @ 07.08.2013. 19:53 ] @
Malo sam izmenio i dobio nesto, medjutim jos uvek nije kako valja. Dakle, sada otvara skriveni sheet, ali taj isti sheet onda ostaje aktivan, tj, takoreci ne nestaje kada se vratim u sheet1. Naravno to ima za posledicu i da excel prilikom izlaska pita za snimanje takvog dokumenta, iako nista nije menjano.
Mislim da sam vrlo blizu, ali na zalost nisam toliko iskusan, te zato trazim pomoc nekog iskusnijeg.
U prilogu izmenjena tabela, gde je sheet2 sakriven.

ps timmy
U istom trenutku smo pisali, no probacu ovo pa cemo videti. U svakom slucaju hvala.
[ mehiho @ 07.08.2013. 21:17 ] @
Reseno.
timmy, hvala veliko na pomoci.

Ukoliko nekome zatreba, kod je:

Code:
Sub Button1_Click()
    Sheets("Sheet2").Visible = True
    Sheets("Sheet2").Activate
End Sub
_______________________________
Sub Button2_Click()
    Sheets("Sheet2").Visible = False
    Sheets("Sheet1").Activate
End Sub