مطلوب كود لاداراج صف جديد

[mahmoud kamal]

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

* فى البداية اسال الله ان يبارك فى كل القائمين على هذا المنتدى وان يجعل هذا العمل صدقة جارية فى ميزان حسناتهم.

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

 

[حمادة عمر]

هل الصف المقصود به معادلات ام لا ؟؟

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

تقبل خالص تحياتي

[mahmoud kamal]

مرفق مثال

1.rar

[mahmoud kamal]

هل الصف المقصود به معادلات ام لا ؟؟

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

تقبل خالص تحياتي

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

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

[حمادة عمر]

جرب الكود البسيط التالي

لتنفيذ المطلوب ... بعد وضعه في زر امر مثلا

Sub sama()
Application.ScreenUpdating = False
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Select
Application.ScreenUpdating = True
End Sub

تم تعديل ديسمبر 19, 2013 بواسطه حمادة عمر

[أ محمد عبد الصمد]

مع كامل احترامى للاستاذ حمادة عمر بعد اذنك

 

Sub isertrow()
'
'
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

هذه الكود استخدمه أول احدد الصف الذى اريد الادراج فوقه ثم اضغط على الزر لتغشيل الكود

[حمادة عمر]

السلام عليكم

الاخ الفاضل  / أ محمد عبد الصمد

بارك الله فيك

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

تقبل خالص تحياتي

[أ محمد عبد الصمد]

السلام عليكم

الاخ الفاضل  / أ محمد عبد الصمد

بارك الله فيك

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

تقبل خالص تحياتي

الف الف شكر لقد تعلمت منكم الكثير والكثير

 

وهذا لادراج

عمود

Sub insarcolman()

'

' Macro1 ãÇßÑæ

'

'

       Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

 

[حمادة عمر]

تقبل خالص تحياتي

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

[mahmoud kamal]

 

مع كامل احترامى للاستاذ حمادة عمر بعد اذنك

 

Sub isertrow()

'

'

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

هذه الكود استخدمه أول احدد الصف الذى اريد الادراج فوقه ثم اضغط على الزر لتغشيل الكود

 

جزاك الله خير على مجهودك

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

[mahmoud kamal]

 

جرب الكود البسيط التالي

لتنفيذ المطلوب ... بعد وضعه في زر امر مثلا

Sub sama()
Application.ScreenUpdating = False
ActiveCell.EntireRow.Select
ActiveCell.EntireRow.Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Select
Application.ScreenUpdating = True
End Sub

جزاك الله خير على هذا المجهود الرائع.

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / mahmoud kamal

بارك الله فيك

والحمد لله ان هداك الي ما تريد

وكلنا هنا اخي الكريم نتعلم من بعضنا البعض

ومعك دائما باذن الله

تقبل خالص تحياتي