listbox içeriği oluşturmak

[sweet]

merhabalar

arkadaşlar benim sizden ricam şudur

bir listbox içeriğini kod ile oluşturabilirmiyim örneğin:

listbox içerisine

müdür
müdür yrd
şef
mühendis

diye kodlar yardımıyla yazıyoruz ben listbox içerisinden hangisine çift tıklarsam, o tıkladığım yazı istediğim her hangi bir textbox kutusunun içene gelsin

şimdiden yardımlarınız için teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodu listboxa kopyalayın.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
textbox1 = ListBox1.Value
End Sub

 

[tevfikdemir]

Listbox içeriğini oluşturmak

Ekteki dosyanın kodlarını inceleyin lütfen.

iyi çalışmalar.

Saygılar

 

[sweet]

yardımın için sağol

İstediğim şey tam olarak bu değil

şimdi sen excel sayfasında yazdığın

müdür
teyfik
hasan
hüseyin

gibi isimleri görüyor listbox sonrada üzerine tıkladığında yantarafdaki textbox içine yazıyor

benim istediğim ise bu isimleri excel sayfasında değilde listbox'ın kodlarının içine yazamak ve bu isimlerden her hangi birini çift tıkladığımda textbox içerine yazsın ve aynı zamanda listbox kapatsın

YARDIMLARINIZ İÇİN TEŞEKKÜR EDERİM

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

Private Sub ListBox1_Click()
TextBox1.Value = ListBox1.Value
End Sub

Private Sub UserForm_Initialize()
With ListBox1
.AddItem "MÜDÜR"
.AddItem "MÜDÜR YRD."
.AddItem "ŞEF"
.AddItem "MÜHENDİS"
End With
End Sub

 

[sweet]

cost control arkadaşı kodları denedim olmadı

arkdaşlar bu durmu beni yordu resmen yaaaa lütfen yardım

bir dosya gönderdim sorum orda daha iyi anlaşılsın diye

yardımlarınız için teşekkür ederim

 

[Levent Menteşoğlu]

Dosyayı ekleyememişsiniz.

 

[sweet]

pardon dosyayı ekleme işlemi olmamış şimdi gönderdim

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[sweet]

LEVENTM

ellerine sağlık istediğim buydu çok çok teşekkür ederim

 

[igktp]

Peki bu makroyu birazda geliştirebilirmiyiz.
Mesela listbox taki verileri belirli bir sutundan alıp listelese ve bu deger seçildiginde, degerin bulundugu hücreye gitse.

Ekteki dosya tam olarak anlatmaya çalıştım...

Teşekkürler....

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[igktp]

Ekli dosyayı inceleyin.

Levent Bey öncelikle ilgi ve alakanız için teşekkür ederim.
Sanırım istedgim olayı anlatabilmişim.Fakat bir eksiklik var.Girilen degerler herzaman rakamsal degerler olmayabilir.(Örnek 19.104/C2 ).Böyle bir deger verdigimiz zaman excel hata veriyor.Bu sıkıntıyı ortadan kaldırabilirmiyiz.Ayrıca excel-macro konusunda çok iyi degilim bu macro kodunu yaptıgımız excel dosyasından, orjinal excel dosyasına nasıl ekleyecegim konusunda yardımcı olabilirmisiniz...
Teşekkürler....

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[igktp]

Ekli dosyayı inceleyin.

Teşekkür eder iyi çalışmalar dilerim.
Elinize Sağlık....