على حسن قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 المطلوب عمل كود ترحيل المبيعات اليوميه الى صفحة اجمالى المبيعات ترحيل المبيعات.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 28, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 28, 2020 جرب هذا الكود 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 3 رابط هذا التعليق شارك More sharing options...
على حسن قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 سليم حاصبيا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 بالاذن خيار آخر ترحيل المبيعات.xlsm 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها