combox'a kod yazamadım!

[kambozlu]

" 1.COMBOX " kutusunda seçtiğim veriyi kaydet dediğimde B1 sütununa
" 2.COMBOX " kutusunda seçtiğim veriyi kaydet dediğimde C1 sütununa
" 3.COMBOX " kutusunda seçtiğim veriyi kaydet dediğimde D1 sütununa

NASIL KODLARIM ? herkese iyi akşamlar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. İlgili sütunlarda ilk boş hücreye veriyi kayıt eder.

Private Sub CommandButton1_Click()
    Set SD = Sheets("data")
    SD.Cells(SD.[B65536].End(3).Offset(1).Row, 2) = ComboBox1
    SD.Cells(SD.[C65536].End(3).Offset(1).Row, 3) = ComboBox2
    SD.Cells(SD.[D65536].End(3).Offset(1).Row, 4) = ComboBox3
    SD.Select
    Set SD = Nothing
    Unload UserForm1
End Sub

 

[kambozlu]

teşekkürler korhan bey.halloldu.