Listbox içindeki bilgileri aktarmak lütfen yardım

[serhanefe]

Arkdaşlar resimdede göründüğü gibi listbox içindeki bilgiler
yan taraftaki L4 hücresinden alınıyor...

Ben listboxtan seçilen ürünün fiyatını M sütunundan alıp B.FİYATI kısmında çıkmasını istiyorum...


=EĞER(A5=L4;M4) B.FİYATI stununa bu kodları tek tek ekledim ama =EĞER(A5=L11;M11) e kadar girebildim daha sonrasını kabul etmiyor... 90 tane ürün var, nasıl bir yol izlemem lazım

yardımlarınız için teşekürler

 

[serhanefe]

http://rapidshare.com/files/253068065/Sipari__351__Dosyas__305_2.xls.html

dosya burada arkadaşlar değiştirebilen olursa duacısı olucam

 

[NBATMAN]

ilgili formül aşağıdaki gibidir.
=eğerhata(düşeyara(a5;$l$4:$m$93;2;yanlış);0)

fakat ben office 2007 kullanıyorum bazı uyarı mesajları aldım fyinede sende çalışabilir dosyanıda ekliyorum.Saygılarımla...

 

[unur]

Arkadaşlar tamda bu konuda başlık açacaktım ancak arkadaşımız benden önce davranmış,

Benim sorumda userform üzerinde bir listbox yada combobox var, verileri sayfa1 den a1:a25 arasından alıyor,birde tamam butonu var.Comboboxtaki veriyi tamam butonuna bastığımızda sayfa3 deki f2 hücresine (kodla) nasıl yazdırabiliriz.

Şimdiden teşekkürler.

 

[petrolcumurat]

Aşağıdaki formülü birim fiyat hücresine yazarak denermisiniz lütfen. Aradığınız bu şekilde birşeymiydi bilemiyorum ama c5 hücresine yazın mesala sonra aşaığıya doğru kopyalayın hücreden isim açtığınızda fiyat karşısına gelecektri.

=DÜŞEYARA(A5;$L$4:$M$93;2;0)

 

[unur]

Benim soruma bir cevap yokmu? aynı başlık altında sordum ama farklı bir şey istemiştim
Teşekkürler

 

[halit3]

örnek dosyanı ekle bakalım

 

[unur]

Dosya ektedir yardımcı olursanız sevinirim.

 

[halit3]

aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
Sheets("Sayfa3").Cells(2, 4).Value = ComboBox1.Text
End Sub
Private Sub UserForm_Initialize()
For j = 2 To WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A15"))
ComboBox1.AddItem Sheets("Sayfa1").Cells(j, 1).Value
Next
End Sub

 

[NBATMAN]

istediğiniz işlemi ekteki dosyada örnekledim.Saygılarımla...

 

[NBATMAN]

dosyanız ektedir.lütfen inceleyiniz...

 

[halit3]

tamam bitonununadını sen belirle ben CommandButton1 olarak yaptım kendine uyarla

Private Sub CommandButton1_Click()
Sheets("Sayfa3").Cells(6, 2).Value = ComboBox1.Text
End Sub