كود اضافه صف ولا يؤثر على المعادلات

[۩◊۩ أبو حنين ۩◊۩]

هل يمكن عمل كود باضافه صف عند الضغط على الرز الاحمر اسفل اخر صف مكتوب به وهو الصف 19وهكذا على ان يكون بنفس الفرمات والشروط ولا يؤثر على المعادلات التى فى الخلايا w4 الى w7

 

كود اخر يقوم بنفس الامر عند الضغط على الرز الازرق على ان يكون اضافه الصف اسفل اخر صف مكتوب به وهو الصف الصف 39

وهكذا على ان يكون بنفس الفرمات والشروط والشروط ولا يؤثر على المعادلات التى فى الخلايا w24 الى w27

ارجو المساعده 

ترقيه.rar

[إبراهيم ابوليله]

اخى ابوحنين

الق نظره على هذا الكود

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

ADD ROW.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب 

إبراهيم ابوليله فعلا هذا هو المراد ... ولاكنى اعجز عن تطبيقه على الملف الخاص بى 

فما الحل 

[۩◊۩ أبو حنين ۩◊۩]

للرفع اكرمكم الله

[۩◊۩ أبو حنين ۩◊۩]

للرفع اكرمكم الله

[إبراهيم ابوليله]

اخى ابو حنين

المشكله فى كثرة الجداول

اعتقد ان الموضوع صعب

فى انتظار ردود الخبراء

[۩◊۩ أبو حنين ۩◊۩]

للرفع

[۩◊۩ أبو حنين ۩◊۩]

الملف بعد اخر تعديل

وجدت كود للاخ طارق محمود ... واعجز عن تطبيقه

 

ترقيه2.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

وجدت كود رائع للاخ طارق والاخ عبد الله باقشير

الا عند تنفيذة يوجد خطاء 

الاخوة الافاضل ارجو ان يكون اضفه الصف عن طريق INSERT وليس PASET

ارجو المساعده

ترقيه4.rar

تم تعديل مايو 4, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[elkomy]

استاذ ضاحي

عند الفتح ظهرة هذة الرسالة

 

جج.PNG

 

تسلم ياغالى

[محمود_الشريف]

أخى فى الله

الأستاذ // ابو حنين

اليكم الملف بالمرفقات لعله يكون به المطلوب

وتقبلوا منى وافر الاحترام والتقدير

ترقيه11.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب محمود 

الكود يعمل الا عند اضافه صفوف يتم وضعهم  نكان مدخلات اخرى

بمعنى عند ادراج 5 اسطر فى حقول كلابشة ..يتم وضعهم على بيانات حقول ام بركة

لهذا كان الطلب يكون اضافه الصف عن طريق INSERT وليس PASET

ارجو ان تجرب وقم باضافه 5 او اكثر ... منتظؤ الرد

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

ارجو المساعده

الملف النهائى فى المشاركة رقم 9 المسمى بى  ترقيه4

[طارق محمود]

السلام عليكم

أخي العزيز

إبحث عن السطر التالي في الكود

                mpRow.Offset(1, 0).EntireRow.Insert

 

وغيره إلي

                mpRow.Offset(0, 0).EntireRow.Insert

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب طارق اسال الله ان تكون بكل خير

اخى الحبيب ... تم تغير السطر كما نوهت .. الا انه عند استخدام الكود واضافه الصفوف المراده ... بتم الكتابه على البيانات التى تليها  وتظهر عند ارداج 5 صفوف فاكثر

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

المشكله الاولى

المشكله الثانية بعد تعديل السطر

اخى طارق اعلم مدى انشغالك ..

برجاء توضيخ رقم 4 ماذا يعنى 

Private Const MyColumn As Integer = 4

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

تم تعديل مايو 5, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[طارق محمود]

عذرا صديقي

فهذا حالنا مع أكواد العبقري / عبدالله باقشير حفظه الله

تحتاج وقت لدراستها ووقت للإستمتاع بها

ثم قد تستطيع أو لاتستطيع التعديل عليها

إبحث مرة أخري عن نفس السطر وأرجعه إلي القيمة الأولي

                mpRow.Offset(1, 0).EntireRow.Insert

ثم

إبحث عن السطر التالي 

    With Cells(LastRow, 2).Resize(MyRow, .Columns.Count)

وغير قيمته من 2 إلي 1

    With Cells(LastRow, 1).Resize(MyRow, .Columns.Count)

 

 ليصبح الكود هكذا

............
............

        If Not mpRow Is Nothing Then
            For i = 1 To MyRow
                mpRow.Offset(1, 0).EntireRow.Insert
            Next
        LastRow = mpRow.Row + 1


        Else
        LastRow = [E999].End(xlUp).Row + 1
        End If
        
If MyRow = False Then Exit Sub
With Range(MyRng_Copy)
    .Copy
    With Cells(LastRow, 1).Resize(MyRow, .Columns.Count)
        .PasteSpecial xlPasteAll
        .SpecialCells(xlCellTypeConstants).ClearContents
    End With
    .Columns(1).Offset(LastRow, 0).Select
End With
.........
..........

[طارق محمود]

برجاء توضيخ رقم 4 ماذا يعنى 

Private Const MyColumn As Integer = 4

 

 

 

هذه

Private Const MyColumn As Integer = 4

تعني

أنني سأستخدم متغيرا رقميا صحيحا بقيمة ثابتة تساوي دائما 4 وسميته MyColumn 

متغيرا رقميا صحيحا Integer 

بقيمة ثابتة Const 

تساوي دائما 4  = 4

 

ولكن يبدو أن أستاذنا الجليل / عبدالله باقشير لم يستخدم هذا المتغير بعد أن عرفه في صدر الكود

 

وبنفس الطريقة

يمكنك فهم التالي(في صدر الكود أيضا)

Private Const MyRng_Copy As String = "A9:Z9"

 

وهذه تعني

أنني سأستخدم متغيرا نصيا ثابت يساوي دائما "A9:Z9" وسميته MyRng_Copy 

فيما بعد ، في الكود ، ستجد هذا المتغير يستخدم كعنوان للنطاق (أو المجال)

===========================

 

هناك طريقة لفهم خطوات أي كود ببساطة ، بدلا من أن يتم تنفيذ الكود دفعة واحدة (بالكبس علي الزر أو بضغط F5 من محرر الأكواد)

تلك الطريقة تمكنك من تتبع خطوات الكود واكتشاف الخطأ متي يبدأ ولماذا

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

علي أن يكون الملف أيضا في مجال رؤيتك لتري التغيرات واحدة بواحدة

ثم بضغط F8 من محرر الأكواد مرة أخري لتفيذ الخطوة الواحدة التالية من الكود

وهكذا

[طارق محمود]

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

ترقيه4.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب طارق 

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

والله لا اجد ما اقدرك حقك انت وبافى الاخوة الافاضل 

وخاصه العبقري / عبدالله باقشير حفظه الله

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

تم تعديل مايو 5, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩