Sevkiyat fişlerinde güncelleme hatası veriyor

[beyaz34]

excel wb tr günaydın.

 

[beyaz34]

İyi aksamlar güncelleme sevkiyat için hazırladığım excelde güncelleme yapamıyorum iyi çalışmalar.

 

[Levent Menteşoğlu]

Güncelle butonuna ilk satır olarak aşağıdaki kodu ilave edin. Kod içinde sat değişkenine değer atamamışsınız.

sat = ListBox1.ListIndex + 3

 

[beyaz34]

Hocam kusura bakma ilave ettim ama güncellerken farklı seyler yazıyor.

 

[Levent Menteşoğlu]

Güncelle butonundaki kodu aşağıdaki ile değiştirin.

[vb:1:c2c86278cb]Private Sub CommandButton5_Click()
sat = ListBox1.ListIndex + 3
ListBox1.RowSource = ""
Cells(sat, "b") = Format(CDate(TextBox1), "dd.mm.yyyy")
Cells(sat, "c") = ComboBox1
Cells(sat, "d") = TextBox2
Cells(sat, "e") = ComboBox2
Cells(sat, "f") = ComboBox3
Cells(sat, "g") = TextBox3
Cells(sat, "h") = TextBox4
Cells(sat, "i") = TextBox5
UserForm_Initialize
ListBox1.ListIndex = sat - 3
End Sub[/vb:1:c2c86278cb]

 

[beyaz34]

Hocam çok teşekkürler.