Değiştirilen verileri yanlış sayfaya aktarıyor

[yavuz829]

Merhaba arkadaşlar ekli dosyamı ilk açtığım zaman Sayfa1 açılıyor ve müşteri bilgilerine giriş butonuna tıklayıp UserFormu açıyorum. ListBox'daki verileri tıklayarak TextBoxlara alıp verilerde değişiklik yapiyorum. Değiştir butonuna tıkladığım zaman Veri sayfasında seçilen satırı değiştireceğine Sayfa1'e kayıt yapıyor. Yeni veri girip kaydet dediğim zaman sorun çılarmiyor. Verileri değiştirdiğim zaman sorun çıkarıyor. Bu konuda yardım ederseniz sevinirim.

 

[suleyman242]

Merhaba arkadaşlar ekli dosyamı ilk açtığım zaman Sayfa1 açılıyor ve müşteri bilgilerine giriş butonuna tıklayıp UserFormu açıyorum. ListBox'daki verileri tıklayarak TextBoxlara alıp verilerde değişiklik yapiyorum. Değiştir butonuna tıkladığım zaman Veri sayfasında seçilen satırı değiştireceğine Sayfa1'e kayıt yapıyor. Yeni veri girip kaydet dediğim zaman sorun çılarmiyor. Verileri değiştirdiğim zaman sorun çıkarıyor. Bu konuda yardım ederseniz sevinirim.

Private Sub CommandButton3_Click()
.
.
ListBox1.RowSource = ""
[COLOR="Red"][B]Sheets("veri").Select[/B][/COLOR]
Cells(sat, 2).Value = TextBox1
Cells(sat, 3).Value = TextBox2
Cells(sat, 4).Value = TextBox3
.
.

kırmızı renkli kodu o şekilde ilave et (37. satır)

 

[yavuz829]

Çok, çok teşekkürler hocam ellerinize sağlık.

Hocam değiştirme yaptığımız zaman TextBox2,TextBox3,TextBox4 ve TextBox5 boş olduğu zaman da değişiklik yapalir mi? Eğer oluyorsa yazdığım TextBox'lardaki boş geçilmez şartlarını kaldırmak istiyorum.

 

[suleyman242]

Çok, çok teşekkürler hocam ellerinize sağlık.

Hocam değiştirme yaptığımız zaman TextBox2,TextBox3,TextBox4 ve TextBox5 boş olduğu zaman da değişiklik yapalir mi? Eğer oluyorsa yazdığım TextBox'lardaki boş geçilmez şartlarını kaldırmak istiyorum.

'If TextBox[COLOR="Red"][B]?[/B][/COLOR].Text = "" Then

'Dim j As Long
'For a = 1 To 5
'If Controls("Textbox" & a) = "" Then
'MsgBox "VERİ GİRİŞİ EKSİKTİR"
'Exit Sub
'End If
'Next

şartları kaldırarak kayıt yapabilirsin veri olmadanda değişiklik yapılabilir

 

[yavuz829]

If Controls("Textbox" & a) = "" Then eski kod

If TextBox?.Text = "" Then yeni kod

Hocam yukarıdaki kodu aşağıdaki kod ile değiştirdim kod çalışmadı. Kod kırmızıya dönüştü.

 

[suleyman242]

If Controls("Textbox" & a) = "" Then eski kod

If TextBox?.Text = "" Then yeni kod

Hocam yukarıdaki kodu aşağıdaki kod ile değiştirdim kod çalışmadı. Kod kırmızıya dönüştü.

? işareti hangi textbox ı değiştirmek istiyorsan o anlamda söyledim
3 için textbox3
4 için textbox4
...
gibi

 

[yavuz829]

Hocam ListBox'lar boş olduğu zaman değişiklik yapıyor. Bu seferde ilk açılışta Sayfa1 de müşteri bilgilerine giriş butonuna tılkayıp açılan UserForm'da verileri değiştirmek istediğimiz zaman aşağdaki kod hatasını verdi

Cells(sat, 2).Value = TextBox1

 

[yavuz829]

Çok teşekkürler hocam.

 

[suleyman242]

Çok teşekkürler hocam. Hocam çok yardımcı oldunuz. Bizim gibi acemilerle uğraşmak zordur bilirsin. Yazdığınız kodları bazen değiştirmesini bile beceremiyoruz. Ondan sonra kod çalışmıyor diyoruz.

Bende teşekkür ederim Kolay gelsin.