معادلة لقاعدة بيانات

[وليد زقزوق]

اريد معادلة من شانها عند ادخال بيان الاسم في اي نطاق احددة لها في الورقة رقم واحد مثلا

ياخد منة نسخة في قاعدة البيانات الخاصة بالبرنامج في ورقة اخري داخل الملف ولا تتا ثر بمسح الخلية الرئيسية

والتوضيح داخل المرفقالمصنف1.rar

[عبدالله باقشير]

السلام عليكم

 

استخدم الكود التالي في موديل الورقة1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Len(Trim(Target)) = 0 Then Exit Sub
With ورقة2
    .Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Target.Value
End With
End Sub

المرفق2010

المصنف771.rar

[وليد زقزوق]

الاخ

عبدالله باقشير

رائع وشكرا 

ولكن اريد ان اطبق هذا المثال علي ملف اخر ويختلف فيه طبعا مكان ورقم العمود فهل من شرح لهذا المثال 

وشكرا،،