ترحيل حسب او بشرط اسم ورقة العمل برمجيا بدون استخدام زر ماكرو

[احمد عبدالحليم]

السلام عليكم ورحمةالله

مطلوب فضلا وليس امرا ترحيل من شيت يومية عامة الى باقى الشيتات حسب اسم ورقة العمل واسم الصنف 

ويكون الترحيل  فى حدث ورقة عمل (يومية   عامة )

وليس باستخدام زرار للماكرو

ولكم كل الشكر اساتذتنا وخبرائنا 

ترحيل حسب اسم ورقة العمل والصنف.rar

[ياسر خليل أبو البراء]

أخي الكريم أحمد

جرب الكود التالي عله يفي بالغرض (راعي أن تكون أسماء أوراق العمل كما في العمود الثالث .. حيث وجدت ورقة العمل صنف 1 مكتوبة بمسافة بعد كلمة صنف .. ولذا يجب أن تكون كما باقي أوراق العمل صنف1 بدون مسافة بينهما)

Sub Test()
    Dim Ws      As Worksheet
    Dim cel     As Range
    Dim LR      As Long
    Dim Last    As Long

    Set Ws = Sheet1
    LR = Ws.Cells(Rows.Count, 1).End(xlUp).Row

    Application.ScreenUpdating = False
        For Each cel In Ws.Range("C2:C" & LR)
            On Error Resume Next
            Last = Sheets(cel.Value).Cells(Rows.Count, 1).End(xlUp).Row + 1
            Sheets(cel.Value).Range("A" & Last).Resize(1, 7).Value = Ws.Range("A" & cel.Row).Resize(1, 7).Value
        Next cel
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

[احمد عبدالحليم]

شكرا استاذى الفاضل ياسر خليل أبو البراء على مرورك العطر 

اولا : الكود شغال 100% فى حالة انى اعمل مفتاح (زرار) واضف الكود عليه .

ثانيا : كنت اريد ان يتم الترحيل تلقائى اى بمجرد ان يتم تعبئة اى خلية فى عمود الاصناف والانتقال منها  يرحل الصف كله الى شيت الصنف وهنا ظهرت مشكلة اخرى الحقلة التكرارية تكرر الاصناف كل عمليه ترحيل وذلك لان شيت اليومية العامة لا اريد مسح البيانات منه ستظل موجودة 

ثالثا : هل مطلبى ينفذ بهذه الطريقة 
 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
'ونضع الكود هنا
' وحاولت وضعه هنا ولكن واهتنى مشاكل

End If
End Sub

رابعا : اسف على الاطالة

وشكرا لسعة صدركم 

[ياسر خليل أبو البراء]

لما لا تقوم بكتابة البيانات كلها مرة واحدة ثم تقوم بعملية الترحيل مرة واحدة .. أنا لا أحبذ التعامل مع أحداث ورقة العمل إلا للضرورة ..

وإذا كان ولابد فيجب التوضيح بشكل أكثر للمطلوب .. هل يتم كتابة اسم الصنف كآخر بيان أي تريد إحداث وتنفيذ عملية الترحيل عند كتابة اسم الصنف أم عمود آخر .. راعي انه لابد أن تكون الخلايا مستوفاة البيانات قبل الترحيل وأن يتم الترحيل بمجرد إدخال بيان في عمود محدد

[احمد عبدالحليم]

فعلا نغير مكان عمود الاصناف ونجلعه اخر عمود لانه يجب الاحتفاظ باليومية العامة 

او نجلعه عمود القيمة مثلا 

19 دقائق مضت, ياسر خليل أبو البراء said:

أنا لا أحبذ التعامل مع أحداث ورقة العمل إلا للضرورة ..

هل هناك اضرار او مشاكل عند التعامل مع احداث ورقة العمل ارجوا الافادة

تم تعديل يوليو 20, 2016 بواسطه أحمد حليم

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

السلام عليكم

ممكن حفظكم الله منع تكرار الترحيل اذا كانت البيانات متشابه مع الاحتفاظ بالبيانات في شيت يومية عامة

جزيتم خيرا

[احمد عبدالحليم]

وعليكم السلام اخى ابو عبدالرحمن البغدادى 

سيتم الحل ان شاء الله كما تريد