[حل شده] انتقال از 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]

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