A1:a50 Adları Textboxta Arat Listboxta Listele Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Private Sub CommandButton2_Click() Dim i As Integer Dim say As Integer ListBox1.Clear Set isim = Range("A1:A50").Find(TextBox1) If Not isim Is Nothing Then ilk = isim.Address Do ListBox1.AddItem isim & " - " & isim.Address(False, False) Set isim = Range("A1:A50").FindNext(isim) Loop While Not isim Is Nothing And isim.Address ilk End If End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 a1:a50 adları textboxta arat listboxta listele 2 a1:a50 ad soyadları textboxta arat listboxta listele 3 forma otomatik resim getirme 4 listboxta dolu hürecelerin listelenmesi 5 tüm makroların listesi 6 tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler 7 30 excel dosyası içinde bir kelime aratma 8 excel operatörleri hk 9 sayfa adlarını listeleme 10 Excel dosyasındaki sayfa isimlerini listeleme 11 sayfa adlarını listeleme 2 12 listboxta kitaptaki sayfaların listelenmesi 13 sayfa adlarinin (sekme adi) listelenmesi 14 listboxta a, al şeklinde sıralama, textboxta sıralayarak 15 Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi? 16 listboxtaki sayıların toplamı textboxta 17 a1:an1000 arasındaki text ile bulunan satırdaki dolu hücreleri listboxa atmak istiyorum 18 boş satır lar listboxta listelenmesin. 19 wordpada yazdırmak istediğiniz bir metni excel içerisinden yazdırmak için 20 listede 1 den fazla olanların 1 adet olarak listelenmesi