listboxtan listboxa veri taşıma hak

[zamenya]

Sayın Hocalarım hepinize hayırlı akşamlar, sütün "A" dan "p" ye kadar listbox 2 ye verilerimi aldırıyorum
ama listbox2 deki seçtiğim veriyi "a" sütünü ve 1p1 sütünü olarak listbox3 nasıl aktara bilirim

 

[zamenya]

Sayın Hocalarım hepinize hayırlı akşamlar, sütün "A" dan "p" ye kadar listbox 2 ye verilerimi aldırıyorum
ama listbox2 deki seçtiğim veriyi "a" sütünü ve "p" sütünü olarak listbox3 nasıl aktara bilirim

 

[Orion1]

ListBox3.AddItem
ListBox3.Column(0, ListBox3.ListCount - 1) = ListBox2.Column(0)
ListBox3.Column(1, ListBox3.ListCount - 1) = ListBox2.Column(15)

 

[zamenya]

sayın evren hocam yardımınız için çok teşekkürler kodları hangi bölüme yazacağım

 

[Orion1]

sayın evren hocam yardımınız için çok teşekkürler kodları hangi bölüme yazacağım

Onu siz bilirsiniz.
İsterseniz listbox2nin click olayına veya dblclick olayına isterseniz bir commandbutona siz nereye isterseniz.Tamamen size kalmış.Ben kodları verdim.Listbox3ün columncount durumunuda 2 yapmayı unutmayın.

 

[zamenya]

sayın evren hocam commond butona ekledim kodları ama sadece listbox2 den il satırı ladı listbox3 diğerlerini almadı

 

[Orion1]

sayın evren hocam commond butona ekledim kodları ama sadece listbox2 den il satırı ladı listbox3 diğerlerini almadı

Listbox3 e columncount durumunu 2 yapın demiştim.Yaptınızmı?Siz a sütununu ve p sütununu listbx 3e aktarmak istiyordunuz buda 2 kolon yapar.bende kodları ona göre yaptım.Listbox2nin ilk sütununu ve son sütununu listbox3e aktarıyor.Propertiesten listbox3 ün ColumnCount değerini 2 yapımn.Daha önce söylemiştim.Yapmaszsanız sadece ilki gözükür diğeri gözükmez.

 

[zamenya]

sayın hocam galiba yanlış anlatım kusura bakmayın a ve p (dahi) sütünü arasındaki verileri alddırıyorum listboxa2

 

[Orion1]

sayın hocam galiba yanlış anlatım kusura bakmayın a ve p (dahi) sütünü arasındaki verileri alddırıyorum listboxa2

Sayın Hocalarım hepinize hayırlı akşamlar, sütün "A" dan "p" ye kadar listbox 2 ye verilerimi aldırıyorum
ama listbox2 deki seçtiğim veriyi "a" sütünü ve 1p1 sütünü olarak listbox3 nasıl aktara bilirim

Listbox2ye a aralığını aldığınız söylüyorsunuz .Listbox3ede listbox2den seçilen a ve p sütunlarındaki verileri aktaracağınız söylüyorsunuz.Yoksa yukarıda farklı bir şeymi yazmıyor.

 

[zamenya]

sayın hocam aktarmak istediğim a b c d e f g h ı i jklm n o p sütünlarındaki veri

 

[zamenya]

evren hocam verdiğiniz kodu uyrlamaya çalışıyorum ama yapamıyorum

 

[Orion1]

9 sütundan fazla add item yöntemi ile diğer listboxa aktarılmıyor.
9 ve küçükse aktarılabilir.Veya Direk sayfadan aktarın.

 

[zamenya]

Teşekkürler hocam yardımızı için

 

[Orion1]

Teşekkürler hocam yardımızı için

Heman pes etmek yok.
Add item metodu ile alınamıyorsa Dizi yöntemi var.
Buyurun dizi yöntemi ile listbox2 ye tıklayarak listbox3 e aktarma olayı.
Dosya ektedir.

Private Sub ListBox2_Click()
ReDim myarr(0 To 15, 0 To 0)
If ListBox3.ListCount - 1 >= 0 Then myarr = ListBox3.Column
ReDim Preserve myarr(0 To 15, 0 To ListBox3.ListCount)
For i = 0 To 15
    myarr(i, ListBox3.ListCount) = ListBox2.Column(i)
Next
ListBox3.Clear
ListBox3.Column = myarr
End Sub

 

[zamenya]

evren hocam nediyeceğimi bilemiyorum çok teşekkürler yardımınız için

 

[Orion1]

evren hocam nediyeceğimi bilemiyorum çok teşekkürler yardımınız için

Rica ederim.
İyi çalışmalar.

 

[öğrtm]

listboxta seçili satırı(aradaki bütün sütunlar dahil) diğer listbox a aktarma

ListBox3.AddItem
ListBox3.Column(0, ListBox3.ListCount - 1) = ListBox2.Column(0)
ListBox3.Column(1, ListBox3.ListCount - 1) = ListBox2.Column(15)

evren beyin yukarıdaki kodu sadece iki sütunu diğer listbox a atıyor.4 sütunlu bir listbox umuzun olduğunu varsayalım acaba cliklediğimiz satırın tüm sütunlardaki değerlerini nasıl diğer listbox a atarız.
ilgilenenlere şimdiden teşekkür ederim.

 

[Orion1]

evren beyin yukarıdaki kodu sadece iki sütunu diğer listbox a atıyor.4 sütunlu bir listbox umuzun olduğunu varsayalım acaba cliklediğimiz satırın tüm sütunlardaki değerlerini nasıl diğer listbox a atarız.
ilgilenenlere şimdiden teşekkür ederim.

Dim i As Byte
If ListBox1.ListCount < 0 Then Exit Sub
ListBox2.AddItem
For i = 0 To 3
    ListBox2.Column(i, ListBox2.ListCount - 1) = ListBox1.Column(i)
Next

 

[öğrtm]

hocam mrb
galiba eksik bilgi verdim.gönderdiğiniz kod ikinci listbox un tüm sütunlarına birinci listbox un sadece 0 kolondaki veriyi atıyor.yapmaya çalıştığım ise iki listbox ta dört sütunlu varsayılarak 0. sütundaki veri 0.ya 1.sütundaki 1.sütuna .....şeklinde

teşekkürederim.

 

[Orion1]

hocam mrb
galiba eksik bilgi verdim.gönderdiğiniz kod ikinci listbox un tüm sütunlarına birinci listbox un sadece 0 kolondaki veriyi atıyor.yapmaya çalıştığım ise iki listbox ta dört sütunlu varsayılarak 0. sütundaki veri 0.ya 1.sütundaki 1.sütuna .....şeklinde

teşekkürederim.

Kodu yapıştırıp tekrar denermisiniz.