UserForm ile kayıtlı sayfa ismini açma

[leylaz]

Userform1 ile ComboBox1 içeriğine kayıtlı sayfa isimlerini çekiyorum. Bu isimlerden seçtiğim birini butona bastığımda açılmasını istiyorum. Butona hangi kodlar eklenmeli?

 

[antonio]

Belirleyeceğiniz butonun kodlarına aşağıdaki satırı ekleyin:

If ComboBox1 = "" Then Exit Sub
Sheets(ComboBox1.Value).Activate

 

[leylaz]

Teşekkürler kodlar bu haliyle çalışıyor.

Bir sorum daha olacak bu comboBox ta görünen isimler ile value değerleri farklı olabilir mi?

Yani her ikisi için farklı bir liste kullanabilir miyim?

 

[fireman64]

if komutu ile yapabilirsin örnekteki gibi

If ComboBox1 = "" Then Exit Sub
if combobox1.value ="Ahmet" then
Sheets("Mehmet").Activate
End if

 

[leylaz]

if komutu ile yapabilirsin örnekteki gibi

If ComboBox1 = "" Then Exit Sub
if combobox1.value ="Ahmet" then
Sheets("Mehmet").Activate
End if

Son bir soru daha.Ben Ad yöneticisine tanımladığım isimler listemi comboBox ın RowSource kısmına isimler yazarak çekiyorum. Value değerleri içinde ad yöneticisine tanımladığım Meyve adlı listemi nasıl ilişkilendireceğim?
Örnek dosya ekte
http://s5.dosya.tc/server3/fhhd6m/deneme22.rar.html

 

[fireman64]

ComboBox1.RowSource = "veriler"

 

[leylaz]

Beceremedim ne yazık ki! Görünen kısımlar isimler listemden değerleri ise meyve listemden çekecek şekilde kodları eklemeniz mümkün ya da verdiğim örnek üzerinde yapabilir misiniz?

Ne yazık ki kod bilgim çok zayıf

 

[fireman64]

Dosyanız buradadır.

 

[leylaz]

Dosyanız buradadır.

İlginiz için teşekkür ederim. İsimleri ve değerleri elle girmişsiniz. İçerik değişken olacağı için listeyi belli hücre aralıklarından ya da Ad Yönetisine tanımladığım listeden çekmek istiyorum.

 

[fireman64]

Comboboxtaki rowsource kaynağını silin.

Sayfadaki tüm kodları silip bunları ekleyin ad tanımlamanıza gerek yoktur.

Private Sub ComboBox1_Change()
Sheets(ComboBox1.List(ComboBox1.ListIndex, 1)).Activate
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "75;0"
ComboBox1.RowSource = "isimler!c5:d" & [isimler!d60].End(3).Row
End Sub

 

[leylaz]

fireman64 teşekkür ederim.

 

[kadriguler]

Üst kısımda özel menü olarak (command bar) ekleyerek combobox'u , sayfalar combobox içinde listelenir ve sayfalar arasında daha rahat gezilebilir.

[YOUTUBE]https://www.youtube.com/watch?v=qdqmL2ynM9M[/YOUTUBE]


Şablonun videosu :https://www.youtube.com/watch?v=qdqmL2ynM9M

Örnek dosya için tıklayın

 

[leylaz]

Private Sub ComboBox1_Change()
Sheets(ComboBox1.List(ComboBox1.ListIndex, 1)).Activate
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "75;0"
ComboBox1.RowSource = "isimler!c5:d" & [isimler!d60].End(3).Row
End Sub

fireman64 belirlediğimiz aralıktaki boş hücrelerin görünmesini engellememiz mümkün mü? Yani ne kadar değer varsa listenin o kadar genişlemesi mümkün mü?

 

[vardar07]

Örnek dosya ekte inceleyiniz.

deneme22.rar

 

[leylaz]

Örnek dosya ekte inceleyiniz.

deneme22.rar

Üstad hızır gibisin.

 

[vardar07]

Estağfirullah biz öğrendiğimizi uygulayıp yardımcı olmaya çalışıyoruz. Kolay gelsin.