ترحيل من صفحه الى صفحه اخرى

[على حسن]

المطلوب

عمل كود ترحيل المبيعات اليوميه الى صفحة اجمالى المبيعات

ترحيل المبيعات.xlsx

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

جرب هذا الكود

Option Explicit
Sub Get_data()
  Dim M As Worksheet, J As Worksheet
  Dim LJ_A%, LM_A%
  Dim col%
  Dim RM As Range

Set M = Sheets("المبيعات اليوميه")
Set J = Sheets("اجمالى المبيعات")

col = 5

LM_A = M.Cells(Rows.Count, 1).End(3).Row
If LM_A = 1 Then Exit Sub

LJ_A = J.Cells(Rows.Count, 1).End(3).Row + 1
Set RM = M.Range("A2:E" & LM_A)

J.Range("a" & LJ_A).Resize(LM_A - 1, col).Value = _
RM.Value
M.Range("A2:E30").ClearContents
M.Range("B2:B30").Formula = _
 "=IF(A2="""","""",VLOOKUP(A2,aly,2,0))"
End Sub

الملف مرفق

Ali_Hasn.xlsm

[على حسن]

سليم حاصبيا

جزاك الله خيرا

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

بالاذن

خيار آخر

ترحيل المبيعات.xlsm