Değişikliği kaydet sorunu...

[manly]

Ekte gönderdiğim dosya açıldığında Sipariş Numarasını girip bir veri çağırdığımızda o veri üzerinde ilaveler eklediğimiz varsayalım bunu Değişiklikleri Kaydet butonuna bastığımızda yapmasını istediğim bir kod istiyorum...


Eskiden bu kod vardı ama sorunlar yaşıyorum..



If TextBox1.Text = Empty Then MsgBox "Sipariş No Boş", , "Sezer ÇAY": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Sıra No Boş.", , "Sezer ÇAY": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Stok No Boş.", , "Sezer ÇAY": Exit Sub

sat = TextBox2.Text + 1

Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("2011 SİPARİŞLER").Select
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
Cells(sat, "I") = TextBox9.Value
Cells(sat, "J") = TextBox10.Value
Cells(sat, "K") = TextBox11.Value
Cells(sat, "L") = TextBox12.Value
Cells(sat, "M") = TextBox13.Value
Cells(sat, "N") = TextBox14.Value
Cells(sat, "O") = TextBox15.Value
Cells(sat, "P") = TextBox16.Value
Cells(sat, "Q") = TextBox17.Value
Cells(sat, "R") = TextBox18.Value
Cells(sat, "S") = TextBox19.Value
Cells(sat, "T") = TextBox20.Value
Cells(sat, "U") = TextBox21.Value
Cells(sat, "V") = TextBox22.Value
Cells(sat, "W") = TextBox23.Value
Cells(sat, "X") = TextBox24.Value
Cells(sat, "Y") = TextBox25.Value
Cells(sat, "Z") = TextBox26.Value

 

[manly]

İhsan hocam yardımlarınızı bekliyorum...

 

[manly]

Yeni bir kod yazabilirmiyiz...

 

[manly]

Ekte gönderdiğim dosya açıldığında Sipariş numarasını gir denen yere mesela kayıtlarda olan 560-Y23-1006 sipariş numarasını girelim... Ekrana kayıt gelecek burada herhangi bir değişiklik yaptığımızı düşünelim... İstediğim Değişikliği kaydetmesi için Kaydet Butonuna bir makro yazarak yapmak istiyorum... Yardımlarınızı bekliyorum...