Ekleme

[ggggiz]

Arkadaşlar sol tarafta isim listesi var ben buradan bir isim seçebiliyorum fakat daha sonra seçtiğim ismi tabloya aktarmak için hangi VBA kodunu kullanarak aktarabilirm.
Net anlatabilmek için örnek koyuyorum

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then Exit Sub
sat = Cells(Rows.Count, "H").End(xlUp).Row + 1
Cells(sat, "H").Value = ComboBox1.Value
End Sub

 

[bilalege]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then Exit Sub
sat = Cells(Rows.Count, "H").End(xlUp).Row + 1
Cells(sat, "H").Value = ComboBox1.Value
End Sub

sat = Cells(Rows.Count, "H").End(xlUp).Row + 1

Bu kod dısında nasıl bişy uygulayabilirim
When While olur mu

 

[ggggiz]

sat = Cells(Rows.Count, "H").End(xlUp).Row + 1

Bu kod dısında nasıl bişy uygulayabilirim
When While olur mu

Yardıma Çok İhtiyacm Var