[حل شده] انتقال اطلاعات از لیست باکس به شیت

[سید مسعود قمی]

سلام دوستان من داخل فرمم vba لیست باکسی دارم که میخوام با کلیک روی لیست باکس ستون های لیست باکس به شیت مثلا دو انتقال داده بشه
مثلا
ستون 1 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون a از ردیف 4 تا ردیف ... بریزه
ستون 2 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون c از ردیف 4 تا ردیف ... بریزه
ستون 3 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون d از ردیف 4 تا ردیف ... بریزه
ستون 4 لیست باکسم هر مقدار ردیفی که داره رو داخل شیت 2 ستون b از ردیف 4 تا ردیف ... بریزه

[iranweld]

با سلام

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

Private Sub ListBox1_Click()

        
        For i = 0 To ListBox1.ListCount - 1
            
            
              msg1 = msg1 & vbNewLine & ListBox1.List(i, 0)
              msg2 = msg2 & vbNewLine & ListBox1.List(i, 1)
              msg3 = msg3 & vbNewLine & ListBox1.List(i, 2)
              msg4 = msg4 & vbNewLine & ListBox1.List(i, 3)
              msg5 = msg5 & vbNewLine & ListBox1.List(i, 4)
              
        Next i
          
MsgBox msg1
MsgBox msg2
MsgBox msg3
MsgBox msg4
MsgBox msg5
        

    
End Sub 

[سید مسعود قمی]

خیلی ممنون از جوابتون ولی یکم برام سخت بود
لطفا راحتر بگید
من میخوام مثلا محتوای ستون 0 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های c6 تا c30
بعد محتوای ستون 1 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های d6 تا d30
بعد محتوای ستون 2 لیست باکسم رو هر چند تاست به ترتیب بریزم داخل سلول های e6 تا e30
و ...

[iranweld]

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

[سید مسعود قمی]

ممنون استاد فقط ی راهنمایی دیگه هم میخواستم
چجوری میشه مثلا ردیف های خالی بین c6 تا e30 رو با کد vba حذف کنم

[iranweld]

ممنون استاد فقط ی راهنمایی دیگه هم میخواستم
چجوری میشه مثلا ردیف های خالی بین c6 تا e30 رو با کد vba حذف کنم

با این کد

Range("c3:e30").ClearContents