listbox1 den listbox2 ye veri aktarma?

[efee2000]

listbox 1 içindeki stok isimlerine iki defa tıkladığımda listbox2 ye o stoğu yazdırmak istiyorum. aynı şekilde bir command button aracılığıyla listbox2 deki stok ismini seçip, command buttona tıkladığımda seçili stok ismini listbox2 den silmek istiyorum. bununla ilgili nasıl bir kod kullanmam gerekir.

teşekkürler..

 

[bedersu]

Merhaba,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub

Bu listbox'ı çift tıklatınca çalışacak makroyu yazacağınız yer.Kodları da yazardım ama listbox'ın rowsource'unu nereden aldığınızı bilmiyorum.Tabi bunu bilmeden de yapabilecek arkadaş var mı onu da bilmiyorum.Siz rowsource'u da yazın.Belki bu arada bir cevap gelir.Gelmezse yardımcı olmaya çalışırım.

Commandbutton için de aynı şey lazım.

 

[efee2000]

Merhaba Sn bedersu
ilginiz için teşekkür ederim. benim çalıştığım sayfa daha önce sn Raider'in gönderdiği bir örnek çalışma üzerinde. listbox1 yerine treeview kullandım. dolayısıyla kodlama da değişti. örnek çalışmayı gönderiyorum.
yardımınız için teşekkürler.

 

[bedersu]

Merhaba,

Aslında cevap kodların içinde var.Þunları yazın

Private Sub TreeView1_DblClick()
On Error GoTo son:
Column = Cells.Find(TreeView1.SelectedItem.Parent.Text).Column
Row = Columns(Column).Cells.Find(TreeView1.SelectedItem.Text).Row
Cells(Row, Column).Activate
ListBox1.AddItem (ActiveCell)
son:
End Sub

Oldu mu?

 

[efee2000]

verdiğiniz kodları yazdım ama maalesef hicbir değişiklik olmadı( :kafa:

 

[Exelans]

Ekte noırmal bir listbox ile yaptığım bir çalışma var.
Böyle bir şey işini görür mü?

 

[efee2000]

sevgili exelans yaptığınız çalışma için sonsuz teşekkürler. treeview1 deki liste yaklaşık 1000 adet stoktan oluşacak. onun için de gruplama daha çok işimi görüyor. ama listboxlarla yaptığınız çalışma tam istediğim gibi. sadece birinci liste kutusu ürün ağacı şeklinde olacak ama yapamadım. olmuyorsa senin calışmanı kullanacağım..
yardımın için tekrar teşekkürler. sağol..

 

[Exelans]

Sizin dosyanız üzerine aşağıdakileri ilave edeceksiniz.
Ã?nce Command button için
[vb:1:ffab2563f3]Private Sub CommandButton2_Click()
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) = True Then GoTo devam
Next i
Exit Sub
devam:
ListBox1.RemoveItem ListBox1.ListIndex
End Sub[/vb:1:ffab2563f3]
Daha sonra da aşağıdaki kırmızı satırı gösterdiğim yere ilave edin.

Private Sub TreeView1_Click()
On Error GoTo ResumeSub:
Column = Cells.Find(TreeView1.SelectedItem.Parent.Text).Column
Row = Columns(Column).Cells.Find(TreeView1.SelectedItem.Text).Row
Cells(Row, Column).Activate
ListBox1.AddItem ActiveCell.Value
Exit Sub
ResumeSub:
If TreeView1.SelectedItem.Text <> TreeView1.Nodes(1).Text Then
Rows("1:1").Cells.Find(TreeView1.SelectedItem.Text).Activate
Else
Exit Sub
End If
End Sub

 

[efee2000]

:kafa: :kafa: :kafa: :kafa: :kafa: :kafa:
sevgili exelans, verdiğiniz kodlar çalışmadı

 

[Exelans]

Ben bu ilave ve düzeltmeyi sizin gönderdiğiiz dosya üzerinde yaptım. Ve ben de güzel bir şekilde çalıştı.
Siz de neden olmadı bilmiyorum.
Eğer hata veren satırı söylersenizo konuda yardım edelim

 

[efee2000]

hata veren bir satır yok. ama yazdığımız kod user form üzerinde çalışmıyor. yani listboxa sectiğim stoğu aktarmıyor.

 

[Exelans]

Yukarıda bahsettiğim kırmızı satırı ilaveettiyseniz sorun olmaması gerekir

 

[efee2000]

dosyayı gondereyim size en iyisi. dosya uzerinde calıstıgım icin önceki dosyaya bazı seyler ekledim ve duzenlemeler yaptım. zahmet olmassa bi göz atın isterseniz.amacım listbox1 e verileri aktardıktan sonra userform2 deki ürün adı yazan yerlere de aynı anda aktarmak. bu arada kırmızı renklerle yazdığınız kodu da yazdım ama olmuyor.
bide anlamadığım dbclick kodunu neden kullanmadınız?

 

[efee2000]

sn bedersu ve sn exelans sorunu cözdüm son dosyayı gördüyseniz hatamı da görmüşsünüzdür sonunda istediğim oldu bunu özellikle exelans ve bedersu ya borcluyum ne kadar teşekkür etsem azdır :hey: :bravo: :bravo:
sonsuz teşekkürler arkadaşlar

 

[Exelans]

Eğer sen dbclick istersen aynı yani click olayındaki kodları dbclick altına koy. Click olayını tamamen sil. Gönderdiğin dosyada o şekilde olduğunu görünce ben değiştirme ihtiyacı duymamıştım.

 

[bedersu]

Sorununuzu halletmenize sevindim. :bravo: