user form gizlenmesi

[yener11]

Merhaba Arkadaşlar aşağıdaki kod ile userformdaki CommandButton ile seçtirdiğim sayfa ve hücreye gidiyor ama user form ekranı açık kalıyor.

CommandButton tıklandığında ilgili sayfa ve hücreye gidecek bu işlem bunu yapabiliyorum user form gizlemeyi bilmiyorum ana sayfaya dön düğmesi tıklandığında user form açılacak benim sayfa açtırdığım kod aşağıda diğer işlemi yaptırabilecek kod varmı?

Private Sub CommandButton1_Click()
Dim ts
Set ts = Sheets("BÜTÇE GİRİŞİ")
ts.Visible = True
ts.Select
ts.Range("S7").Select
End Sub

Şimdiden teşekkür ederim.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Private Sub CommandButton1_Click()
Dim ts
Set ts = Sheets("BÜTÇE GİRİŞİ")
ts.Visible = True
ts.Select
ts.Range("S7").Select
[COLOR="Red"]Me.Hide[/COLOR]
End Sub

Ana sayfanın kod bölümüne

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

 

[yener11]

Çok Teşekkür Ederim işe yaradı..