Açılan Kutu Kontrolü

[muzaffer26]

Arkadaşlar sorunumu anlatabilmek için ekteki dosyamı oluşturdum. Sadece 3 adet makro oluşturdum,bu makrolar sayfalar arasında dolaşmak için. Acaba çok sayıda sayfadan oluşan ve her sayfa için makro oluşturduğumuz böyle bir dosyada bu işi "açılan kutu kontrolü" ile yaptırabilirmiyiz. Yani "açılan kutu" yu tıklayıp listede Sayfa2 ve Sayfa3 görünsün onlardan herhangi birine tıkladığımda o(tıkladığım) sayfaya gidebileyim. İlgilenirseniz çok sevinirim. Çünkü bu şekilde çok sayfadan oluşan büyük bir excell dosyam var buna uygulamam gerekiyor.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[muzaffer26]

Sayın :Seyit Tiken ve Evren Gizlen arkadaşlar ikinizin ilgisi içinde çok teşekkür ederim. İkinizin çözümlerini de çok beğendim,tam işimi görecek cinsten. Sağolun çok makbule geçti.

 

[Orion1]

Sayın :Seyit Tiken ve Evren Gizlen arkadaşlar ikinizin ilgisi içinde çok teşekkür ederim. İkinizin çözümlerini de çok beğendim,tam işimi görecek cinsten. Sağolun çok makbule geçti.

Rica ederim.
İyi çalışmalar.

 

[muzaffer26]

Evren Gizlen arkadaş sizin yolladığınız dosyadaki açılır kutuyu nasıl yaptınız hiç bir şekilde açılır kutuya müdahele edemiyorum. Normalde açılır kutunun üzerine gelip sağ tıklayıp denetim biçimlendiri tıklayıp yapılış şeklini göremiyorum. Yoksa sadece makro olarak visual basic ile mi yaptınız ben bunu kendi dosyama nasıl uyarlıyacağım. Biraz bana bu konuyu açarsanız sevinirim.

 

[Orion1]

Excel'in toolbarın olduğu bölgeye sağ tıklayın.Formları eklediğiniz liste karşınıza çıkacaktır.Oradan VisulaBasic seçin.Ve toolBara ekleyin.
Denetim araç kutusuna tıklayın.Çıkan nenelerden bir tanesini seçin masa üstüne çizin.Nesneyi sayfaya eklemiş oldunuz.Sonra Üçgen (gönye) şeklindeki icona(Tasarım modu)na tıklayın nesnenin üzerine çift tıklayın Ve vbe açılacak kodları yazmaya başlayabilirisini.
Sonra VBE'yi kapatın Sonra yine gönyeye basıpı tasarım modundan çıkın.Nesneniz çalışmaya hazırdır.
Kolay gelsin.

 

[muzaffer26]

Şimdi daha güzel anlaşıldı tekrar teşekkür ederim.:hihoho:

Excel'in toolbarın olduğu bölgeye sağ tıklayın.Formları eklediğiniz liste karşınıza çıkacaktır.Oradan VisulaBasic seçin.Ve toolBara ekleyin.
Denetim araç kutusuna tıklayın.Çıkan nenelerden bir tanesini seçin masa üstüne çizin.Nesneyi sayfaya eklemiş oldunuz.Sonra Üçgen (gönye) şeklindeki icona(Tasarım modu)na tıklayın nesnenin üzerine çift tıklayın Ve vbe açılacak kodları yazmaya başlayabilirisini.
Sonra VBE'yi kapatın Sonra yine gönyeye basıpı tasarım modundan çıkın.Nesneniz çalışmaya hazırdır.
Kolay gelsin.

 

[Orion1]

Şimdi daha güzel anlaşıldı tekrar teşekkür ederim.:hihoho:

Rica ederim.
Kolay gelsin.

 

[muzaffer26]

Problem Bitmedi

İyi günler şimdi gene yeni bir problem daha çıktı. Sizden başka da soracak kimsem yok.Umarım beni hoş görürsünüz. Daha önceki problemimde açılan kutu yardımıyla bütün sayfalara gidebilmeyi anlatmıştınız fakat problem burada başlıyor. Diyelimki bir dosyamız var ve 6 sayfadan oluşuyor, sayfa isimleri (1,2,3) ve diğer üç sayfanın ismide (A,B,C) Şimdi ben öyle bir şey istiyorum ki iki tane açılan kutu olsun ve bu kutunun birisinde (A,1,2) diğer kutuda da (B,C,3) olsun. yani sayfaların tamamını bir tek kutuda değilde birden fazla kutuda gösterebilmeyi istiyorum. Ekteki dosya üzrinde gösterirseniz sevinirim. İyi çalışmalar.

 

[Orion1]

Dosyanız ekte.

Sub auto_open()
Call combo1: Call combo2
End Sub
Sub combo1()
myarr = Array("A", "1", "2")
Sheets("2").ComboBox1.Clear
For i = 0 To 2
    Sheets("2").ComboBox1.AddItem myarr(i)
Next
Sheets("2").ComboBox1.ListIndex = 0
End Sub
Sub combo2()
myarr = Array("B", "C", "3")
Sheets("2").ComboBox2.Clear
For i = 0 To 2
    Sheets("2").ComboBox2.AddItem myarr(i)
Next
Sheets("2").ComboBox2.ListIndex = 0
End Sub

 

[muzaffer26]

Evren Gizlen kardeş hakkınızı nasıl ödiyeceğim bilmiyorum. Hemen kodlarınızı kullanmaya başlıyacağım çok çok çok teşekkürler ederim. İyi çalışmalar.

 

[muzaffer26]

Evren Gizlen kardeş ekteki dosyayı aldım ama çalışmıyor bir yerinde bir eksiklik filanmı var. Rica etsem bir kez daha kontrol edermisiniz.

 

[Orion1]

Evren Gizlen kardeş ekteki dosyayı aldım ama çalışmıyor bir yerinde bir eksiklik filanmı var. Rica etsem bir kez daha kontrol edermisiniz.

Dosya bende gayet güzel çalışıyor.
Dosyayı ekliyorum.
Hat veriyorsa dosyayı ekleyin ve hata veren satırı yazınız.

 

[muzaffer26]

Çok hayret edilecek bir şey doğrusu kodlarınızı adımlattırıyorum hata veren satır yok fakat çalışmıyor.Ekteki filmi izleyin lütfen.

 

[Orion1]

Konu şimdi anlaşıldı.
Siz istenilen sayfaların listelenmesini istemişsiniz.Bende listeleme yaptırdım.
Ama video filminde gördümki siz comboboxlara tuklayınca o sayfaya gitsin istiyorsunuz.
Dosyayı düzenledim.

 

[muzaffer26]

Konu şimdi anlaşıldı.
Siz istenilen sayfaların listelenmesini istemişsiniz.Bende listeleme yaptırdım.
Ama video filminde gördümki siz comboboxlara tuklayınca o sayfaya gitsin istiyorsunuz.
Dosyayı düzenledim.

Hah şimdi tam istediğim gibi oldu. Demekki eksik ifade kullandığımdan anlaşamadık. Neyse sizi bugün yeteri kadar üzdüm ama istediğim sonunda oldu inanın ne kadar sevindim bilemezsiniz. Çok teşekkürler. Hoşçakalın:hihoho:

 

[Orion1]

Hah şimdi tam istediğim gibi oldu. Demekki eksik ifade kullandığımdan anlaşamadık. Neyse sizi bugün yeteri kadar üzdüm ama istediğim sonunda oldu inanın ne kadar sevindim bilemezsiniz. Çok teşekkürler. Hoşçakalın:hihoho:

Rica ederim.
İyi çalışmalar.