User Form Üzerinde Sayfa Sekmesi açmak istiyorum

[musaagac]

Arkadaşlar User Form1 üzerine birtane textbook ve bir tane butun var. text kutucuğuna yazmış olduğum isimden sayfa1 deki şablonun aynısını text kutucuğundan ki isimle açmasını istiyorum nasıl yapabilirim

 

[Murat OSMA]

Sitede bu konuda onlarca örnek ve kod mevcuttur. Aramanızı öneririm...

Bu arada Gümüşhane'ye, özellikle de Kelkit'e selamlar.

 

[musaagac]

Bulamadığımdan yazdım Murat Bey

 

[Murat OSMA]

Peki Musa Bey,

Şu kodları bir deneyiniz;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub CommandButton1_Click()
    Dim i As Integer
    If TextBox1.Value = "" Then
        MsgBox "Sayfa Adını Yazmadınız.."
        Exit Sub
    End If
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = TextBox1.Value Then
            MsgBox "Bu İsimde Bir Sayfa Var.."
            Exit Sub
        End If
    Next i
    Sheets("[COLOR="Red"][B]Sayfa1[/B][/COLOR]").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = TextBox1.Value
    MsgBox "İstediğiniz sayfa açılmıştır"
End Sub[/FONT][/SIZE]

Not: Sayfa ismini kendinize göre düzeltiniz...

 

[musaagac]

Açmış olduğum sayfa sekmelerini ListBox ta nasıl gösterebilirim

 

[Murat OSMA]

Deneyiniz...

[SIZE="2"][FONT="Trebuchet MS"]dim syf as worksheet
for each syf in worksheets
listbox1.additem syf.name
next syf[/FONT][/SIZE]

 

[musaagac]

Göstermedi Sayfa sekmelerini Listbox ta

 

[Murat OSMA]

Göstermesi gerek. Kodları nasıl ve nerede kullandınız ?

 

[musaagac]

Tmm gösterdi Sağolun tşk. Ederim. Şimdi Listbox listesinde ilgilinin Üstüne geldiğimde onun sekmesi açılsın. Yani seçtiğimde onun sekmesine User Form üzerinde bir kaç yere veri kayıt yapacağım

 

[musaagac]

Cevap yok mu arkadaşlar

 

[Murat OSMA]

Bugünün Pazar olduğunu hatırlatırım... Mâlûm, herkes evinde bilgisayar başında değil...

Bu kodu deneyiniz...

[SIZE="2"][FONT="Trebuchet MS"]Private Sub ListBox1_Click()
    Sheets(ListBox1.Value).Select
End Sub[/FONT][/SIZE]

Bkz: http://www.excel.web.tr/f53/biraz-daha-ozenli-ve-sabyrly-davranmak-hakkynda-t25986.html

 

[musaagac]

Buda Son isteğim ListBox'un Üst Kısmına TextBox kutucuğu koydum orada ListBox listesinin içindeki bilgilerin kısada bulmak istiyorum mesala
ListBox Listesi Çok uzun ben bunun içinde Textbox a M yazdığımda M ile başlayanları göstersin

 

[Murat OSMA]

Şimdiye kadar verdiğim cevaplara bir teşekkür bile etmediniz.

Lütfen son isteğiniz için sitede arama yapınız; "textbox ile listboxta arama" yazabilirsiniz.
Bulamazsanız google'da "textbox ile listboxta arama" yazıp arayın, cevabını mutlaka bulacaksınız...

İyi akşamlar.

 

[musaagac]

Bilgileriniz için tşk ederim. aslında en sonunda edecektim. bittiğinde. Size sormadan önce formda arama yapıyorum bulamadığımdan dolayı soruyorum. Ayrıca Açtığım sayfayı nasıl sileceğim.