combobox ile sayfa seçme

[hurkanpisirici]

merhabalar ekte olan dosyada bir userform açtım ve bir tane de combobox bu dosyada abcd sayfalarım var benim istediğim bu sayfa isimleri comboboxta çıksın ve ben hangi sayfyı seçersem o sayfa açılsın?

ilgilenen arakadaşlara teşekkür ederim

 

[hurkanpisirici]

sayın evren hocamın bir örneğini buldum teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Value).Select
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "menü" Then
        ComboBox1.AddItem syf.Name
    End If
Next
'If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

End Sub

 

[hurkanpisirici]

hocam sizi burada yakalmışken bir soru daha.

örneğin bir textboxum var ve ben bu textbxa hürkan yazdım ve kaydete bastım hürkan diye bi sayfa nasıl açtırabilirim yani textboxa sayfa adını yazıp butona basınca o isimde bi sayfa eklemesini istiyorum

 

[Orion1]

Dosyanız hazır.

Private Sub CommandButton1_Click()
Dim sayf As Worksheet
syf = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
If syf = "" Then Exit Sub
For Each sayf In Worksheets
    If syf = UCase(Replace(Replace(sayf.Name, "ı", "I"), "i", "İ")) Then
        MsgBox syf & " İsimli sayfa var kayıt yapılmadı..!!", vbCritical, "DİKKAT"
        Exit Sub
    End If
Next
Sheets.Add , Sheets(Sheets.Count)
Worksheets(Worksheets.Count).Name = syf
MsgBox syf & " İsimli Sayfa Oluşturuldu..!!", vbOKOnly + vbInformation, "SAYFA"
End Sub

 

[hurkanpisirici]

sayın evren bey elinize yüreğinize sağık cari lerle ilgili bişey oluşturuyorumda o kadar işime yaradıki teşekür ederim

 

[Orion1]

sayın evren bey elinize yüreğinize sağık cari lerle ilgili bişey oluşturuyorumda o kadar işime yaradıki teşekür ederim

Rica ederim.
İyi çalışmalar.

 

[hurkanpisirici]

ama bi sorun var tabiki açtığım sayfalar hep aynı formatta olması gerek dimi peki kopyalama kodu nedir mesela mesela hazırladığım boş bir sayfayı benim verdiğim isimle açtırabilirmiyiz?

 

[Orion1]

ama bi sorun var tabiki açtığım sayfalar hep aynı formatta olması gerek dimi peki kopyalama kodu nedir mesela mesela hazırladığım boş bir sayfayı benim verdiğim isimle açtırabilirmiyiz?

Sheets("A").range("A1:E100").copy
range("A1").pastespecial

 

[hurkanpisirici]

mükemmelsiniz nasıl teşekkür etsem az sizin bu cevaplarınızı bu kadar hızlı vermeniz müemmel bişey çok teşekkür ederim iyi akşamlar

 

[Orion1]

mükemmelsiniz nasıl teşekkür etsem az sizin bu cevaplarınızı bu kadar hızlı vermeniz müemmel bişey çok teşekkür ederim iyi akşamlar

İyi akşamlar.

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir