ListBoxda aranan verinin hatalı gelmsi

[kadirdaylight]

Arama kısmında arattırınca sorunsuz bir şekilde listboxda çıkıyor. Ancak üzerine tıkladığımda doğru veriyi yukarıdaki textboxlara atmıyor.

Kodları inceledim bir hata bulamadım yardımcı olurmusunuz?



NOT: Asıl yapmak istediğim listboxda çıkan satıra çift tıklayıp başka bir userform açmak ve giriş işlemlerini orda yapmaktı ancak yardımcı olan çıkmadı yeni bir userforma listboxdan veri aktarmayı yapamadım bende bu yolu tercih ettim.

 

[halit3]

Arama kısmında arattırınca sorunsuz bir şekilde listboxda çıkıyor. Ancak üzerine tıkladığımda doğru veriyi yukarıdaki textboxlara atmıyor.

Kodları inceledim bir hata bulamadım yardımcı olurmusunuz?



NOT: Asıl yapmak istediğim listboxda çıkan satıra çift tıklayıp başka bir userform açmak ve giriş işlemlerini orda yapmaktı ancak yardımcı olan çıkmadı yeni bir userforma listboxdan veri aktarmayı yapamadım bende bu yolu tercih ettim.

Liste kutusuna verileri alırken satır numarasını aldırmak gerekiyor bu durumda sizde satır numarasını A sütunundaki sıra numarasını baz alarak verileri text nesnelerine getirebilirsiniz.

Private Sub ListBox1_Click() olayını aşağıdaki ile değiştirin.

Private Sub ListBox1_Click()
satır = ListBox1.List(ListBox1.ListIndex, 0) - 1

TextBox1 = Sheets("Kimyasallar").Range("B" & satır)
TextBox2 = Sheets("Kimyasallar").Range("C" & satır)
TextBox3 = Sheets("Kimyasallar").Range("D" & satır)
TextBox4 = Sheets("Kimyasallar").Range("E" & satır)
TextBox5 = Sheets("Kimyasallar").Range("F" & satır)
TextBox6 = Sheets("Kimyasallar").Range("G" & satır)
TextBox7 = Sheets("Kimyasallar").Range("H" & satır)
TextBox8 = Sheets("Kimyasallar").Range("I" & satır)
TextBox9 = Sheets("Kimyasallar").Range("J" & satır)

End Sub

Not Eğer A sütununda satır numaralar yoksa kod hata verir.

 

[kadirdaylight]

Liste kutusuna verileri alırken satır numarasını aldırmak gerekiyor bu durumda sizde satır numarasını A sütunundaki sıra numarasını baz alarak verileri text nesnelerine getirebilirsiniz.

Private Sub ListBox1_Click() olayını aşağıdaki ile değiştirin.

Private Sub ListBox1_Click()
satır = ListBox1.List(ListBox1.ListIndex, 0) - 1

TextBox1 = Sheets("Kimyasallar").Range("B" & satır)
TextBox2 = Sheets("Kimyasallar").Range("C" & satır)
TextBox3 = Sheets("Kimyasallar").Range("D" & satır)
TextBox4 = Sheets("Kimyasallar").Range("E" & satır)
TextBox5 = Sheets("Kimyasallar").Range("F" & satır)
TextBox6 = Sheets("Kimyasallar").Range("G" & satır)
TextBox7 = Sheets("Kimyasallar").Range("H" & satır)
TextBox8 = Sheets("Kimyasallar").Range("I" & satır)
TextBox9 = Sheets("Kimyasallar").Range("J" & satır)

End Sub

Not Eğer A sütununda satır numaralar yoksa kod hata verir.

Ektede görüleceği gibi A sutununda sıra numaraları var ancak kod yinede hata verdi..?

 

[halit3]

Ektede görüleceği gibi A sutununda sıra numaraları var ancak kod yinede hata verdi..?

Bu kodu denedim bende hata vermiyor.

 

[kadirdaylight]

Bu kodu denedim bende hata vermiyor.

Rica etsem hatasız halini buraya ekleyebilirmisiniz?

 

[kadirdaylight]

Bu kodu denedim bende hata vermiyor.

Arama kısmına MET yazıp arattırdığınızda çıkan satıra tıklayınca hatalı veriler gidiyor textbox'a.

Onun dışında arama kısmını temizledikten sonra 1. satırdaki Aceton a tıklayınca hata veriyor. Bir yerde kod çakışması mı var acaba?

 

[kadirdaylight]

Liste kutusuna verileri alırken satır numarasını aldırmak gerekiyor bu durumda sizde satır numarasını A sütunundaki sıra numarasını baz alarak verileri text nesnelerine getirebilirsiniz.

Private Sub ListBox1_Click() olayını aşağıdaki ile değiştirin.

Private Sub ListBox1_Click()
satır = ListBox1.List(ListBox1.ListIndex, 0) [COLOR="red"]+[/COLOR] 1

TextBox1 = Sheets("Kimyasallar").Range("B" & satır)
TextBox2 = Sheets("Kimyasallar").Range("C" & satır)
TextBox3 = Sheets("Kimyasallar").Range("D" & satır)
TextBox4 = Sheets("Kimyasallar").Range("E" & satır)
TextBox5 = Sheets("Kimyasallar").Range("F" & satır)
TextBox6 = Sheets("Kimyasallar").Range("G" & satır)
TextBox7 = Sheets("Kimyasallar").Range("H" & satır)
TextBox8 = Sheets("Kimyasallar").Range("I" & satır)
TextBox9 = Sheets("Kimyasallar").Range("J" & satır)

End Sub

Not Eğer A sütununda satır numaralar yoksa kod hata verir.

-1 yerine +1 yazınca düzeldi Çok teşekkür ederim

 

[halit3]

Arama kısmına MET yazıp arattırdığınızda çıkan satıra tıklayınca hatalı veriler gidiyor textbox'a.

Onun dışında arama kısmını temizledikten sonra 1. satırdaki Aceton a tıklayınca hata veriyor. Bir yerde kod çakışması mı var acaba?

O zaman şöyle yapın aşağıdaki kodun kırmızı yerini silin

satır = ListBox1.List(ListBox1.ListIndex, 0) [COLOR="Red"]- 1[/COLOR]

A sütunundaki sıra numarasını satır numarasıyla aynı yapın yani ikiden başlatın ve aşağıya kadar çoğaltın.

Sizin sıra numarası birden başlıyor oysa birinci satırda başlıklar var

 

[kadirdaylight]

O zaman şöyle yapın aşağıdaki kodun kırmızı yerini silin

satır = ListBox1.List(ListBox1.ListIndex, 0) [COLOR="Red"]- 1[/COLOR]

A sütunundaki sıra numarasını satır numarasıyla aynı yapın yani ikiden başlatın ve aşağıya kadar çoğaltın.

Sizin sıra numarası birden başlıyor oysa birinci satırda başlıklar var

Zaman ayırdığınız için tekrar teşekkür ederim. :bravo:

 

[halit3]

iyi çalışmalar