- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
Aşağıdaki kod ile Textbox'a yazarak Combobox4'deki isime ait excel satırındaki hücreye açıklama ekliyorum.Fakat combobox4'de o isme ait ve çeşitli tarihlere ait birden fazla kayıt var.Bu kayıtların herhangi birine ulaşamıyorum.Sadece ilk kayıtı Combobox4'den seçerek getirebiliyorum oysa ben o isme ait bütün kayıtları bir spinbutton aracılığıyla tıklayarak tek tek taramak istiyorum.Yani önce combobox'dan isim seçeyim sonrada spinbutton ile o kişinin bütün açıklamalarnı tarayım.Yada bir tane textbox oluşturup hem combobox'daki isime hemde textboxdaki tarihe göre aratıp o açıklamaya ulaşayım.Böyle bir şeyin yapılabileceğini düşünüyorum.Şimdiden Teşekkür ederim.
a = Sheets("Anasayfa").TextBox14
If a = "" Then Exit Sub
On Error Resume Next
Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment
Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text a
MsgBox "kayıt yapılmıştır"
a = Sheets("Anasayfa").TextBox14
If a = "" Then Exit Sub
On Error Resume Next
Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment
Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text a
MsgBox "kayıt yapılmıştır"