ComboBox Seçilen sayfaya gitmek

[polis-53]

Merhaba arkadaşlar UserForm üzerindeki ComboBox a sayfa isimleri var ben hangi sayfayı seçersem o sayfayı açsın istiyorum boyle bir kod varmıdır yardım ederseneniz sevinirim.

 

[hamitcan]

http://www.excel.web.tr/f14/comboboxtan-sheetleri-acma-t11332.html
http://www.excel.web.tr/f48/comboboxa-sayfa-simlerini-aldyrma-sayfaya-gitme-t92468.html

 

[programer]

Aşağıdaki linki incelermisiniz

http://www.excel.web.tr/f48/combobox-le-sayfa-sec-n-zle-ve-yazdyr-t123146.html

 

[polis-53]

çok teşekkür ederim sağolun affınıza sığınarak bir soru daha soracağım benim istediğim bir excel dosyasında 2 adet userform kullanıyorum aşağıda gönderdiğim kodda birinci userformdan kaydettiğim sayfanın 2. satırından 20. satırına kadar kayıt yapıyor burda kısıtlama olmasın 2. userformda 21.satırdan sonra kayıt yaptırıyorum ben şunu istiyorum 1.userformda kayıt ettikten sonra 2. userform sayfada en son dolu satırdan 5 satır atlatarak keydettirmek istiyorum bi yardımcı olabilirseniz çok sevineceğim.
iyi akşamlar.

Private Sub CommandButton1_Click()
On Error Resume Next
Set S1 = ThisWorkbook.Worksheets("" & ComboBox5)

For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("a1:a65536")))
Ara = S1.Range(bak.Offset(0, 0).Address).Value
SAra = S1.Range(bak.Offset(0, 1).Address).Value
If Ara = TextBox1 And SAra = TextBox2 Then

MsgBox "D İ K K A T Bu İsimde Zaten Bir Kayıt Var. Lütfen Başka Bir İsim Giriniz.", vbExclamation, ("Mükerrer Kayıt")
TextBox1.SetFocus
Exit Sub
End If
Next
Sonsatir = S1.Cells(20, "A").End(3).Row + 1
If S1.Range("A20") <> "" Then MsgBox "Girelecek Satır Kalmadı": Exit Sub
If S1.Range("A2") = "" Then Sonsatir = 2
S1.Cells(Sonsatir, "A").Value = Sonsatir - 1
S1.Cells(Sonsatir, "B") = TextBox1.Text
S1.Cells(Sonsatir, "C") = TextBox2.Text
S1.Cells(Sonsatir, "D") = TextBox3.Text
S1.Cells(Sonsatir, "E") = TextBox4.Text
S1.Cells(Sonsatir, "F") = TextBox5.Text
S1.Cells(Sonsatir, "G") = TextBox6.Text
S1.Range("A2:T65536").Select
Selection.Sort Key1:=S1.Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

say = S1.Cells(65536, "A").End(3).Row
For i = 2 To say

Next i
MsgBox ("Verileriniz Kayıt edilmiştir."), vbCritical, ("Veri Kayıt")
Dim lvwItm As ListItem
Set lvwItm = ListView1.FindItem(TextBox1.Text, , , lvwPartial)
n = lvwItm.Index
For tem = 1 To 19
Controls("textbox" & tem) = Empty
Next

TextBox1.SetFocus
End Sub