ListBox'tan Aktif Hücreye

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Hayırlı Çalışmalar,
UserForm üzerine yerleştirdiğim ve içinde veri bulunan ListBox'un içindeki herhangi bir veriye tıkladığımda imleç(aktif hücre) nerde ise tıklanan veriyi aktif hücreye aktarsın. Ã?rnek Olarak : ListBox'un içinde 1'den 10'a kadar sayılar var. Her hangi bir sayıya tıklandığında ve imleç nerde ise o tıklanan veri aktif olan hücreye yazsın. Mümkün müdür? Teşekkürlerimi sunuyorum.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu deneyin.

[vb:1:eea570012c]Private Sub ListBox1_Click()
ActiveCell = ListBox1.Value
End Sub
[/vb:1:eea570012c]
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Allah razı olsun. Teşekkür ediyorum. Bu kodta şöyle bir ekleme yapılabilir mi? Belli hücrelerde, yani izin verilen hücrelerde çalışsın, izin verilmeyen hücrelerde çalışmasın. Ã?rnek Olarak : Birinci satırın, A1 hücresinden F1 hücresine kadar bu kod çalışsın. Diğer hücrelerde çalışmasın ve mesaj penceresi olarakta "İlgili Hücreye Gidiniz".
Tekrar teşekkür eder, hayırlı çalışmalar diliyorum.
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
excele yazıp denemedim ama şöyle bir ilaveyle olabilir..
Private Sub ListBox1_Click()
if activecell.row>1 or activecell.column>6 then
msgbox ("mesajınızburaya")
exit sub
end if
ActiveCell = ListBox1.Value
End Sub

yada intersect de kullanılabilirdi ama netice aynı, pek fark etmez.
 

Darim

Altın Üye
Katılım
23 Aralık 2005
Mesajlar
27
Altın Üyelik Bitiş Tarihi
20-10-2025
Selam.
Arkadaşlar ben de açılır kutudaki ismin bulunduğu hücrede gösterilmesini istiyorum. Kutudaki isim değişince hücredeki de değişsin istiyorum. Bunun için ne yapmalıyım. Ancak excele yeni başlayan biriyim. Yani tam acemi, Detaylı anlatabilirseniz sevinirim.
 
Katılım
23 Aralık 2005
Mesajlar
1
Merhabalar
Sorunuza yeni başlı açmanız gerekir.Sorduğunuz soruya verilen cevabı başka arkadaşlarıda aradığında daha kolay bulmaları daha kolay olur.Saygılar.
 
Üst