Kayıt değiştirme butonu ekleyemiyorum

[oralet82]

Selamlar bu siteden edindiğim bilgiler ve dosyalarla kendime excelde bir tablo yapmayı başardım. Ancak tek sorunum tabloda değiştirme işlemi yapamıyorum. Siteden birçok dosya indirdim ancak bu dosyalardaki değiştirme seçeneklerini kendi dosyama uyarlamaya çalıştığım zaman hata veriyor. Bu işlerin duayeni olmuş üstadlar dosyama bi el atabilirlerse sevinirim.

 

[halit3]

kayıt et koduyla aynı yanlızca değişkeni değiştireceksiniz

değişkeni lisrboxdan seçeceksiniz.

sOn = ListBox1.ListIndex + 2

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
If TextBox3.Text <> "" Then
sOn = ListBox1.ListIndex + 2
Sheets("LİSTE").Cells(sOn + 3, "A") = TextBox1.Text
Sheets("LİSTE").Cells(sOn + 3, "B") = TextBox2.Text
Sheets("LİSTE").Cells(sOn + 3, "C") = TextBox3.Text
Sheets("LİSTE").Cells(sOn + 3, "D") = TextBox4.Text
Sheets("GİRİŞ").Select
Sheets("LİSTE").Range("A265536").Sort Sheets("LİSTE").Range("A2")
Application.ScreenUpdating = True
MsgBox "Bilgileri başarı ile girdiniz. Kaydetme işlemi tamamlandı"
Else
MsgBox "Lütfen sicil numarası alanını doldurunuz"
End If
Else
MsgBox "Lütfen isim alanını doldurunuz"
End If
Else
MsgBox "Lütfen soyisim alanını doldurunuz"
End If
End Sub

 

[oralet82]

vermiş olduğunuz değişiklikleri uyguladım ancak program yine aynı şeyi yapıyor kaydı değiştirmek yerine yeni kayıt açıyor. Zahmet veriyorum ama tekrar bi el atabilirmisiniz.

Değiştirdiğim programı tekrar gönderiyorum acaba benmi yanlış yapıyorum

 

[halit3]

vermiş olduğunuz değişiklikleri uyguladım ancak program yine aynı şeyi yapıyor kaydı değiştirmek yerine yeni kayıt açıyor. Zahmet veriyorum ama tekrar bi el atabilirmisiniz.

Değiştirdiğim programı tekrar gönderiyorum acaba benmi yanlış yapıyorum

ListBox1.RowSource özelliğinden olmuyor düzelttim dosyanı kontrol et

 

[oralet82]

Çok teşekkür ederim Halit bey bu kez tam istediğim gibi olmuş. Ellerinize sağlık. İyi çalışmalar.

 

[halit3]

Çok teşekkür ederim Halit bey bu kez tam istediğim gibi olmuş. Ellerinize sağlık. İyi çalışmalar.

iyi çalışmalar