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

[منياوى]

المطلوب فى الملف المرفق ولكم جزيل الشكر

نسب مئوية.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود في حدث الورقة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, [C:C,D:D,E:E,F:F]) Is Nothing Then

L_a = Cells(Rows.Count, "J").End(xlUp).Row

Cells(L_a, "J") = Val(Target)

Cells(L_a + 1, "J") = WorksheetFunction.Sum(Range(Cells(1, "J"), Cells(L_a, "J")))

Cancel = True

End If

End Sub

[منياوى]

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

[منياوى]

اشكرك ولكنى استخدمت الكود ولم يستجيب

[الـعيدروس]

السموحه منك لعدم شرحي عن عمل الكود

الكود تنسخه الى حدث الورقة

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

الكود ينسخ القيمة ويضيف جمع للقيمة والقيم التي قبلها

[abouelhassan]

شكر وتقدير وفائق الاحترام استاذنا

[الـعيدروس]

اشكرك اخي أبو الحسن على مرورك الكريم

غيبت عن المنتدى ماشوفك عسى ماشر ؟

وفقك الله وسدد خطاك

[منياوى]

وضعت الكود فى حدث الورقه1 وعندما اضغط دبل كليك يعطينى هذه الرسالة وشكرا

Doc1.rar

تم تعديل ديسمبر 19, 2012 بواسطه jo11

[منياوى]

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

[الـعيدروس]

المشار اليه في مرفقك ليس الكود ؟

احذفه !

[منياوى]

اشكرك الف الف الف شكر هذا هو المطلوب جزاكم الله كل خير والف الف الف شكر