İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
Userformdaki combo.dan bul ile bulduğum kişilere ait verilerde değişiklik yapmak için aşağıdaki kodu kullanıyorum.
sat = ComboBox1.ListIndex + 1
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select
Cells(sat, "a") = TextBox2.Value
Cells(sat, "b") = TextBox3.Value
Cells(sat, "c") = TextBox4.Value
.......................................
.........................................
Cells(sat, "bh") = TextBox62.Value
Cells(sat, "bı") = TextBox63.Value
UserForm_Activate
End Sub
Değişmesini istediğim bilgiler, liste sayfasının 2. satırından itibaren başlıyor. 1.satırda sütun başlıkları var.
Fakat değiştir butonuna bastığımda, bazen veriler, 1. satıdaki sütun başlıklarını silip üzerine yazmaktadır.
Kodda Ne gibi bir değişiklik uygun olur.
Şimdiden teşekkürler.
Userformdaki combo.dan bul ile bulduğum kişilere ait verilerde değişiklik yapmak için aşağıdaki kodu kullanıyorum.
sat = ComboBox1.ListIndex + 1
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select
Cells(sat, "a") = TextBox2.Value
Cells(sat, "b") = TextBox3.Value
Cells(sat, "c") = TextBox4.Value
.......................................
.........................................
Cells(sat, "bh") = TextBox62.Value
Cells(sat, "bı") = TextBox63.Value
UserForm_Activate
End Sub
Değişmesini istediğim bilgiler, liste sayfasının 2. satırından itibaren başlıyor. 1.satırda sütun başlıkları var.
Fakat değiştir butonuna bastığımda, bazen veriler, 1. satıdaki sütun başlıklarını silip üzerine yazmaktadır.
Kodda Ne gibi bir değişiklik uygun olur.
Şimdiden teşekkürler.