مطلوب طريقة ربط صفحة باخرى ببرنامج الاكسل بشكل تلقائي

[sameh51]

السلام عليكم

أخواني الكرام احتاج خدمة من فضلكم لمن لديه الخبرة في برنامج الاكسل

المطلوب هو :

لدي ملف أكسل توجد به 3 صفحات ، ما اريده هو

كل ما يتم ادخاله بصفحة 2 من جدول او رقم او خانة او او يكتب بصفة مباشرة بالصفحة 1 اي

تكون صفحة واحد مماثلة لصفحة 2 بطريقة مباشرة وليست يدوية

ما اريده هو هذه الطريقة او المعادلة الخاصة بها .

تحياتي

[الـعيدروس]

السلام عليكم

اهلا وسهلا فيك عضو جديد في منتدانا الغالي

نرجو منك ارفاق مثال وبه شرح مبسط لما تريد

لإرفاق ملف اكسل اضغط الملف بأحد برامج الضغك Winrar أو Winzip

ثم أرفقه

وأن شاء الله خير

[حمادة عمر]

الاخ الفاضل

بعد اذن الاستاذ الكبير / عباد

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

ارجو من الله ان يفيدك

http://www.officena.net/ib/index.php?showtopic=44625

[sameh51]

السلام عليكم

شكراً لترحيبكم أخواني الكرام ، أما بالنسبة لارفاق مثال فلا يحتاج ،

افتحو برنامج الاكسل واعمل شيت جديد

الصفحتان فارغتان ، ما اريده هو عند كتابة اي شير في الصفحة الثانية مثلا في الجدول b 10 يكتب تلقائياً في الصفحة واحد بـ b10

هذا قصدي ، وان تعددت الصفحات مثلاً كانت 10 صفحات أريد طريقة التي اربط بها مثلا ما يتم كتابته في شيت 6 يكتب في شيت 8 تلقائي .

اتمنى وصلتكم الفكرة اخواني .. بانتظاركم

[حمادة عمر]

السلام عليكم

الاخ / sameh51

ارفاق ملف يوضح طلبك اكثر واكثر للكل ويعطي فرصة للكثير من الحلول

فهو يوضح وجهه نظرك وطلبك كما تريد تماما

وايضا ياريت لو ترفق ملف وانظر للملف المرفق فبعد التعديل علي الشيت 1 وكتابة ما تريد اضغط علي الزر الموجود بالشيت 1

ستجد صورة طبق الاصل في الشيت رقم 2

Book1111.rar

[الـعيدروس]

السلام عيكم

بعد اذن اخي حماده عمر

استخدم هذا الكود في حدث Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Ar

Dim A$

'**********************************************

' أي تغير في ورقة2 يطابقة في ورقة1 , وأي تغير في ورقة4 يطابقة في ورقة 3

'**********************************************

Ar = Array("ورقة2", "ورقة1", "ورقة4", "ورقة3")

'**********************************************

S = Ar(0): S1 = Ar(1)

Select Case Sh.Name

    Case Is = Ar(0)

	    A = Target.Address

	    Sheets(Ar(1)).Range(A) = Range(A)

    Case Is = Ar(2)

	    A = Target.Address

	    Sheets(Ar(3)).Range(A) = Range(A)

End Select

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ / القدير عباد

الكود رائع واظن انه هو المطلوب ... ولكني كنت احاول المساعدة فقط

لعلمي بمشغولياتكم فأحببت ان ارد علي قدري حتي يمكنكم الرد

والاكيد (( انه ليس بعد ردك رد استاذي القدير ))

جزاك الله خيرا

[sameh51]

السلام عليكم

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

وجزاكم الله كل خير إن شاء الله .

تحياتي لكم