Hücrelerdeki Verileri ListBoxa Sabitleme

Merhaba @Hsn55 , forumumuza hoşgeldiniz.

Belge yapınızda işleyişte en az değişiklik yapılmasını önermeyi tercih ediyorum.
-- ListBox1_Click kod blokunda On Error Resume Next satırının hemen altına,
If Listbox1.ListIndex = 0 Then Exit Sub
şeklinde bir satır ekleyin.
-- TextBox1_Change kodunda ise Dim v() satırının hemen altına aşağıdaki satırları ekleyin.
SAY = 1: ReDim Preserve v(1 To 51, 1 To SAY)
For j = 1 To 51: v(j, SAY) = Tbl(1, j): Next j

Teşekkürler Ömer bey sütunların belirgin olması için tablo şeklinde bölebilir miyiz?

Böyle bir işlem için;
-- ya bir userform kullanarak işlemlerinizi bu form üzerinden tasarlayıp,listeleme için Listbox yerine Listview nesnesi kullanmalısınız,
-- ya da userform kullanmayacaksanız, ARAMA sonuçlarını sayfaya yazdırılmasını sağlaıp, örneğin hücreye çift tıklamayla da soldaki tabloya verilerin aktarılmasını sağlayacaksanız.

Yanılmıyorsam; Listbox nesnesinde, excel sayfalarındaki hücre yapısı gibi satir sütun aralarını çizgiyle belirginleştiremezsiniz.

.

Hocam son olarak Listbox1 de B3:AZ3 sütunlarında istediğimiz sütunu nasıl gizleriz. Mesela D3,G3,N3 gibi .Bu sütunlardaki veriler ListBox ta görünmeyecek

Teşekkür ederim Ömer bey