combobox kullanim hakkinda

[pevlike]

combbox daki personel listesini secmemiz halinde secilen personelin sheet1 deki ait oldugu siraya sheet 2 den cagirilarak otomatik yazilmasi hk.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
SON = Cells(65536, "A").End(3).Row + 1
Cells(SON, "A") = ComboBox1
End Sub

 

[pevlike]

Sayin Hicdurmaz ek olarak son bir sorsam?farkli isimleri ard arda yazabiliyor ama ayni yazdiramiyorum bu nedenle ayni ismi ismi ard arda yazmanin imkani varmidir?
Ilgilinize ve yardiminiza cok tesekkur ederim..

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
SON = Cells(65536, "A").End(3).Row + 1
Cells(SON, "A") = ComboBox1
[A2:A1000].Sort KEY1:=[A2], ORDER1:=xlAscending
End Sub