Tamam ustam kızmayın. Örnek dosyayı yüklüyorum.
atoykan ustadan kaçayım derken berduş ustama yakalandım.
Dosya ekte sunulmuştur ustam

---

Ustam Okullar sayfasının A sütununda "Seçildi" yazılan var ise "B" sütununda ki isimler listbox2 de listelenmesini rica ediyorum

mesajımda kızgınlık yok, sadece nedenini açıkladım çünkü yanılmıyorsam dosyanızı eklemeniz konusunda daha öncede uyarılmıştınız ama yine eklemediniz (yani aslında kızmaya hakkım da var ama artık çok kızmıyorum; eğer soru sahibi kendi sorununa gerekli önemi verip dosyasını eklemiyorsa ben neden sinirleneyim ki onun sorununu çözmek için). ben de daha net ifadelerle dosyaya ihtiyacımızın sebebini açıkladım o kadar

Ustam kızdığınızı düşünmedim bile. Yanlışa mahal vermeyelim. Sizler baş tacısınız.

Dosyayı mobilen inceleyebildim.
Kodu kafadan yazdım mantık alttaki gibi olacak.
Sayfa isimlerini felan eklersiniz cells önüne artık
Mobilden zor oluyor ama mantık bu en basiti.

For i = 1 to 125

Listbox2.clear

İf cells(i,1).value= "Seçildi"  then

Listbox2.additem cells(i,2).value

Next

teşekkür ederim ustam

Rica ederim abey.