[حل شده] نمایش اطلاعات فیلتر شده در لیست باکس داخل یوزر فرم

[mohammad59]

سلام

یه مشکل بزرگ دارم

من در یوزر فرم یک لیست باکس دارم

می خوام اطلاعات شیت 1 که در محدوده a2 تا e20 وجود دارند وقتی فیلتر میشه (ستون a) در لیست باکسم فقط فیلتر شده ها رو نمایش بده

ولی هر کاری که می کنم همه اطلاعات رو نشون میده چه اونایی که فیلتر شدن و یا نشدن رو میاره

اگه کدی هست محبت بفرمایید

بسیار ممنون میشم

[iranweld]

با سلام

از کد ذیل استفاده کنید در صورتیکه سطر سل مورد نظر هاید نباشد در لیست باکس نمایش داده میشود.

Set rng = Sheet1.Range("A1:A20")

For Each cell In rng

If cell.EntireRow.Hidden = False Then

ListBox1.AddItem cell 

[mohammad59]

بازم خیلی خیلی سپاسگزارم حل شد مشکلم