Listbox ta kişi bilgileri hatalı geliyor.

[tufan03]

Ekli dosyada listboxta kayıtlı kişilerin bilgilerini yanda bulunan kutucuklara getiriyoruz. Aynı isimden birden fazla var ise o kişiye ait bilgileri hatalı getiriyor.Aynı kişi 2 nci sırada ve de 12 nci sırada mevcutsa 2 nci sırayı çağırdığımızda o kişiye ait 12 nci sıradaki bilgileri getiriyor.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[tufan03]

Sayın Orion2 arada olanlar düzelmiş fakat,
Son satıra Mehmet İnkaya ilave ettiğimiz zaman yine hatalı sonuç veriyor,kısaca son satırdaki kişinin bilgilerini doğru vermiyor.

 

[mesuttasar]

Listbox1 e şu kodları yazınca sorun düzeldi gibi.

Private Sub ListBox1_Click()
Dim sh As Worksheet
Set sh = Sheets("Sayfa1")
TextBox1 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 0)
TextBox2 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 1)
TextBox3 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 2)
TextBox4 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 3)
TextBox5 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 4)
TextBox6 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 5)
TextBox7 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 6)
TextBox8 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, 7)
ComboBox2 = sh.Range("B1").Offset(ListBox1.ListIndex + 0, -1)
Set sh = Nothing
End Sub

Dosyayı da gönderiyorum bi bak umarım olmuştur.

 

[Orion1]

Sayın Orion2 arada olanlar düzelmiş fakat,
Son satıra Mehmet İnkaya ilave ettiğimiz zaman yine hatalı sonuç veriyor,kısaca son satırdaki kişinin bilgilerini doğru vermiyor.

Örnek dosya üzerinde açıklarmısınız.
Acaba yeni kayıt yaptığınızda Sıra numarasınıda yazdınızmı?

 

[mesuttasar]

Private Sub CommandButton3_Click()
On Error GoTo ATLA
'ver değişkenine inputboxu atıyoruz
ver = ComboBox2.Value
Set bul = [a:a].Find(ver)
'bulunan veriyi seçiyoruz

ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6
ActiveCell.Offset(0, 7) = TextBox7
ActiveCell.Offset(0, 8) = TextBox8

Unload Me
UserForm7.Show
Exit Sub

Sayın Orion2 bu kodları değiştir butonu için düzenledim ama textbox1 i değiştiriyor diğer textboxlar için işlem yapmyor. Nedeni ne olabilir acaba?

 

[Orion1]

Şimdilik görünen şu ki bulunan veriyi seçmeniz gerekiyor.

bul.select

 

[mesuttasar]

Sayın Orion2;

Kodları aşağıdaki gibi düzenledim ama yine sadece Textbox1 deki değeri değiştiriyor.Diğer textbx taki değişiklikleri düzeltmiyor.Değiştir olayının makro ile yapılmasını bir türlü başaramadım gitti
Dosyayı da ekliyorum.

Private Sub CommandButton3_Click()
On Error GoTo ATLA
ver = ComboBox2.Value 'ver değişkenine combobox2 deki değeri atıyoruz
Set bul = [a:a].Find(ver)
bul.Select 'combobox2 de bulunan veriyi seçiyoruz
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4
ActiveCell.Offset(0, 5) = TextBox5
ActiveCell.Offset(0, 6) = TextBox6
ActiveCell.Offset(0, 7) = TextBox7
ActiveCell.Offset(0, 8) = TextBox8
Unload Me
UserForm7.Show
Exit Sub
ATLA: 'hata ile karşılaşıldığında gelinecek yer
MsgBox "ARADIĞINIZ VERİ BULUNAMDI" 'bilgi mesajı
Unload Me
UserForm7.Show
End Sub

 

[mesuttasar]

Sayın ustalarım sorunuma bir göz atabilecek olan yokmu acaba?

 

[Orion1]

Eklediğiniz dosyada listbox'tan seçtiğinizi textbox'larda gösteriyor.

 

[mesuttasar]

Eklediğiniz dosyada listbox'tan seçtiğinizi textbox'larda gösteriyor.

Sayın Orion2;

listbox a tıkladığımda dediğiniz gibi textbox lara ilgili bilgiler geliyor.Sorun bu aşamadan sonra başlıyor zaten. Mesela textbox6 daki oda numarasını değiştirmek istiyorum.

İşte yukarıda yazılmış olan kodlar sadece textbox1 deki değişikliği yapıyor. Texbox2,3,4,5,6,7 ve 8 nolu değişiklikleri gerçekleştirmiyor.

Yazılan kodlarda bir mantık hatası varmı? Yoksa nede değişiklikleri yapmıyor

 

[Orion1]

Benim yolladığım 2 numaralı mesajdaki dosya bu istediğinizi gerçekleştiriyor.
Acaba inceledinizmi?

 

[mesuttasar]

Benim yolladığım 2 numaralı mesajdaki dosya bu istediğinizi gerçekleştiriyor.
Acaba inceledinizmi?

Uzmanım inceledim sizinki çalışıyor bende kodları aşağıdaki gibi değiştirince benimkilerde çalışmaya başladı nihayet.İlgilendiğiniz için çok teşekkür ederim.

Private Sub CommandButton3_Click()
On Error GoTo ATLA
ver = ComboBox2.Value 'ver değişkenine combobox2 deki değeri atıyoruz
Set bul = [a:a].Find(ver)
bul.Select 'combobox2 de bulunan veriyi seçiyoruz
a = TextBox1
b = TextBox2
c = TextBox3
d = TextBox4
e = TextBox5
f = TextBox6
g = TextBox7
h = TextBox8
ActiveCell.Offset(0, 1) = a
ActiveCell.Offset(0, 2) = b
ActiveCell.Offset(0, 3) = c
ActiveCell.Offset(0, 4) = d
ActiveCell.Offset(0, 5) = e
ActiveCell.Offset(0, 6) = f
ActiveCell.Offset(0, 7) = g
ActiveCell.Offset(0, 8) = h
Unload Me
UserForm7.Show
Exit Sub
ATLA: 'hata ile karşılaşıldığında gelinecek yer
MsgBox "ARADIĞINIZ VERİ BULUNAMDI" 'bilgi mesajı
Unload Me
UserForm7.Show
End Sub