Combobox'tan seçime göre Hücrelere veri aktarılması

[DeliBalta58]

Açıklama dosya içinde mevcut.

Combobox'tan yapılan seçime göre hücrelere veri getirilmesi

=DÜŞEYARA(C6;EN2:ER999;1;0) formülünün
combobox'tan çıktıktan sonra formül girilmeden ilgili hücreye getirilmesi

Private Sub ComboBox1_Click()
ComboBox1.ColumnWidths = "400"
ComboBox1.ColumnCount = 144
For i = 2 To Sayfa1.Range("EN999").End(xlUp).Row
ComboBox1.AddItem Sayfa1.Cells(i, 144)
Next
End Sub

Private Sub ComboBox1_Change()
Range("C6") = ComboBox1
End Sub

yapmaya çalıştığım

Range("C6") = ComboBox1

C6 Hücresine Combobox değeri atanırken diğer hücrelerere ilgili verilerin formülsüz olarak getirilmesi

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Private Sub ComboBox1_Click()
With ComboBox1
.ListFillRange = "EN2:EN50"
 Cells(7, "P") = Cells(.ListIndex + 2, "EN")
 Cells(8, "P") = Cells(.ListIndex + 2, "EO")
 Cells(9, "P") = Cells(.ListIndex + 2, "EP")
 Cells(10, "P") = Cells(.ListIndex + 2, "EQ")
 Cells(11, "P") = Cells(.ListIndex + 2, "ER")
 Cells(12, "P") = Cells(.ListIndex + 2, "ES")
End With
End Sub

 

[DeliBalta58]

Hata verdi. Resmi Ekte.

 

[hamitcan]

Combobox1 nesnesi için yazılmış bir kodu, Combobox2 nesnesi için kullanmak istemenizden kaynaklanıyor olmalı.Kodu verdiğim şekilde kullanmayı denyin.

 

[DeliBalta58]

Sayın uzmanım. Cevabınızı yeni fark ettim. Kusuruma bakmayınız.Teşekkürler. Sorun Çözüldü.

 

[SanaLSukuL]

Sn. hamitcan güzel bir örnek teşekkür ederim.
Saygılar.....

 

[PHÖNİX1]

güzel tebrikler