Excel ListBox a veri almak.

Yemekhaneden gelen listeleri her gün excele aktarıyorum .
Bu listede
Öğretmen isimleri
Yemek isimleri vs bulunuyor ve bunları elle girmek durumunda kalıyoruz devamlı .
Ben list boxa çektirip hepsini ordan seçtiğim öğretmenlerin ve seçtiğim yemeklerin çıkmasını istiyorum .
Listboxtan seçildiği anda o hücreye öğretmenler veya yemekler otomatik olarak eklenecek . Daha excel de listbox veri bile çekemedim

forumda vardı sanki bi aratıver hocam sana zahmet.

baktım hocamda combobox olarak yapmış o benim istediğim şekilde değil ...

Dediğim şeyi buldum arkadaşlar bilginiz olsun yazıyorum .
With activesheet.Listboxes("List Box 1")
for i=1 to .ListCount
if selected(i) then
sayfa 1.cells(1,1)=.List(i)+ " -" +c
c=sayfa1.cells(1,1)
end if
next
end with

c=sayfa1.cells(1,1) mecburen ekledim bunu diğer türlü yazmyordu ardı ardına kolay gelsin herkese