Userform ile sayfalar arası geçiş

[Yesilyurtlu]

Ekli dosya da sayfalar arası geçiş düğmesi ile Açılan form da kaç tane sayfa oluşturulacaksa o kadar sayfa adını "Eğer mümkünü varsa sayfa adı değiştirildiğinde ya da yeni sayfa eklendiğinde otomotik alabilecek şekilde" seçtiğimizde seçilen sayfaya gitmesi mümkün mü?

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Value).Select
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Worksheets
    Me.ComboBox1.AddItem sh.Name
Next
End Sub

 

[Yesilyurtlu]

Evren Uzmanım
Teşekkür Ederim Hakkını Helal Et

 

[Yesilyurtlu]

Evren Uzmanım;

Private Sub Worksheet_Activate()
Sheets("EKDERS BANKA").Select
Unprotect
Selection.AutoFilter Field:=1, Criteria1:="1"
Protect
End Sub
----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Sayfa Kodunda yukarıdaki kod mevcut. sayfa geçiş yaptığım zaman otomotik koruma altına alınıyor. Formun bu korumalı sayfa da çalışması için yardımcı olabilir misiniz?




Form Korumalı sayfada da çalışması için ne yapabilirim

 

[Orion1]

forumda initialize olayına activesheet.unprotect
quaryclose olayınada activesheet.protect yazın.

 

[Yesilyurtlu]

ÜSTAD Allah sizden Razı Olsun

 

[Orion1]

ÜSTAD Allah sizden Razı Olsun

Rica ederim.
İyi çalışmalar.

 

[Gold_Savt]

düğmenin yerini oynatamıyorum, kopyalayamiyorum da.
aynı düğmeden diğer sayfalarada ekleyecektim.

 

[İhsan Tank]

düğmenin yerini oynatamıyorum, kopyalayamiyorum da.
aynı düğmeden diğer sayfalarada ekleyecektim.

merhaba
sayfadaki buton commanbutton bunu taşımak için önce tasarım modunu açmalısın - sonra sağ tuş kopyala - diğer sayfaya yapıştır - tasarım modunu kapatmalısın.
ve sayfanın kod bölümünde bulunan kod'u diğer sayfanın kod bölümüne yapıştırmalısın.
kolay gelsin