sayfa isimlerini comboya aktarma

[bllyldz]

formumda 1 ad combo 1 ad tektbox ve bir ad commandbutton var.command butuna basıldığında tekstbox a girilen yazı ile aynı adı taşıyan bir sayfa eklenmesini istiyorum ve kaç adet çalışma sayfası varsa bunları comboya aktarmak istiyorum.comboya tıklandıgında ise hangi sayfa seçilmişse aktif hale gelsin istiyorum.eğer mümkünse örnek bir kod veya ipucu yazabilirmisiniz.Teşekkürler.İyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki kodları userformun kod sayfasına kopyalayın.

Private Sub ComboBox1_Click()
Sheets("" & ComboBox1).Select
End Sub
 
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
On Error GoTo 10
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = TextBox1
ComboBox1.Clear
UserForm_Initialize
Exit Sub
10 Sheets(Sheets.Count).Delete
MsgBox "Aynı isimde sayfa mevcuttur"
End Sub
                                  
Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[bllyldz]

sn leventm

tam aradığım kodu yazmışsınız.çok teşekkür ediyorum.İyi çalışmalar.