değiştir kodlarında uyarlama sorunu...:)

[bulentc76]

arkadaşlar değiştirme kodunu uyarlayamadım...yardım edermmisiniz acaba...

kodlar bunlar not : a ve g sutünlarında bulunan veriler 7 textboxa çağrılarak değişiklik yapılıyor.il satırda başlıklar var bu yüzden a2 ve g 2 den başlıyor veriler.şimdiden yardımcı olanlara teşekkürederim.

Private Sub CommandButton7_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
ListBox1.RowSource = "a2:g" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[GAYSERİLİ]

sn. bulentc76, bir örnek dosya eklerseniz yardımcı olabileceğime inanıyorum.

 

[bulentc76]

örnek dosyam ektedir

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:425418befc]Private Sub CommandButton7_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
for a=1 to 7
Cells(sonsat, a) = controls("TextBox" & a)
next
ListBox1.RowSource = "a2:g" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub[/vb:1:425418befc]

 

[bulentc76]

bu kodlar sorunumu çözdü.foruma ancak girme fırsatı bulabildim.
ilginize çok teşekkürederim.çok sağolun