سلام
لرای کپی ایتم هایی که از لیست باکس انتخاب کردین از کد زیر میتوانید استفاده کنید
اگه همه موارد رو میخواین خط دستور شرطی if رو بردارین رنگ قرمز
صفر رنگ ابی هم ستون مد نظر هسن و c هم رنجی که میخوایید داده ها در انجا درج بشن
لرای کپی ایتم هایی که از لیست باکس انتخاب کردین از کد زیر میتوانید استفاده کنید
کد:
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
صفر رنگ ابی هم ستون مد نظر هسن و c هم رنجی که میخوایید داده ها در انجا درج بشن