İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
Tüm forum üyelerine iyi bir hafta dilerim.
Userform üzerinden değiştir işlemini aşağıdaki kod ile yapmak istediğimde; verilerim A56 satırından başlıyor ve devam ediyor. Değiştir butonuna bastığımda, TextBox.lardaki yeni veriler A56 dan itibaren başladığı halde sayfada A4 satırına yazmaktadır. Aşağıdaki kodda ne gibi değişiklik yapılabilir.
Private Sub CommandButton2_Click()
sat = ListBox1.ListIndex + 2
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("veri").Select
ListBox1.RowSource = ""
Cells(sat, "a") = TextBox1.Value
Cells(sat, "b") = TextBox2.Value
Cells(sat, "c") = TextBox3.Value
Cells(sat, "d") = TextBox4.Value
Cells(sat, "e") = TextBox5.Value
Cells(sat, "f") = TextBox6.Value
Cells(sat, "g") = TextBox7.Value
Cells(sat, "h") = TextBox8.Value
userform_activate
End Sub
Şimdiden teşekkürler...
Tüm forum üyelerine iyi bir hafta dilerim.
Userform üzerinden değiştir işlemini aşağıdaki kod ile yapmak istediğimde; verilerim A56 satırından başlıyor ve devam ediyor. Değiştir butonuna bastığımda, TextBox.lardaki yeni veriler A56 dan itibaren başladığı halde sayfada A4 satırına yazmaktadır. Aşağıdaki kodda ne gibi değişiklik yapılabilir.
Private Sub CommandButton2_Click()
sat = ListBox1.ListIndex + 2
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("veri").Select
ListBox1.RowSource = ""
Cells(sat, "a") = TextBox1.Value
Cells(sat, "b") = TextBox2.Value
Cells(sat, "c") = TextBox3.Value
Cells(sat, "d") = TextBox4.Value
Cells(sat, "e") = TextBox5.Value
Cells(sat, "f") = TextBox6.Value
Cells(sat, "g") = TextBox7.Value
Cells(sat, "h") = TextBox8.Value
userform_activate
End Sub
Şimdiden teşekkürler...