Bir sonrakini bul

[yavuz829]

Arkadaşlar ekli dosyada bul butonuna bastığımız zaman ayni kelimede birden fazla kelime varsa sıra ile bulup düzeltmemize izin versin. Örneğin birden fazla ali kelimesi var bul dediğimiz zaman sadece birtanesini buluyor. Yardımlarınız için şimdiden teşekürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
Cells(ComboBox1.ListIndex + 2, "A").Select
Range("G1").Value = ComboBox1.ListIndex + 2
TextBox2 = ActiveCell.Offset(0, 1).Value
   TextBox3 = ActiveCell.Offset(0, 2).Value
   TextBox4 = ActiveCell.Offset(0, 3).Value
   TextBox5 = ActiveCell.Offset(0, 4).Value
   TextBox6 = ActiveCell.Offset(0, 5).Value
End Sub

 

[yavuz829]

Ustat ali kelimesini bu dediğimiz zaman en son satırdaki ali kelimesini buluyor. Diğer ali kelimesinin ustune tıkladığımız halde son satırdaki ali kesimesine ait bilgileri gösteriyor.

 

[Orion1]

Ustat ali kelimesini bu dediğimiz zaman en son satırdaki ali kelimesini buluyor. Diğer ali kelimesinin ustune tıkladığımız halde son satırdaki ali kesimesine ait bilgileri gösteriyor.

Ha şunu söyleyin.Yani sorunuzu cevaplayacağız diye ağzınızdan cımbızla söz seçiyoruz yani.

 

[Orion1]

Dosyayı güncelledim.2 numaralı mesajdan indirebilirsiniz.
Bul butonunu kaldırdım.Direk combobox'tan seçim yaptığınızda textbox'larda ilgili kişinin bilgileri gözüküyor.

 

[yavuz829]

Teşekürler Evren bey ellerinize sağlık tam istediğim gibi olmuş.

 

[Orion1]

Teşekürler Evren bey ellerinize sağlık tam istediğim gibi olmuş.

Rica ederim.
İyi çalışmalar.