Açılan Kutu Kullanımı+Makro Atama

[zahek]

Merhabalar,

Öncelikle belirtmek isterimki forumunuz oldukça güzel ve yaralı bir oluşum.Ellerinize sağlık diyor ve ben de bu işlerin acemisi olarak ilk sorumu sormak istiyorum.
Ekte bulunan dosyada ufak bir tablo var ve veri süz ayarlı.
Yapmak istediğim şey ise;
1-tablo üzerinde bulunan "açılan kutu" vasıtasıyla örneğin "A" sütünundaki değerleri "açılan kutu" içerisinde görmek ve seçtiğim isme göre;ilgi ili ismin tüm satırlarını tablo da görmektir.
Yani kısaca veri süzü açılan kutu ile yapmak istiyorum.
2-Diğer bir konu ise bu açılan kutudan isim seçtiğimde bunu aynı zamanda bir makroya nası bağlayabilirim.

Bunları basit birer örnekle anlatabilirseniz çok yardımcı olacaksınız.

Şimdiden teşekkürler...

 

[Recep İpek]

Bende .rar olmadığı için isteklerinize göre küçük bir örnek yaptım.

Makro I1'deki açılan kutuya göre süzme işlemi yapmaktadır.

Eğer açılan kutuda boş bir veriyi seçerseniz tüm kayıtları gösterir.

Umarım işinize yarar.

 

[Merhum İdris SERDAR]

Dosyanız ekte.

 

[Kemal Demir]

Sn.Zahek

Öncelikle Forumumuza Hoş Geldiniz.

Ek'te İsteklerinize yakın birşey yolluyorum umarım işinizi görür.

 

[zahek]

Öncelikel hepinize çok teşekkür ederim.Tüm örnekleriniz de gatey güzel ve yararlı.Tam olarak istediğim Sn. yurttaş sizin ki idi.

Peki bir şey daha sorsam fazla mı olur acaba.Bunların içerisindeki kodların yapılmasını yahut bu dosyayı nasıl bu hale getirdiğinizi nasıl öğrenebilirim.
örneğin açılır ka,utu nasıl hücre içerisinde ya da bu vba kodlarını nasıl anlarım ve kendim de yapabilirim...
Konu ile ilgili bakmamı tavsiye edeceğiniz başlıklar var mı?


Teşekkür ederim.

 

[Merhum İdris SERDAR]

1. ComboBox1_Change olayına aşağıdaki kodu yazıyorsunuz.

Bu kod ComboBox1'de meydana gelen değişiklikle AutoFilter'ı (Otomatik Süz) tetikler ve Field1'e göre süzer.

Private Sub ComboBox1_Change()
Dim ADI As Variant
On Error Resume Next
ADI = ComboBox1.Value
Set ALAN = Range("A3:e65000").Find(What:=ADI)
Application.Goto Reference:=Range(ALAN.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & ComboBox1.Value & "*"
If ADI = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

2.ComboBox1'in Properties'ine (Özellikler) girip, ListFillRange'ına hangi sütun aralığından veri alınacaksa o yazılır. örneğn bu dosyada veri!A4:A500 aralığı verilmiş.

 

[oborahan]

Selamlar,

Anlatılanlardan combo box yapmayı artık öğrendim;
Sorum ise; bir sonraki kayıt için ne yapmalıyım

 

[zahek]

Yardımlarınızdan dolayı teşekkür ederim.

 

[kutlayozbilgin]

iyi günler benim bir sorum olacak comboboxda sayfaları seçmek ve seçilen sayfaya texboxla veri yazmak istiyorum ama yapamıyorum saygılarımla

 

[Orion1]

iyi günler benim bir sorum olacak comboboxda sayfaları seçmek ve seçilen sayfaya texboxla veri yazmak istiyorum ama yapamıyorum saygılarımla

Merhaba.
Ekli dosyayı inceleyiniz.

 

[chevmet]

paylaşımlarınız için teşekkür ederim

 

[trexerkan]

Arkadaşlar mrb. Aşağı açılan kutu ile veri süzdüğümüzde açılır kutudaki gösterilebilir değer sayımız 1000 oluyor. bunu 10.000 e arttırma olasılığımız var mıdır?Yada aynı mantıkla combobox ile veri süzebilir miyim?Yardımcı olur musunuz?

 

[herseyysensin]

açılan kutu daki secenekleri diger syafalara nasıl yöndiriyoruz bilen varsa yardımcı olabilir mi ?