جستجو در لیست باکس بر اساس تکست باکس

[mohammad59]

سلام مجدد

در فایل پیوست در خواستی که از اساتید دارم اینه که جستجوی اطلاعات داخل لیست باکس بر اساس تکست باکسی که در فرم طراحی شده (بر اساس نام معین)

کدش نوشته بشه

من کدی رو که نوشتم فقطط یک ستون رو میاره

درخواستم این بود که ستون و سطر های مورد جستجو رو هم بیاره

ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

فایلپیوست را بررسی بفرمایید

[mohammad59]

مهندس جان از بابت جستجو اوکیه

ولی یه مشکل که داره وقتی فرم باز میشه اطلاعات شیت رو تو لیست باکس باید نشون بده

مثلا ورژن اولی که اطلاعات سطر هایی که فیلتر شدن رو نشون میداد

سپاس

[iranweld]

از کد ذیل استفاده کنید

Private Sub UserForm_Initialize()

Dim cell, rng As Range

ListBox1.Font.Size = 10

ListBox1.ColumnCount = 5

ListBox1.ColumnWidths = "120;80;100;80;80"


Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

Set rng = Sheet1.Range("C1:C" & Z1)

For Each cell In rng

If cell.EntireRow.Hidden = False Then

ListBox1.AddItem cell.Offset(, 3)

For I = 1 To 6
                      
    ListBox1.List(ListBox1.ListCount - 1, I - 1) = Cells(cell.Row, 7 - I)
    
    Next I
    
    End If
    
    Next

 TextBox1.SetFocus


End Sub 

[mohammad59]

بسیار سپاسگزارم از لطفتون

حل شد.