سحب المعادلات عن طريق الكود

[الجزيرة]

التفاصيل بالملف المرفق

_____.rar

[علي السحيب]

الكود التالي ينفذ لك ما تريد،

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Or Target.Address <> "$B$3" Then Exit Sub

If Target.Address = "$B$3" And Target <> "" Then
[C3].Resize(18) = [C3].Formula
[H3].Resize(18) = [H3].Formula
Else
[C4].Resize(17) = ""
[H4].Resize(17) = ""
End If

End Sub

شاهد المرفق،

__________________________.rar

[الجزيرة]

بارك الله فيك يا أبو حسين

[ahioz]

افادكم الله

ولكنى اريد سحب معادله من عامود H والصف اللى واقف عليه من الصف اللى فوقه عند ادخال البيانات في الصف التالى

ولكم جزيل الشكر

_____.rar

[ahioz]

الرجاء الافادة اخوانى

وشكرا

[ابو اسامة العينبوسي]

جميل جدا اخ على

لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف

مثال

لو كان c1 = a1*b1

عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2

وهكذا دواليك

تم تعديل ديسمبر 13, 2006 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

جميل جدا اخ على

لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف

مثال

لو كان c1 = a1*b1

عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2 حيث تصبح C2=A2*B2

وهكذا دواليك

تم تعديل ديسمبر 15, 2006 بواسطه ابو اسامة العينبوسي

[ابو اسامة العينبوسي]

جميل جدا اخ على

لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف

مثال

لو كان c1 = a1*b1

عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2 حيث تصبح C2=A2*B2

وهكذا دواليك

تم تحرير المشاركة بواسطة ابو اسامة العينبوسي: Dec 15 2006, 10:37 AM

[ابو اسامة العينبوسي]

اخ علي

اين انت

عده محاولات لى بائت بالفشل