Otvaranje hide Sheet-ova dugmetom

Odgovori Nova tema

3 odgovora
2.923 pregleda

Otvaranje hide Sheet-ova dugmetom 07.08.2013. u 20:01 · pre 161 mesec #1

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.

Pregled.xlsx15.54k

Re: Otvaranje hide Sheet-ova dugmetom 07.08.2013. u 20:47 · pre 161 mesec #2

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

Re: Otvaranje hide Sheet-ova dugmetom 07.08.2013. u 20:53 · pre 161 mesec #3

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.

Pregled.xlsx18.28k

Re: Otvaranje hide Sheet-ova dugmetom 07.08.2013. u 22:17 · pre 161 mesec #4

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme