ارجو مساعدتي في استكمال الكود

[ahmedbadawi14@yahoo.com]

الاخوة الافاضل ..

 

ارجو مساعدتي في الكود الاتي :

انشأت كود لترحيل البيانات من ورقة العمل " تفصيل " الي ورقة العمل " فوندي" ولكن ..

اريد ترحيل الصفوف في ورقة العمل "تفصيل" بشرط وجود بيانات بالعمود المرحل , وترحل الي ورقة العمل " فوندي "

وعندما ترحل البيانات - اريد ان يتم جمع كميات الكود الواحد - ولا يتم تكررا الاكواد بالصفوف 

 

ارجو مساعدتي في استكمال الكود - 

 

1.xlsm

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

جرب هذا الماكرو (تم تبديل اسماء الصفحات لحسن عمل الكود)

Option Explicit
               
Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("Source")
Dim T_sh As Worksheet: Set T_sh = Sheets("Target")
Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion

T_sh.Range("a1").CurrentRegion.ClearContents
T_sh.Range("q2").Formula = "=Source!$G2<>"""""
My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _
CopyToRange:=T_sh.Range("A1")
T_sh.Range("q2").ClearContents
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

 

salim.xlsm

[ahmedbadawi14@yahoo.com]

استاذ سليم - بارك الله بك - الكود يعمل جيد جدااااا - جزاك الله خيرا كثيرااااااا

هل من الممكن مساعدتي في الاتي ..

عند الترحيل اكثر من مرة لنفس الكود يتم جمع كميته علي نفس الكود بالورقة الاخري 

عند الترحيل اريد ترحيل الاعمدة ( الكود , الصنف , اللون , اسم الصنيعي ) بورقة العمل " source " الي نفس الاعمدة بورقة العمل الاخري "target" , وترحيل عمود المرحل بورقة العمل  " source " الي عمود الانتاج تحت التشغيل بورقة العمل "target" , مع طرح الكمية المرحلة من ورقة العمل " source " من الكمية الموجود في نفس ورقة العمل بالعمود "E" (تام من المرحلة ) وبعد ذلك حذف الكمية المرحلة المرحلة من العمود "G" بعد انتهاء الترحيل .

salim.xlsm