Değiştir Makrosu

[alptun20]

Bir UserForm üzerindeki Listbox'dan nesnelere çektiğim verileri aşağıdaki kod yardımıyla değiştirme işlemi yapıyorum, ancak kod a sütunundaki veriyi düzeltiyor ama diğer sütunlardaki veriyi değiştirmiyor. Mantıksal olarak bir hata bulamadım. Sorun ne olabilir veya elinde alternatif kod olan varmı. Yardımlar için şimdiden teşekkürler.

Saygılarımla..

Private Sub CommandButton64_Click()
Sheets("ŞAHIS").Select
ActiveCell.Offset(0, 0).Value = TextBox1.Text
ActiveCell.Offset(0, 1).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 4).Value = TextBox5.Text
ActiveCell.Offset(0, 5).Value = TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text
ActiveCell.Offset(0, 7).Value = TextBox8.Text
ActiveCell.Offset(0, 8).Value = TextBox9.Text
ActiveCell.Offset(0, 9).Value = ComboBox1.Text
ActiveCell.Offset(0, 10).Value = TextBox10.Text
ActiveCell.Offset(0, 11).Value = ComboBox2.Text
ActiveCell.Offset(0, 12).Value = ComboBox3.Text
ActiveCell.Offset(0, 13).Value = ComboBox4.Text
ActiveCell.Offset(0, 14).Value = ComboBox5.Text
ActiveCell.Offset(0, 15).Value = ComboBox6.Text
ActiveCell.Offset(0, 16).Value = ComboBox7.Text
ActiveCell.Offset(0, 17).Value = ComboBox8.Text
ActiveCell.Offset(0, 18).Value = TextBox11.Text
ActiveCell.Offset(0, 19).Value = TextBox12.Text
ActiveCell.Offset(0, 20).Value = TextBox13.Text
ActiveCell.Offset(0, 21).Value = TextBox14.Text
ActiveCell.Offset(0, 22).Value = TextBox15.Text
ActiveCell.Offset(0, 23).Value = CheckBox1.Value
ActiveCell.Offset(0, 24).Value = TextBox16.Text
ActiveCell.Offset(0, 25).Value = TextBox17.Text
ActiveCell.Offset(0, 26).Value = ComboBox9.Text
ActiveCell.Offset(0, 27).Value = CheckBox2.Value
ActiveCell.Offset(0, 28).Value = CheckBox3.Value
ActiveCell.Offset(0, 29).Value = CheckBox4.Value
ActiveCell.Offset(0, 30).Value = CheckBox5.Value
ActiveCell.Offset(0, 31).Value = CheckBox6.Value
ActiveCell.Offset(0, 32).Value = CheckBox7.Value
ActiveCell.Offset(0, 33).Value = CheckBox8.Value
ActiveCell.Offset(0, 34).Value = CheckBox9.Value
ActiveCell.Offset(0, 35).Value = CheckBox10.Value
ActiveCell.Offset(0, 36).Value = ComboBox10.Text
ActiveCell.Offset(0, 37).Value = CheckBox11.Value
MsgBox "Kayıt Düzeltildi"
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Değişecek verileri listboxtan seçiyorsanız değiştir kodunun başına ekleyiniz

ListBox1.ListIndex = -1

 

[alptun20]

Ziya Hocam Teşekkür Ederim hemen deniyorum.

Birde bu kodun ne anlama geldiğini açıklarmısınız. Böylelikle balık vermiş değil balık tutmayı öğretmiş olursunuz. Tekrar teşekkür ederim. Saygılarımla.