نسخ معادلات بواسطة كود برمجي في مدى معين يتحرك بوجود بيانات في عمود آخر

[ابوسلماان]

السادة الكرام ،،،  السلام عليكم

 

الملف المرفق ،، يوجد فيه جدول يتم ترحيله من ملف آخر،، وعندي معادلات في الجدول يتم نسخها بناء على البيانات الموجودة في الجدول، وهذه البيانات قد تتغير بين الحين والآخر.

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

ملاحظة :  طبعا اول صف فيه المعادلات لايتم تغييره لأننا نقوم بنسخ المعادلات منه.

وشكراً ،،

P&LL_test.rar

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

جرب هذه الطريقة

في ورقة العمل انسخ هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Target.Column = 1 Then Exit Sub
If Not IsEmpty(Target) = True And Target.Offset(, 10) = "" Then
Range(Target.Offset(-1, 10), Target.Offset(-1, 21)).Copy
Range(Target.Offset(, 10), Target.Offset(, 21)).PasteSpecial xlPasteAll
End If
Application.CutCopyMode = False

End Sub

 

[ابوسلماان]

عفوا  ابو حنين

 

لا استطيع تشغيله ،،  نسخته في ورقة العمل وعند التشغيل يظهر لي شاشة المايكرو فاضيه ،، فكيف يمكن تشغيل الكود لو تكرمت؟

 

السؤال الثاني ،، كيف استطيع تشغيل هذا الكود وانا في ورقة عمل اخرى؟

 

شاكر لك تعونك ،،،،،

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

مرحبا

الشرح في المرفق

 

P&LL_test.rar

و هذا المثال في حالة تشغيل الكود من ورقة أخرى

P&LL_test 2.rar

[ابو عبدالبارى]

30 دقائق مضت, ابوسلماان said:

عفوا  ابو حنين

 

لا استطيع تشغيله ،،  نسخته في ورقة العمل وعند التشغيل يظهر لي شاشة المايكرو فاضيه ،، فكيف يمكن تشغيل الكود لو تكرمت؟

 

السؤال الثاني ،، كيف استطيع تشغيل هذا الكود وانا في ورقة عمل اخرى؟

 

شاكر لك تعونك ،،،،،

اخى الكريم ابوسلماان

ارجو ان يفى الملف التالى بالغرض

 

 

 

abo_abary_P&LL_test.rar

[ابوسلماان]

الف شكر 

 

استفدت كثيرا منكما ،،  بارك الله فيكما