للضرروة : ترحيل البيانات المحذوفة من شييت إلى آخر

[ماكس]

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

اخواني في هذا الصرح الشامخ الذي كثرا ما أستفدت وتعلمت منه الكثير ..

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

مرفق لكم مثال بسيط

في أنتظار الإفادة وجزاكم الله خيرا أخواني ..

ترحيل المحذوف.rar

تم تعديل فبراير 22, 2016 بواسطه maxstreets

[أبوبسمله]

اخى الفاضل

الفكره دى هتم على مرحلتين نسخ الصف اللى هيتحذف ولصقه فى الشيت المحدد لذلك

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

ان شاء الله يتدخل احد اساتذتنا ويساعدنا

Sub ماكرو1()
'
' ماكرو1 ماكرو
' الماكرو مسجل ‎2016-02-22 بواسطة أحمد الفلاحجى
'

'
    Rows("2:2").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub

اذا اردت التجربه على المثال ادخل على محرر الاكواد ثم عدل اسطر الاول وخليه مثلا 

لان الصف الثانى اتحذف

 Rows("1:1").Select
' Rows("3:3").Select

 

بالتوفيق اخى

New ورقة عمل Microsoft Excel.rar

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

بعد اذن اخي احمد (لا حط الخلية C3 التي تحتو ي على معادلة)

 

ترحيل المحذوف 1.rar

تم تعديل فبراير 22, 2016 بواسطه سليم حاصبيا

[أبوبسمله]

اتفضل اخى سليم

فنحن اللذين نستاذنكم فانتم اساتذتنا ونتعلم منكم

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

[ماكس]

أخواني احمد الفلاحجي + سليم حاصيبا اشكركم على تفاعلم وسرعة ردكم وهذا يدل على اهتمامكم بإستفسارتنا ومحالة مساعدة جميع الاعضاء ..

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

أرفق مثال من مشاركة قريبة ولكن ليست يهذه الطريقة لكن توصل لكم المعلومة..

 

 

ترحيل with macro same sheet.rar

تم تعديل فبراير 22, 2016 بواسطه maxstreets

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

الان, maxstreets said:

أخواني احمد الفلاحجي + سليم حاصيبا اشكركم على تفاعلم وسرعة ردكم وهذا يدل على اهتمامكم بإستفسارتنا ومحالة مساعدة جميع الاعضاء ..

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

أرفق مثال من مشاركة قريبة ولكن ليست يهذه الطريقة لكن توصل لكم المعلومة..

 

ترحيل with macro same sheet.rar

لا اعتقد انه يمكن عمل ذلك بواسطة المعادلات

[ماكس]

لكن أستاذي في المرفق الاخير  ترحيل with macro same sheet.rar  تم عمل هذا بهذه الطريقة عن مسح اي سطر من Sheet1 ينتقل الممسوح الى Sheet2

 

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

5 دقائق مضت, maxstreets said:

لكن أستاذي في المرفق الاخير  ترحيل with macro same sheet.rar  تم عمل هذا بهذه الطريقة عن مسح اي سطر من Sheet1 ينتقل الممسوح الى Sheet2

 

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

تم تعديل فبراير 22, 2016 بواسطه سليم حاصبيا

[ماكس]

26 دقائق مضت, سليم حاصبيا said:

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

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

[أبوبسمله]

7 ساعات مضت, سليم حاصبيا said:

بعد اذن اخي احمد (لا حط الخلية C3 التي تحتو ي على معادلة)

 

ترحيل المحذوف 1.rar

اخى سليم

فى هذا المثال عندما اضغط على الزر يقوم بترحيل كل الموجود

ليس هذا المقصود بمعنى

بفرض ان لدينا جدول بيانات مثل هذا اريد انا احدد صف واحد للحذف فيقوم بحذفه ونقله للشيت المعنى بحفظ البيانات المحذوفه

لعلى قد اوضحت لك الفكره

وجزاك الله كل خير على ما تقدمه من مساعدات قيمه فى سبيل تعليمنا

[ماكس]

في إنتظار الحل اخواني

[أبوبسمله]

في ٢٢‏/٢‏/٢٠١٦ at 15:10, سليم حاصبيا said:

بعد اذن اخي احمد (لا حط الخلية C3 التي تحتو ي على معادلة)

 

ترحيل المحذوف 1.rar

 

في ٢٢‏/٢‏/٢٠١٦ at 22:41, أحمد الفلاحجى said:

اخى سليم

فى هذا المثال عندما اضغط على الزر يقوم بترحيل كل الموجود

ليس هذا المقصود بمعنى

بفرض ان لدينا جدول بيانات مثل هذا اريد انا احدد صف واحد للحذف فيقوم بحذفه ونقله للشيت المعنى بحفظ البيانات المحذوفه

لعلى قد اوضحت لك الفكره

وجزاك الله كل خير على ما تقدمه من مساعدات قيمه فى سبيل تعليمنا

اخى سليم ننتظرك انت او احد الاخوه الافاضل جزاكم الله خيرا

[أبوبسمله]

في ٢٥‏/٢‏/٢٠١٦ at 22:41, maxstreets said:

في إنتظار الحل اخواني

اتفضل اخى الفاضل

ان شاء الله يكون كما تريد ناقص جزئيه بسيطه ألا وهى لصق البيانات بدون معادلات والحفاظ على المعادلات بالشيت الاول

ان شاء الله ساحاول فيها

Sub PasteRowDelete()
    Application.ScreenUpdating = False
        Worksheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select
            ActiveCell.EntireRow.Select
                Selection.Cut
                    Sheets("هنا ضع اسم الشيت اللى سيتم النسخ اليه").Select
              Range("A65536").End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste
    Application.CutCopyMode = False
        Sheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select
            Selection.Delete Shift:=xlUp
        ActiveCell.Select
    Application.ScreenUpdating = True
End Sub

بالتوفيق اخى ونرجو منك تغيير الاسم الى اللغه العربيه لنتعرف بشخصكم الطيب

[ماكس]

اشكرك اخي احمد على المجهود لكن اين اضع الكود ..؟؟

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

أخي الكريم

يرجى الإطلاع على هذا الرابط لمعرفة بدايات التعامل مع محرر الأكواد

من هنا

[ماكس]

اعرف تطبيق الاكواد أخي احمد ..

انت تقصد ارن اربط هذا الكود بماكرو واعمل له زر 

سوف ارفق المثال بعد التطبيق

واشكرك على المتابعة وإلى الامام دوما

[أبوبسمله]

اتفضل أخى

ده ملف مطبق عليه الكود

أخى ياسر ارجو منك ضبط النقطه الاخيره فى هذا الكود وهى ان يقوم بنسخ القيم فقط فى حالة لو كانت البيانات ناتجه من معادلات

وجزاك الله كل خير يا ابوالبراء

بالتوفيق

حذف صف وترحيله.rar

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

أخي الحبيب أحمد

لم افهم المطلوب بشكل جيد ..

الكود يقوم بحذف الصفوف من ورقة لأخرى .. هل المعادلات ستكون في الصف بالنطاق أم ستكون في عمود محدد؟ وماذا لو كانت المعادلة جزء من نطاق الصف كيف سيتم الحذف .؟؟ الحذف في هذه الحالة سيؤثر على النطاق بشكل غير مرغوب فيه

 

 

[أبوبسمله]

جزاك الله خيرا يا ابو البراء

بالنسبه لسؤالى فاعتقد انها لن تؤثر لان المعادله اللى اللى هستخدمها هيى لا ستخراج التاريخ من الرقم القومى فمش هتكون لها تاثير على اى صف تانى

واذا كان هناك اى توضيح او لبس نرجو توضيحه فمنكم نتعلم ونستفيد لنرتقى

جزاك الله كل خير اخى ياسر وبارك الله لك فى اهلك ومالك ووقتك ورزقك من حيث لا تحتسب

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

اطلعت على الملف ولم أجد فيه معادلات .. يرجى إرفاق ملف معبر وكيف تريد شكل النتائج بالضبط لتتضح صورة طلبك

[أبوبسمله]

جزاك الله كل خير اخى وحبيبى ياسر

قمت بعمل التنسيقات والمعادله بتاريخ الميلاد

المطلوب ان يتم الترحيل كقيم مع المحافظه على الفورمات النص نص واهم خانه فى النص رقم التليفون حتى لا يتم ازالة الصفر على اليسار والتاريخ بتنسيقه

 

حذف صف وترحيلة.rar

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

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

جرب الكود التالي ولكن قبل التنفيذ قم بتنسيق الأعمدة في الورقة الهدف أي الورقة التي سيتم نقل البيانات إليها بالشكل الذي تريده

Sub PasteRowDelete()
    Application.ScreenUpdating = False
    
        With Worksheets("البيانات")
            .Rows(ActiveCell.Row).Copy
            Sheets("ما تم حذفه").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
           
            .Rows(ActiveCell.Row).Delete Shift:=xlUp
            Sheets("البيانات").Select
        End With
        
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

 

[أبوبسمله]

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

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

جرب الكود التالي ولكن قبل التنفيذ قم بتنسيق الأعمدة في الورقة الهدف أي الورقة التي سيتم نقل البيانات إليها بالشكل الذي تريده

Sub PasteRowDelete()
    Application.ScreenUpdating = False
    
        With Worksheets("البيانات")
            .Rows(ActiveCell.Row).Copy
            Sheets("ما تم حذفه").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
           
            .Rows(ActiveCell.Row).Delete Shift:=xlUp
            Sheets("البيانات").Select
        End With
        
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

 

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

تسلم ايدك ياغالى

انا عملتلك نيش مخصوص للاعجابات بما إن إحنا مشهورين بالاثاث ههههههههههههه

حبيبى يا ابوالبراء

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

أخي الكريم الفلاحجي ..نيش فايدة فيك لازم تهزر وتخليني أهزر ونقلب الموضوع من هزار لهزار

تقبل تحياتي

[أبوبسمله]

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

أخي الكريم الفلاحجي ..نيش فايدة فيك لازم تهزر وتخليني أهزر ونقلب الموضوع من هزار لهزار

تقبل تحياتي

ههههههههههههههههههه

حبيبى

ناقصنا العربى ربنا ييسر له امره ويهون عليه اشغاله

ربنا يحفظكم ويبارك فيكم