علي السحيب قام بنشر نوفمبر 26, 2006 قام بنشر نوفمبر 26, 2006 الكود التالي ينفذ لك ما تريد، 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 قام بنشر ديسمبر 13, 2006 قام بنشر ديسمبر 13, 2006 افادكم الله ولكنى اريد سحب معادله من عامود H والصف اللى واقف عليه من الصف اللى فوقه عند ادخال البيانات في الصف التالى ولكم جزيل الشكر _____.rar
ابو اسامة العينبوسي قام بنشر ديسمبر 13, 2006 قام بنشر ديسمبر 13, 2006 (معدل) جميل جدا اخ على لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف مثال لو كان c1 = a1*b1 عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2 وهكذا دواليك تم تعديل ديسمبر 13, 2006 بواسطه ابو اسامة العينبوسي
ابو اسامة العينبوسي قام بنشر ديسمبر 15, 2006 قام بنشر ديسمبر 15, 2006 (معدل) جميل جدا اخ على لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف مثال لو كان c1 = a1*b1 عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2 حيث تصبح C2=A2*B2 وهكذا دواليك تم تعديل ديسمبر 15, 2006 بواسطه ابو اسامة العينبوسي
ابو اسامة العينبوسي قام بنشر ديسمبر 20, 2006 قام بنشر ديسمبر 20, 2006 جميل جدا اخ على لكن ممكن ان يتم نقل تعميم الصيغه خليه واحده الى الاسفل عند الادخال في الصف مثال لو كان c1 = a1*b1 عند الانتقال الى a2 يتم نسخ الصيغه من c1 الى c2 حيث تصبح C2=A2*B2 وهكذا دواليك تم تحرير المشاركة بواسطة ابو اسامة العينبوسي: Dec 15 2006, 10:37 AM
ابو اسامة العينبوسي قام بنشر ديسمبر 21, 2006 قام بنشر ديسمبر 21, 2006 اخ علي اين انت عده محاولات لى بائت بالفشل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.