Activex combobox nesnesi ile veri getirme

[erd5334]

arkadaşlar ödünç sayfama eklediğim combobox tan seçtiğim veriye göre istediğim satırların aşağıya doğru dolmasını istiyorum. örnek dosyayı ekledim. eğer form denetimi olsa idi oradan çözebiliyordum ama bu combobox biraz kafamı karıştırdı. çözüm öneren arkadaşlara şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Sayfa1'in kod bölümüne aşağıdaki kodu kopyalayıp deneyiniz, size fikir verecektir.

Private Sub ComboBox1_Change()
s = Me.Cells(Rows.Count, "A").End(3).Row + 1
Me.Cells(s, 1) = Me.ComboBox1.Column(0)
Me.Cells(s, 2) = Me.ComboBox1.Column(1)
Me.Cells(s, 3) = Me.ComboBox1.Column(2)
End Sub

 

[erd5334]

Merhaba,
Sayfa1'in kod bölümüne aşağıdaki kodu kopyalayıp deneyiniz, size fikir verecektir.

Private Sub ComboBox1_Change()
s = Me.Cells(Rows.Count, "A").End(3).Row + 1
Me.Cells(s, 1) = Me.ComboBox1.Column(0)
Me.Cells(s, 2) = Me.ComboBox1.Column(1)
Me.Cells(s, 3) = Me.ComboBox1.Column(2)
End Sub

teşekkür ederim hocam.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...