Açılır listeye link eklemek! yardım

[osmanbatur]

merhaba arkadaşlar;

ekte bir dosya ekledim dosya içerisinde ayrıntılı olarak yazdım.doğrulam yöntemiyle bir açılır kutu hazırladım kutudaki listemde altı tane isim var bu isimler sayfa sekmelerine bir bağlantı kurarak hangi isim seçilmiş ise direk o sekmeye gidecek bu şekilde olması mümkün mü eğer mümkün ise size zahmet nasıl yapacağım konusunda bana yardımcı olabilirmisiniz...

 

[İhsan Tank]

merhaba arkadaşlar;

ekte bir dosya ekledim dosya içerisinde ayrıntılı olarak yazdım.doğrulam yöntemiyle bir açılır kutu hazırladım kutudaki listemde altı tane isim var bu isimler sayfa sekmelerine bir bağlantı kurarak hangi isim seçilmiş ise direk o sekmeye gidecek bu şekilde olması mümkün mü eğer mümkün ise size zahmet nasıl yapacağım konusunda bana yardımcı olabilirmisiniz...

eki inceler misiniz
kullanılan makro Syn: Evren Gizlen Uzman'a Aittir. kendisine Teşekkür Ederim.

 

[osmanbatur]

hocam size ve Evren Gizlen Uzman beye yardımlarınızdan dolayı çok teşekkür ederim.

yanlız şunu belirtmek isterimki veri doğrulama yöntemiyle yaptığımız açılır pencere tam istediğim gibi olmuş ama nasıl yapıldğı konusunda bir bilgi vermemişsiniz ben baya uğraştım beceremedim rica etsem bunun nasıl yapıldğı konusunda yardım edermisiniz.

birde formlardan açılan pencere ekledim bu pecereyeda ayı şekilde link vermemiz mümkün mü bu konuda değerli vaktinizi ayırabilirseniz Müteşekkir Olurum..
yardımlarınız için teşkkürler...

 

[sonsuzkalp]

selamlar

dikkat ederseniz evren hocam b2 de açılır kutuyu yapmıs ama sizin listeniz b7 de makroda b7 olarak düzeltirseniz sorun çözülür sanırsam

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

burdaki b2 yi değiştirirseniz sizin listeye göre sorun çözülür yani b7 yaparsanız
iyi calısmalar

 

[sonsuzkalp]

selamlar

dikkat ederseniz evren hocam b2 de açılır kutuyu yapmıs ama sizin listeniz b7 de makroda b7 olarak düzeltirseniz sorun çözülür sanırsam

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

burdaki b2 yi değiştirirseniz sizin listeye göre sorun çözülür yani b7 yaparsanız
iyi calısmalar

 

[İhsan Tank]

merhaba
ek'teki dosyayı inceleyin ve sayfanın kod bölümüne bakınız
kod açıklamalarını bilmiyorum ondan dolayı yardımcı olamayacağım

 

[osmanbatur]

ihsan hocam kod açıklamaları okadar önemli değil sayfalar arasında nasıl geçit veriyorsunuz. ben onu öğrenmek istiyorum bir türlü çözemedim.
benim amacım açılır kutu yapmak ve diğer sayfalara geçit vermek istiyorum. bunu nasıl yapacağım...

 

[osmanbatur]

hocam tamam halletim çok teşekkürler...

 

[İhsan Tank]

hocam tamam halletim çok teşekkürler...

rica ederim
iyi çalışmalar :mutlu:

 

[herseyysensin]

nasıl yaptıgını anlatabilir mizin acil lazım.şimdiden tşk ederim

 

[İhsan Tank]

nasıl yaptıgını anlatabilir mizin acil lazım.şimdiden tşk ederim

öncelikle anlatayım
sayfa isimlerini bir sütuna yazın.
örneğin
5 tane sayfanız olsun bir'i ana sayfa
anasayfa'nın A sütununa sekme adlarını yazın
a1 : Sayfa1
a2 : Sayfa2
a3 : Sayfa3
a4 : Sayfa4
a5 : Sayfa5
gibi
B1 hücresinde veri - doğrulama - liste'yi seçin
kaynak kısmına

=$A$1:$A$[COLOR="Red"]5[/COLOR]

bunu yazın ardından tamam deyin.
hücrede liste seçeneği açılacak. anasayfa yazan yer' ( sekme üzerine ) sağ tuş kod görüntüleyi seçin. ve

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[COLOR="red"]B1[/COLOR]]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

bu kod'u yapıştırınız.
ardından B1 hücresinde çıkan listeden bir sayfa adı seçin.
kolay gelsin.
Kırmızı yerleri kendinize göre ayarlayınız.
yapamazsanız örnek dosya ekleyiniz.

 

[herseyysensin]

ihsan hocam kod açıklamaları okadar önemli değil sayfalar arasında nasıl geçit veriyorsunuz. ben onu öğrenmek istiyorum bir türlü çözemedim.
benim amacım açılır kutu yapmak ve diğer sayfalara geçit vermek istiyorum. bunu nasıl yapacağım...

nasıl yaptıgını anlatabilir misin

 

[herseyysensin]

Cok teşekkür ederim peki yaptıgım bu sayfalar arasındaki linki acılan kutuya nasıl yapabilirim

 

[İhsan Tank]

Cok teşekkür ederim peki yaptıgım bu sayfalar arasındaki linki acılan kutuya nasıl yapabilirim

bunu anlayamadım
eğerki istediğimiz diğer sayfalardan Sayfa1'i seçmek ise
bu link işinizi görebilir.
yok görmedi derseniz.
kitabınızın kod bölümünde bulunan Thisworkbook bölümüne

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name = "Genel" Then Exit Sub
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Sheets("Sayfa1").Select
Range("B1").Select
End Sub

bu kodu yapıştırınız.
herhangi Bir Sayfanın A1 hücresine Çift tıklarsanız. otomatik Sayfa1'e ve B1 Hücresine Geçer.

 

[herseyysensin]

tekrar teşekkür ederim. çok sagolun..
excelde ödev hazırlıyorum da takıldıgım yerlerde soru sorabilirim degil mi.

 

[İhsan Tank]

tekrar teşekkür ederim. çok sagolun..
excelde ödev hazırlıyorum da takıldıgım yerlerde soru sorabilirim degil mi.

soru sormak herkesin hakkı bu hakkı kimsenin elinden almıyor site yönetimi.
yalnız burada dikkat etmeniz gerekn farkı soruları aynı konu başlığı altında sormamanız gerekmekte. lütfen bu kurala dikkat ediniz.
rica ederim
kolay gelsin :mutlu:

 

[herseyysensin]

hani bu isimleri ayrı yarı sayfaya yönlendirdik ya dedigniz kodlarla.. siz bunu calışmanızda başka acılır kutuyla daha yapmışsınız.. peki onu nasıl yaptıgnızı anlatır mısınız..
veridoğrulama_ve_açılan_pencere - ihsan tank bu uygulamada yaptıgnız gibi.

 

[İhsan Tank]

hani bu isimleri ayrı yarı sayfaya yönlendirdik ya dedigniz kodlarla.. siz bunu calışmanızda başka acılır kutuyla daha yapmışsınız.. peki onu nasıl yaptıgnızı anlatır mısınız..
veridoğrulama_ve_açılan_pencere - ihsan tank bu uygulamada yaptıgnız gibi.

kitap'da bir adet açılır liste eklemişim. ( combobox ) buna ad tanımlamasını eklemişim
kod olarak ta

Sub Açılan4_Değiştir()
Worksheets(Açılan4_Değiştir).Select
End Sub

bunu eklemişim

 

[herseyysensin]

kitap'da bir adet açılır liste eklemişim. ( combobox ) buna ad tanımlamasını eklemişim
kod olarak ta

Sub Açılan4_Değiştir()
Worksheets(Açılan4_Değiştir).Select
End Sub

bunu eklemişim

aynen sizin dedigniz gibi acılır kutu ekledim. daha sonra

Sub Açılan4_Değiştir()
Worksheets(Açılan4_Değiştir).Select
End Sub

bu dedigniz kodu yazdım. bide acılır kutunun üzerinde sag tıklayıp denetim biçimlendirden listeyi sectim. ama olmadı nerde yanlışlık yapıyorum acaba

 

[İhsan Tank]

aynen sizin dedigniz gibi acılır kutu ekledim. daha sonra

Sub Açılan4_Değiştir()
Worksheets(Açılan4_Değiştir).Select
End Sub

bu dedigniz kodu yazdım. bide acılır kutunun üzerinde sag tıklayıp denetim biçimlendirden listeyi sectim. ama olmadı nerde yanlışlık yapıyorum acaba

kusura bakmayın
ben onu commanbutton ile yapmışım commanbutton eklemek için lütfen tıklayın
ekledikten sonra sağ tuş tıklayın. properties - listfilRange -

A1:A5

bunu yazın.
ve sayfanın kod bölümüne

Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
End Sub

bu kodu yazın ve Tasarım Modunu kapatarak işlem sayfa seçiniz.