انتقال از listbox به شیت

[ali.b]

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

ممنون میشم تو فایل نمونه بهم نشون بدین

[ali.b]

On Error Resume Next For i = 2 To ListBox1.ListCount sheet1.range("f2") = ListBox1.List(i - 1, 0) shet1.range("f1") = ListBox1.List(i - 1, 1) Sheet1.Range("c5").Offset(i, 0) = ListBox1.List(i - 1, 3) Sheet1.Range("d5").Offset(i, 0) = ListBox1.List(i - 1, 4) Sheet1.Range("b5").Offset(i, 0) = ListBox1.List(i - 1, 5) Sheet1.Range("e5").Offset(i, 0) = ListBox1.List(i - 1, 6)
Next i

با این کد حلش کردم

[Ali Parsaei]

سلام،
اين فايل را هم ببينيد: