textboxda girdiğim verileri kaydetme

[ildizim]

excelden listbox aldıgım kayıtlarda düzeltme yapmak için texboxa alıyorum
textboxda düzeltiyorum. buraya kadar sorunum yok
fakat tex boxda düzeltiğim verileri excelde ilgili tarıra yazdıramıyorum ekteki kodları kullanıca aktif hücreden başlıyor. yardımlarınızı rica ederim saygılar.

Private Sub CommandButton2_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub

ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = TextBox3.Text
ActiveCell.Offset(0, 4) = TextBox4.Text
ActiveCell.Offset(0, 5) = TextBox5.Text
ActiveCell.Offset(0, 6) = TextBox6.Text
ActiveCell.Offset(0, 7) = TextBox7.Text
ActiveCell.Offset(0, 8) = TextBox8.Text
ActiveCell.Offset(0, 9) = "AÇIK"

MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi düzenleyin.

Private Sub CommandButton2_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
[B][COLOR=blue]listbox1.rowsource=""[/COLOR][/B]
ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = TextBox3.Text
ActiveCell.Offset(0, 4) = TextBox4.Text
ActiveCell.Offset(0, 5) = TextBox5.Text
ActiveCell.Offset(0, 6) = TextBox6.Text
ActiveCell.Offset(0, 7) = TextBox7.Text
ActiveCell.Offset(0, 8) = TextBox8.Text
ActiveCell.Offset(0, 9) = "AÇIK"
[B][COLOR=blue]listbox1.rowsource="buraya veri aldığınız kodu yazın"
[/COLOR][/B]MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[ildizim]

TeŞekkÜrler