Merhaba arkadaşlar

Eklediği kodlarla ListBox daki satıra çift tıklayarak verileri TextBox lara alarak değiştiriyorum.
TextBoxlarda değiştirdiğim verileri Excel sayfasına doğru aktarıyor. Ancak bazı TextBoxlardaki verileriyi siliyorum TextBox boş olmasına rağmen değiştir butonuna tıkladığımda boş olan TextBoxa karşılık gelen Hücrede eski veri kalıyor.

Örneğin: A1 Açıklama B1 50,00 C1 25,00 rakamı var. Verileri ListBoxtan TextBoxlara alıyorum.
A1 TextBox1 B1 TextBox2 C1 TexBox3 e aktarıyorum.
TextBox1 deki Açıklamayı, Kitap olarak, TextBox2 50,00, 100,00 olarak değiştiriyorum. TexBox3 deki veriyi siliyorum. TextBox3 boş. Değiştir butonuna tıkladığımda,
A1 Hücresindeki veri Kitap, B1 Hücresindeki veri 100,00 olarak değişiyor. TexBox3 boş kaldığı için C1 hücresindeki 25,00 silinmesi gerekirken. Silinmiyor 25,00 olarak kalıyor.

Kodu eklemeniz mümkün mü?

Hocam Kodu Ekledim.

MsgBox "KAYITLAR DEĞİŞTİRİLMİŞTİR." 'InputBox a parola maskesi sonu

satır = ActiveCell.Row

ListBox1.RowSource = ""

On Error Resume Next

ActiveSheet.Unprotect "4455"

ActiveCell.Offset(0, 1).Value = CDate(TextBox1.Value)

ActiveCell.Offset(0, 2).Value = TextBox2

ActiveCell.Offset(0, 3).Value = ComboBox3.Value

ActiveCell.Offset(0, 4).Value = CDbl(TextBox3.Value)

ActiveCell.Offset(0, 5).Value = CDbl(TextBox4.Value)

ActiveCell.Offset(0, 6).Value = CDbl(TextBox5.Value)

ActiveCell.Offset(0, 7).Value = CDbl(TextBox7.Value)

ActiveCell.Offset(0, 8).Value = CDbl(TextBox9.Value)

ActiveCell.Offset(0, 9).Value = CDbl(TextBox11.Value)

ActiveCell.Offset(0, 10).Value = CDbl(TextBox8.Value)



On Error GoTo 0

ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [A65536].End(3).Row

Range("A65535").End(xlUp).Offset(1, 0).Select

Yerine
Gibi yazıp deneyiniz.Diğerleride aynı olacak.Koddaki on error resume nexti kaldırıp deneyince cdbl hatası vardi boş durumlarda.

---

Birde tavsiyem

ActiveCell.Offset(0, 2).Value = TextBox2

yerine

ActiveCell.Offset(0, 2).Value = TextBox2.value

olarak value kullanmanız herzaman için.

Çok teşekkürler Hocam ellerinize sağlık.

Hocam kodları aşağıdaki şekilde değiştirdim. Değişiklikleri doğru yapıyor. Ancak şöyle bir sorun var Rakamları metin olarak mı aktarıyor herhalde değişen rakamlar toplamlarda dahil olmuyor.

MsgBox "KAYITLAR DEĞİŞTİRİLMİŞTİR." 'InputBox a parola maskesi sonu

satır = ActiveCell.Row

ListBox1.RowSource = ""

'On Error Resume Next

ActiveSheet.Unprotect "4455"

ActiveCell.Offset(0, 1).Value = CDate(TextBox1.Value)

ActiveCell.Offset(0, 2).Value = TextBox2

ActiveCell.Offset(0, 3).Value = ComboBox3.Value

ActiveCell.Offset(0, 4).Value = TextBox3.Value

ActiveCell.Offset(0, 5).Value = TextBox4.Value

ActiveCell.Offset(0, 6).Value = TextBox5.Value

ActiveCell.Offset(0, 7).Value = TextBox7.Value

ActiveCell.Offset(0, 8).Value = TextBox9.Value

ActiveCell.Offset(0, 9).Value = TextBox11.Value

ActiveCell.Offset(0, 10).Value = TextBox8.Value

On Error GoTo 0

ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [A65536].End(3).Row

Range("A65535").End(xlUp).Offset(1, 0).Select

Rica ederim.Sayfada formatlayın sütunu.Yada resim olarak atarmısınız toplanmayan yerleri benim gözüme çarpmamıştı dediğiniz.

---

Yasa bilgisayar başına geçince Cdbl yöntemini if ile birleştirip denerim boş ise vs.. şart koşup.