Verileri Değiştirme Sorunu

[yavuz829]

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.

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

 

[muratboz06]

ActiveCell.Offset(0, 3).Value = ComboBox3.Value
satırını
ActiveCell.Offset(0, 3).Value = TextBox3.Value
olarak değiştiriniz.

 

[yavuz829]

Hocam Porgramda ComboBox3 var

 

[Korhan Ayhan]

On Error Resume Next satırı sebep oluyordur. Bu komut güzel gibi görünse de böyle sıkıntılara sebep olmaktadır.

 

[yavuz829]

On Error Resume Next satırı sildiğimiz zaman kod hata veriyor. Aşağıdaki şekilde değiştiriyorum işlem yapıyor. Ancak değişiklik yaptığı zaman rakamları metin olarak değiştiriyor herhalde değiştirdiğimiz rakamlar toplamlara 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
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

 

[Korhan Ayhan]

Bu satırı kullanmayı alışkanlık haline getirirseniz hata kontrollerini yönetmeyi öğrenemezsiniz.

Kod yazmak herkesin harcı değildir...

 

[yavuz829]

Hocam zaten kod yazmasını bilseydik yardım istemezdik.

Hocam yukarıdaki kodları nasıl değiştirmem lazım. verileri ListBoxtan textBoxlara alıp değiştirmek için.

 

[Korhan Ayhan]

@yavuz829,

Projeye başlamadan önce uygulamalı excel eğitimi başlığı altındaki konuları inceleyip bol bol pratik yapılması çok faydalı olacaktır. Forumda bolca örnek var. Biraz arama yapıp incelemek ve zaman harcamak gerekiyor.