Combobox'ta seçilen değerin karşılığını label'a yazmak

[winstoncash]

Arama yaptım ama işime yarayacak çözümü bulamadım, varsa affola. Ekteki formda combobox'tan bir değer seçtiğimde excel'de onun karşılığı olan değeri düşeyara ile combobox yanındaki label'a yazdırmak istiyorum. bunun için nasıl formül yazmalıyım?

 

[Ömer]

Merhaba,

Örnek dosya ekler misiniz.

 

[winstoncash]

Merhaba,

Örnek dosya ekler misiniz.

Dosyayı ekledim. Combobox'ta listelenecek değerler Sayfa4 A Sütununda, seçildiğinde Label23'e yazmak istediğim değerse B sütununda. şimdiden teşekkürler.

 

[Ömer]

Deneyiniz.

Private Sub ComboBox1_Change()
    Label23.Caption = Sheets("Sayfa4").Range("B" & ComboBox1.ListIndex + 1)
End Sub

 

[winstoncash]

Deneyiniz.

Private Sub ComboBox1_Change()
    Label23.Caption = Sheets("Sayfa4").Range("B" & ComboBox1.ListIndex + 1)
End Sub

Tam istediğim oldu, ellerinize sağlık.

 

[winstoncash]

son bir sorum daha var. combobox'taki değere göre birim ağırlığı sağ tarafa yazdırdım. alttaki textbox'a uzunluk yazınca da birim ağırlıkla çarpıp toplam kısmına yazdırıyorum. fonksiyon güzel çalışıyor ama textbox içindeki değeri silince hata penceresi açılıyor. istiyorum ki uzunluk textox'ı boş ise toplam'a sıfır yazsın ama hata penceresi çıkmasın. aşağıdaki kodu yazdım, o değeri silince toplam 0 oluyor ama yine de hata penceresi çıkıyor. nasıl çözebilirim?

Private Sub kosebentuzunluk_Change()
If kosebentuzunluk.Value = "" Then Label25 = 0
Label25 = Label23 * kosebentuzunluk
End Sub

 

[Ömer]

Deneyiniz.

Private Sub kosebentuzunluk_Change()
    If kosebentuzunluk.Value = "" Then
        Label25 = 0
        Exit Sub
    End If
    Label25 = Label23 * kosebentuzunluk
End Sub