شكرا جدا ولكن لي طلب شرح هذا الكود
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
حتي يتثني فهمه و تطبيقه علي اكثر من عمل لدي
وشكرا