طلب مساعدة في ترحيل بيانات من الليست إلى الشيت

[AMIRBM]

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

إخواني الافاضل أريد منكم مساعدة

ترحيل البيانات يبدأ من الصف السادس أي G6 بدلا من G2

بارك الله فيكم .

ترحيل البيانات officena.xlsm

مشكور بارك الله فيكم

 

[محي الدين ابو البشر]

عليكم السلام

ربما

Private Sub CommandButton3_Click()
Dim c&, i&
For i = 0 To ListBox1.ListCount - 1
With Sheets("ورقة1")
.Range("g6").Offset(c).Value = ListBox1.List(i, 0)
.Range("h6").Offset(c).Value = ListBox1.List(i, 1)
.Range("i6").Offset(c).Value = ListBox1.List(i, 2)
c = c + 1
End With
Next i

End Sub

 

[AMIRBM]

بارك الله فيك أستاذ وجزاك الله خيرا مشكور

[محي الدين ابو البشر]

بارك الله