فیلتر با لیست باکس و کچی محدوده

[ali.b]

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

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

[mokaram]

نفرمودید که با کلیک روی اطلاعات لیست باکس ، فیلتر شدن بر چه مبنایی انجام بشه؟

[ali.b]

از این کد استفاده کردم

With Range("A1").CurrentRegion        .AutoFilter        .AutoFilter Field:=1, Criteria1:=Me.ListBox1.List(ListBox1.ListIndex, 0)    End With 

اطلاعات رو بگیره بره تو شیت دیگه کپی کنه

[abootorab]

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

با درود
دوست عزیز فایل نمونه طبق درخواستتون آماده و ضمیمه کردم.
چون Sheet1 قفل بود و شما هم پسوورد شیت رو نداده بودین اون رو حذف کردم و دقیقا Sheet2 رو با اطلاعات شبیه Sheet1 ایجاد کردم، همچنین Sheet3 به عنوان نمونه برای کپی شدن اطلاعات درون آن اضافه نمودم.
توضیح: با کلیک بر روی دکمه "ثبت اطلاعات" در شیت2، یوزرفرم ظاهر شده و اطلاعات درون شیت2 در لیست باکس نمایان می شود، حال با کلیک بر روی هر ردیف از لیست باکس اطلاعات درون شیت2 بر اساس ستون "نام و نام خانوادگی" فیلتر شده و همین اطلاعات فیلتر شده درون شیت3 کپی میگردد.
امیدوارم منظورتونو درست متوجه شده باشم.

[ali.b]

ممنون دمت گرم دوست عزیز