Veri Birleştirme

[Seyit Tiken]

Herkese Selamlar,
ListBox'ta veriler mevcud. (örnek olarak : Gül, Çicek vs.) A1 hücresine herhangi bir veri girişi yapıldığında, ListBox'un içindeki herhangi bir veriye tıklandığında, A1 hücresindeki veriyle birleşsin. Ã?rneğin : A1 hücresinde "Ali" diye bir verimiz var. ListBox'un içindeki "Gül" verisine tıklandığından, A1 hücresine : "Ali (Gül)" şeklinde olacak. Yani A1 hücresine ne tür bir veri girilirse girilsin, ListBox'umuzun içinde ne tür veriler varsa ve hangi veriye tırlanırsa, A1 hücresindeki veriyle birleşsin.
Ã?rnek olarak A1 hücresinde biçimlenecek metin :"Ali (Gül)".
Saygılarımı sunuyorum.

 

[Seyit Tiken]

:?

 

[Levent Menteşoğlu]

Peki bu birleştirilmiş veri nereye yazılacak?

 

[Seyit Tiken]

A1 hücresine yazılacak. Birleştirme işi A1 hücresinde olacak. A1 hücresinde herhangi bir verimiz var. ListBox'taki veriye tıklandığı vakit, A1 hücresindeki veri ile Listbox'taki veri A1 hücresinde birleşsin. Mümkün müdür. Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Listboxtaki veriye çift tıkladığınızda çalışacaktır.

[vb:1:7b9f88214f]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[a1] = [a1] & " (" & ListBox1 & ")"
End Sub
[/vb:1:7b9f88214f]

 

[Seyit Tiken]

Allah razı olsun. Çok mükemmel. Tam istediğim gibi. Ancak ufak bir değişiklik yapılabilir mi? Bu koda göre, ListBox'a her tıklanışta A1 hücresine ard arda(mükerrer) veri giriyor, birleştiriyor. Demek istediğim, ListBox'a tıkladığım vakit önceki veriyi silsin yenisini yazsın. Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Anladığım kadarıyla A1 hücresine yazılan hep sabit kalsın, listboxta hangisini tıklıyorsanız onunla birleşsin istiyorsunuz. Bunu bu şekilde yapmak mümkün değil, çünkü A1 değişiyor ve kod bu yeni değeri tekrar esas alıyor. Bu durumda sabit değeri örneğin B1 hücresine yazıp, A1 e B1 ile listboxun birleşimini aktarabilirsiniz.

[vb:1:a775de15a6]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[a1] = [b1] & " (" & ListBox1 & ")"
End Sub
[/vb:1:a775de15a6]

 

[Seyit Tiken]

Doğrudur. Teşekkür ediyorum. Soru halolmuştur.