combobox ta satır doluysa alta aktarma

[tete58]

arkadaşlar aşağıdaki kodda userform üzerinde bulunan combobox ile veri aktarımı yapıyorum lakin seçtiğim veri hep b8 hücresine atıyor veri ekleyeceğim tablo b8 de başlayıp b28 de bitiyor kısaca her veri eklememde b8 dolu ise b9 a oda doluysa b10 a atacak şekilde olsun istiyorum yardım ederseniz sevinirim

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Range("b8").Value = ComboBox2
End Sub

 

[fireman64]

Aşağıdaki kod işinizi görecektir.

Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
Range("b8").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.Value = ComboBox2.Value
End Sub

 

[Orion1]

Buyurun.

Dim sat As Long
sat = Sheets("Sayfa1").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Sayfa1").Range("b" & sat).Value = ComboBox2

 

[tete58]

Arkadaşlar Çok teşekkür ederim vaktinizi ayırdınız saolun