Combobox'da seçileni başka hücreye yazdırmak

[Muratmax]

Merhaba Excel de form dan combo box oluşturuyorum

Sonra bir sütuna alt alta Ali Veli Ahmet yazıp comboboxtan bunları ilişkilendiriyorum

Sonra combobox veri diyip alttaki kodları giriyorum ama B1 hücresine birşey gelmiyor

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Ali" Then [B1] = "3"
If ComboBox1.Text = "Veli" Then [B1] = "6"
If ComboBox1.Text = "Ahmet" Then [B1] = "9"
End Sub

yapmak istediğim combo baxtaki ismi seçince belirlenen hücreye karşısındaki veriyi yazsın , mesela ahmet seçince gidip b1 e 9 yazsın, nerede yanlış yapıyorum ?

 

[muygun]

Merhaba;

Private Sub ComboBox1_Change()
[B1] = ""
If Controls("Combobox1") = "Ali" Then [B1] = 3
If Controls("Combobox1") = "Veli" Then [B1] = 6
If Controls("Combobox1") = "Ahmet" Then [B1] = 9
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[Muratmax]

Merhaba;

Private Sub ComboBox1_Change()
[B1] = ""
If Controls("Combobox1") = "Ali" Then [B1] = 3
If Controls("Combobox1") = "Veli" Then [B1] = 6
If Controls("Combobox1") = "Ahmet" Then [B1] = 9
End Sub

Şeklinde deneyin.
İyi çalışmalar.

teşekkürler cevap için ama form dan combo oluşturup , input range den seçiyorum
ama view code diyince

Sub DropDown1_Change()

End Sub

çıkıyor , bunu activex denmi yapmam gerek ?

 

[muygun]

Merhaba;
Sorununuzu anlamadım ama eki inceleyince sanırım anlaşılır olacak.
ComboBox zaten bir seçim hücresi... (Neden İnput ile ayrıca seçim yapıyorsunuz?)
İyi çalışmalar.

Link:
http://s3.dosya.tc/server6/fdsbov/bobox_da_secileni_baska_hucreye_yazdirmak.zip.html