combobox verileri kaydırıyor

[enes2000eren]

comboboxtan veriyi seçip değişiklik yaptıktan sonra değiştir dediğimde verileri kaydırıyor.

 

[enes2000eren]

arkadaşlar değiştir dediğimde verileri kaydırıyor.yardım edebilecek birisi lütfen yardım etsin

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub DEĞİŞTİR_Click()
    'DEĞİŞTİR
    On Error Resume Next
    Degistirilecek_Satir = FİRMA.ListIndex + 2
    Sheets("KAYIT").Range("B" & Degistirilecek_Satir).Value = TextBox1.Text
    Sheets("KAYIT").Range("C" & Degistirilecek_Satir).Value = TextBox2.Text
    Sheets("KAYIT").Range("D" & Degistirilecek_Satir).Value = TextBox3.Text
    Sheets("KAYIT").Range("E" & Degistirilecek_Satir).Value = TextBox4.Text
    Sheets("KAYIT").Range("F" & Degistirilecek_Satir).Value = TextBox5.Text
    Sheets("KAYIT").Range("G" & Degistirilecek_Satir).Value = TextBox6.Text
    Sheets("KAYIT").Range("H" & Degistirilecek_Satir).Value = TextBox7.Text
    Sheets("KAYIT").Range("I" & Degistirilecek_Satir).Value = TextBox8.Text
    Sheets("KAYIT").Range("J" & Degistirilecek_Satir).Value = TextBox9.Text
    Sheets("KAYIT").Range("K" & Degistirilecek_Satir).Value = TextBox10.Text
    
    TextBox11 = (TextBox9 * TextBox10 / 10000)
    Sheets("KAYIT").Range("L" & Degistirilecek_Satir).Value = TextBox11.Text
    Sheets("KAYIT").Range("M" & Degistirilecek_Satir).Value = TextBox12.Text
    Sheets("KAYIT").Range("N" & Degistirilecek_Satir).Value = TextBox13.Text
    Sheets("KAYIT").Range("O" & Degistirilecek_Satir).Value = TextBox14.Text
    Sheets("KAYIT").Range("P" & Degistirilecek_Satir).Value = TextBox15.Text
    Sheets("KAYIT").Range("Q" & Degistirilecek_Satir).Value = TextBox16.Text
    
    TextBox17 = (TextBox11 * TextBox12)
    Sheets("KAYIT").Range("R" & Degistirilecek_Satir).Value = TextBox17.Text
    
    TextBox18 = TextBox17 * 1.18
    Sheets("KAYIT").Range("S" & Degistirilecek_Satir).Value = TextBox18.Text
    Sheets("KAYIT").Range("T" & Degistirilecek_Satir).Value = TextBox19.Text
    
    TextBox20 = (TextBox18 - TextBox19)
    Sheets("KAYIT").Range("U" & Degistirilecek_Satir).Value = TextBox20.Text
    
    Workbooks("REKLAM.XLSM").Save
    MsgBox "DEĞİŞTİRİLDİ -TUNCAY REKLAM", , "KAYIT"
End Sub

 

[enes2000eren]

sayın korhan ayhan denedim ama sadece b sütununu yani simleri değiştiriyor.diğerlerini değiştirmiyor.hata textboxlarda değil veriler değşmiyor.ve sürekli 1 sütun kayıyor.