Listbox çift tıklama sorunu

[Emine Şahin]

Merhaba arkadaşlar.
Ekteki dosyamda çift tıkladığımda verileri textboxlara getiremiyorum.
Aşağıdaki kodlama nasıl bir hata var çözemedim.
"Controls("textbox" & a + 1) = ListBox1.Column(a)" satırı hata veriyor.
Yardımızını rica ederim.

Private Sub ListBox1_Click()
'listbox kutusuna çit tıklattığınızda
For a = 0 To 4
'textboxlar için döngü kuruluyor
[B][COLOR="Orange"]Controls("textbox" & a + 1) = ListBox1.Column(a)[/COLOR][/B]
'textboxlara sıara ile liste kutusundaki veriler yazılıyor.
Next
TextBox4 = Format(ListBox1.Column(7), "dd.mm.yyyy")
sat = ListBox1.ListIndex + 2
Range("A" & sat & ":E" & sat).Interior.ColorIndex = 6
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[dEdE]

Merhaba,

For a = 0 To 4
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)

a değeri 4 olduğunda textbox 5 oluyor. Halbuki 4 textboxunuz var. Ayrıca 0-4 arası 5 kolon eder,ListBox1 de 4 kolon var.

 

[Emine Şahin]

Merhaba,

For a = 0 To 4
'textboxlar için döngü kuruluyor
Controls("textbox" & a + 1) = ListBox1.Column(a)

a değeri 4 olduğunda textbox 5 oluyor. Halbuki 4 textboxunuz var.

Ben dediğiniz yere farkılı değerlerde verdim. Ama çözemedim.
Örnek aldığım dosyada 8 değeri vardı. Yani 8 textbox kullanılıyordu.
Ben kullandığım dosyada 4 textbox kullandığım için a 4 değerindedir.
Ama neden hata veriyor çözemedim...

 

[dEdE]

Merhaba,

For a = 0 To 4

Buradaki 4 ü 3 yapın.

 

[Emine Şahin]

Merhaba.
Dediğiniz gibi denedim. Lakin bu seferde aşağıdaki satır hata verdi?

"TextBox4 = Format(ListBox1.Column(7), "dd.mm.yyyy")"

 

[dEdE]

Merhaba,
Hata vermesi normal. Listboxta 4 kolon var. Bu satır ise 7. kolondan veri almaya çalışıyor olmayınca da hata veriyor. Hata veren satırı aşağıdaki ile değiştirin.

TextBox1 = Format(TextBox1.Text, "dd.mm.yyyy")

 

[Emine Şahin]

Teşekkür ederim. Allah razı olsun...

 

[aliihsanuckan]

dede kardeşim günaydın. ismim ali ihsan, aşağıdaki linke bir araç defteri ekledim. makrolarda sorun var bana yardımcı olabilirmisin. formu bi kontrol etsen iyi olur. kaç gündür bekliyorum kimse yardımcı olmadı.

http://www.excel.web.tr/f119/veri-yonetimi-uygulamasy-veri-kaydetme-deoi-tirme-ve-t15160/sayfa8.html

 

[dEdE]

dede kardeşim günaydın. ismim ali ihsan, aşağıdaki linke bir araç defteri ekledim. makrolarda sorun var bana yardımcı olabilirmisin. formu bi kontrol etsen iyi olur. kaç gündür bekliyorum kimse yardımcı olmadı.

http://www.excel.web.tr/f119/veri-yonetimi-uygulamasy-veri-kaydetme-deoi-tirme-ve-t15160/sayfa8.html

Sayın Ali İhsan Bey,
Öncelikle Forum Kurallarını okumanızı öneririm.
Yanıt alamamanızın olası nedenleri;
-Eklediğiniz dosya Excel İçin Örnek Uygulamalar başlığı altındadır. Adı üzerinde burası örnek uygulamaların paylaşıldığı yerdir. Yanıt verilmemesi bir yana mesajınız yönetim tarafında silinebilirdi de.
-Sorunuzun bu konu başlığı ilşe ne ilgisi var. İlgisiz başlıklara yazılan mesajlara da yanıt verilmez genellikle.
Sonuç: Forum Kurallarını okuyunuz ve sorunuzu uygun bir bölümde yeni bir başlık açarak sorunuz.
Hoşçakalın.

 

[aliihsanuckan]

haklısınız. ben kendim yaptım bu çalışmayı, ancak levent menteşoğlu kardeşimin yaptığı ( veri Yönetimi ) isimli çalışma benim çalışmam için çok uygun olduğu için onun çalışmasındaki kodları benim kodlarımın yerine yazdığımda hatalar verdi ve ben düzeltemedim. ben kendi çalışmamı paylaşsam benim kodlarıma (kayıt bul, değiştir, temizle ) kodlarını ilave edebilirmisisniz. LÜTFEN Bİ YARDIM....

 

[aliihsanuckan]

yeni başlık nasıl açabilirim. kendi hazırladığım çalışmayı paylaşmak ve yardım istemek için, lütfen biri yardım etsin.

 

[dEdE]

Merhaba,
Forum Kurallarına bakmanızı önermiştim, muhtemelen bakmadınız.

Bari şuralara bir baksanız.
http://www.excel.web.tr/f59/
http://www.excel.web.tr/f59/yeni-konu-acarak-soru-sormak-t70426.html

 

[aliihsanuckan]

teşekkür ederim, bi önemi kalmadı pes ediyorum.
sonuç alacağıma dair bi ümidim kalmadı.
iyi çalışmalar.