listbox tan okunan sahalar textboxlara yanlış taşıma yapıyor

[bulentcigali]

iyi akşamlar,
yaptığım bir uygulamada sayfadan bilgileri sort ederek bir listboxa yazdırıyorum.bu listbox tan seçtiğim kayıta ait tüm bilgileride ilgili textbox lara taşıyorum.ancak taşıma anında bir kayıtta doğru taşıma yaparken diğer kayıtta farklı sahalar geliyor ve bu da hatalı bir sonuç oluyor.
ekte sunmuş olduğum örenektede göreceksiniz.teşekkür ederim saygılarımla

 

[Ferhat Pazarçevirdi]

Kodlarınızdaki sorun; Find/Bul komutundan kaynaklanmakta... Find komutunun bir parametresini eksik girdiğinizden; aradığınız değer 1 ise, bunu hem değeri 1 olan hücrede, hem de değeri 1958 olan hücrede buluyor. Bu da; Textbox'lara aktarımda activecell ve offset ile işlem yaptığınızdan kaymalara sebep oluyor.

Listbox1'in Click olayında yer alan aşağıdaki kodunuzu;

Selection.Find(TextBox4.Value, ActiveCell).Activate

şu şekilde değiştirin

Selection.Find(TextBox4.Value, ActiveCell, [COLOR=red][B]Lookat:=xlWhole[/B][/COLOR]).Activate

Kırmızı yazan ek ile; Listbox'tan seçilen değerin; sayfada tam olarak karşılığı bulunan hücrelerde aratmış oluyoruz.

 

[bulentcigali]

sayın fpc çok teşekkür ederim yazdığınızı uyguladım ve sorunumu hallettim iyi akşamlar.