(آموزشی) کپی ایتم های انتخاب شده از لیست باکس

[ali.b]

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

Sheet2.Select
Dim lItem As Long
    For lItem = 0 To ListBox1.ListCount - 1
[COLOR=#ff0000]        If ListBox1.Selected(lItem) Then[/COLOR]
            Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1).Value = ListBox1.LIST(lItem,[COLOR=#0000ff]0[/COLOR])
[COLOR=#ff0000]        End If[/COLOR]
    Next lItem

اگه همه موارد رو میخواین خط دستور شرطی if رو بردارین رنگ قرمز
صفر رنگ ابی هم ستون مد نظر هسن و c هم رنجی که میخوایید داده ها در انجا درج بشن