Kayıt değiştirme

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodlarla UserForm1 Üzerindeki TextBox lar ile sayfaya kayıt yaptırıyorum

ListBox üzerinde kayıtları seçtiğimde TextBox larada alabiliyorum.

Kayıt seçiliyken üzerinde değişiklik yaptığımda yeni kayıt giriyor.

Değiştir butonu ekledim fakat çalıştıramadım.

Kayıt butonu kodları aşağıdaki şekilde

değiştir butonu için nasıl bir kod kullanmam gerekir acaba?

Şimdiden teşekkür ederim

Herkese iyi çalışmalar.



Private Sub CommandButton1_Click()
On Error Resume Next


son = Sheets("SAYFA1").[a65536].End(3).Row

Sheets("SAYFA1").Cells(son + 1, 1) = TextBox1.Value
Sheets("SAYFA1").Cells(son + 1, 2) = TextBox2.Value
Sheets("SAYFA1").Cells(son + 1, 3) = TextBox3.Value
Sheets("SAYFA1").Cells(son + 1, 4) = TextBox4.Value
Sheets("SAYFA1").Cells(son + 1, 5) = TextBox5.Value
Sheets("SAYFA1").Cells(son + 1, 6) = TextBox6.Value
Sheets("SAYFA1").Cells(son + 1, 7) = TextBox7.Value


UserForm_Initialize

End Sub

 

[Orion1]

Örnek dosya ekleyiniz.

 

[teksen]

Dosyayı ekledim Sn.Orion2

Teşekkür ederim

 

[teksen]

Arkadaşlar bu konuda yardımcı olabilecek birileri varmı acaba?

 

[talatcd]

değiştir

1. satırı başlık gibi düşünerek değiştirmedim 2. sıradan itibaren textboxlara seçilen kayıtları değiştirir. dosya ektedir.
Kolay gelsin yinede bir sorun olursa yardımcı oluruz.

 

[mesuttasar]

1. satırı başlık gibi düşünerek değiştirmedim 2. sıradan itibaren textboxlara seçilen kayıtları değiştirir. dosya ektedir.
Kolay gelsin yinede bir sorun olursa yardımcı oluruz.

Kayıt değiştirmiyor üstat.Bi daha konrol edermsin.Birde excel sayfasını görüntüleyemiyoruz mümkünse kodlara bakabilirmiyiz?

 

[talatcd]

kontrol edecem

şu an işlerim var en kısa zamanda kontrol edecem.

excel sayfasının gözükmesi için ThisWorkBook un kod bölümündeki
Application.Visible = False yi
Application.Visible = True yap