ممكن عمل كود ترحيل لهذه الورقة مع شرحه

[hoodahooda]

ممكن عمل كود ترحيل لهذه الورقة مع شرحه

Book2.zip

[hoodahooda]

ممكن مساعدة من الأستاذ خبور

[ابو اسامة العينبوسي]

السلام عليكم

Book2.rar

[cat101]

الف مليون شكر ... يا أستاذ / ابو أسامة

[hoodahooda]

شكرا جدا ولكن لي طلب شرح هذا الكود

Sub trheel()

r = Sheets(1).Cells(1000, 1).End(xlUp).Row + 1

Sheets(1).Cells(r, 1).Value = Cells(11, 3).Value

Sheets(1).Cells(r, 2).Value = Cells(13, 3).Value

Sheets(1).Cells(r, 3).Value = Cells(20, 8).Value

Sheets(1).Cells(r, 4).Value = Cells(25, 3).Value

Sheets(1).Cells(r, 5).Value = Cells(26, 3).Value

End Sub

حتي يتثني فهمه و تطبيقه علي اكثر من عمل لدي

وشكرا