نسخ صف بجميع التنسيقات والمعادلات أسفل الصف الحالي

[نبيل عبد الهادي]

المطلوب: في المرفق وفي sheet(الدليل المحاسبي)عند اختيار اي صف والنقر عليه  double click يقوم بنسخ نفسه تحته مباشرة وبجميع التنسيقات والمعادلات : مع فائق شكري وتقديري  للاخوه في هذا الصرح العلمي الكبير

دليل الحسابات 2016.rar

[أبو حنــــين]

مرحبا

جرب هذا الكود

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, "FT")).Copy
    Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, "FT")).Insert Shift:=xlDown
End Sub

 

[نبيل عبد الهادي]

بارك الله فيك اخي  ابو محمد الامين هذا هو المطلوب بالضبط والكود يعمل 100% الله يجعلها في ميزان حسناتك

 

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

تم تغيير العنوان ..يراعى أن يكون العنوان معبر عن الموضوع

يرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى

تقبل تحياتي