açılır liste problemim

[mpinal]

ben bir açılır liste yapmayı becerdim içine istediğim verileri yerleştirdim ancak istediğim bir veriyi tıkladığımda örneğin o veriyi a1 hücresine yazmasını istiyorum siteyi çok aradım combox ile bile nasıl yapıldığını öğrendim ama çok karmaşık oldu ve istediğim gibi olmadı yardımcı olursanız sevinirim teşekkürler

 

[mesuttasar]

Sorunuzu doğru anladıysam eğere kod şu şekilde olmalı (Userform Üzerinde Combobox varsa)

Private Sub Combobox1_Change ()
Range("A1")=ComboBox1.Value
End Sub

Ayrıca açılır listeyi excel sayfasında oluşturduysanız örneğin D1 hücresinde ise A1 hücresine =D1 formülünü yazmanız gerekir.

 

[Orion1]

ben bir açılır liste yapmayı becerdim içine istediğim verileri yerleştirdim ancak istediğim bir veriyi tıkladığımda örneğin o veriyi a1 hücresine yazmasını istiyorum siteyi çok aradım combox ile bile nasıl yapıldığını öğrendim ama çok karmaşık oldu ve istediğim gibi olmadı yardımcı olursanız sevinirim teşekkürler

Örnek dosya ekleyiniz.

 

[mpinal]

mesuttasar kardeşim teşekkür ederim

Sorunuzu doğru anladıysam eğere kod şu şekilde olmalı (Userform Üzerinde Combobox varsa)

Private Sub Combobox1_Change ()
Range("A1")=ComboBox1.Value
End Sub

Ayrıca açılır listeyi excel sayfasında oluşturduysanız örneğin D1 hücresinde ise A1 hücresine =D1 formülünü yazmanız gerekir.

sn mesuttasar dediğinizi daha önceden yaptım ve oldu forumlardan bulmuştum fakat ben Remzi Kuyugöz diye bir beyin hazırladığı bir vizite programını gördüm ve bunun mantığımı hemen hemen çözdüm ve aynı mantığı başka bir programda kullanabilirim diye düşündüm benim asıl amacım liste kutusundan seçtiğim bir veriyi örneğin a1 hücresine gönderip düşey ara komutunu kullanarak kişiye ait bilgileri ekrana taşıyabilmek tabiki bu işi bilen arkadaşlarımızın örnek programlarını inceledim ama bana göre fazla profesyonel onların daha basitini öğrenerek kendim yapmak istiyorum ilginize teşekkür ederim.

 

[mpinal]

orion2

Örnek dosya ekleyiniz.

ilginize teşekkür ederim örnek dosyamı ekledim

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[mpinal]

teşekkür

Ekli dosyayı inceleyiniz.

ilgilenen bütün arkadaşlara teşekkürler özellikle orion2 ye sorunumu hallettim