مساعده فى الليست بوكس

[إبراهيم ابوليله]

الاخوه الكرام

لدى ليست بوكس

مكونه من 7 اعمده

اريد ترحيل العمود من 1 اى 4 الى شيت الاكسل

ومن 6الى7

كيف يكون شكل الكود

[شوقي ربيع]

Private Sub ListBox1_Click()
With Me.ListBox1
 n = .ListIndex
Cells(1, 6) = .List(n, 1)
Cells(1, 7) = .List(n, 4)
 End With

End Sub

[شوقي ربيع]

اضن انك تقصد هذا

Sub Test()
With ListBox1
    For r = 0 To .ListCount - 1
           Cells(r + 1, 6) = .List(r, 0)
           Cells(r + 1, 7) = .List(r, 3)
    Next
End With
End Sub

ترحيل العمود الاول والرابع  باكملهما

[إبراهيم ابوليله]

اخى شوقى

بارك الله فيك

ومشكورا على الكود الجميل ده

ولكنة اريدن ترحيل

العمود من 1:4 بداية من الخليه a4

والعمود من 6:7 بدايه من الخليه e4

[إبراهيم ابوليله]

اخى مصطفى

تفضل

 

New folder.rar