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

[احمد محمد ماترك]

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

اخوتيالاعزاء . عاوز كود ترحيل  والملف مرفق يوضح المطلوب وجزاكم الله طل خير

New Microsoft Excel Worksheet.rar New Microsoft Excel Worksheet.xlsx

[سليم حاصبيا]

ربما ينفع هذا الكود

Option Explicit

Sub Dive_Last_Row()
  If ActiveSheet.Name = "الايراد" Then Exit Sub
  Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _
  ActiveSheet.Range("a4").End(4).Resize(, 3).Value

End Sub

الملف مرفق

Matrek.xlsm

[احمد محمد ماترك]

 

1

تم تعديل مارس 15, 2019 بواسطه احمد محمد ماترك

[احمد محمد ماترك]

.

[احمد محمد ماترك]

يا استاذ سليم الكود بيرحل خليتين بس في العمود عاوز اخليه يرحل العمود كله

بنفس فكره حضرتك 

 

Matrek (1).xlsm

[سليم حاصبيا]

راجع هذا العنوان

https://www.officena.net/ib/topic/89773-تعديل-بسيط-في-كود/

 

[احمد محمد ماترك]

اخي الكريم انا فعلا عاوز اخر عمليه هيه الي تترحل مع الاحتفاظ بها في شيت الطالب  .انا عاوز اخر عمليه تتم في اي خليه في العمود وجزاكم الله كل خير اخي الكريم

[احمد محمد ماترك]

الرجاء الرد ضروري اخوتي الكرام