سؤال عن كيفية ربط عدة خلايا بين صفحتين أكسل

[محمد أبو العلا]

السلام عليكم و رحمة الله و بركاته 

لدى سؤال هام بخصوص كيفية ربط عدة خلايا ببعضهم بين صفحتين أكسل ...
بحيث عندما اضغط على خلية فى الصفحة الأولى تنقلنى مباشرة إلى الخلية المشابهة لها فى الصفحة الأخرى ...

و لمزيد من التوضيح إليكم ملف الأكسل .

و شكرا مقدمــا.

سؤال عن ربط خلايا بين صفحتين فى الاكسل.rar

[ياسر خليل أبو البراء]

الأخ الكريم

أهلا بك بين إخوانك وأحبابك في الله

-------------------------------

يرجى تغيير اسمك للغة العربية لسهولة التواصل

كما يرجى الإطلاع على رابط التوجيهات لمعرفة قواعد المنتدى

-------------------------------

رحبنا وعرفنا القواعد إليك الملف التالي وإن شاء الله يفي بالغرض

 

Hyperlink Formula YasserKhalil.rar

[محمد أبو العلا]

أخى جزاك الله خيرا على الملف و سرعة الرد ..
و لكن أنا اريد ان اعرف كيفية عمل الطريقة و شكرا .

[محمد أبو العلا]

او حتى إن أمكن .. فهل يمكن عمل خلية للبحث عن أمر العملية فى صفحة اسماء العملاء و اوامر العمليات ؟؟

[ياسر خليل أبو البراء]

الطريقة مرفقة في الملف المرفق عبارة عن معادلة لعمل اللازم

ادرس المعادلة وشوف إزاي اتعملت ..

[محمد أبو العلا]

تمام .. و لكن هل توجد طريقة لعمل خانة للبحث بحيث عندما اكتب بها رقم امر العملية تنقلنى مباشرة إلى امر العملية مثل Find و لكن فى شكل خلية ؟؟

[ياسر خليل أبو البراء]

الأخ الفاضل يرجى تغيير اسمك للغة العربية لسهولة التواصل

جرب الملف التالي

تم عمل قائمة منسدلة اختار منها رقم العملية سيتم نقلك إليها

وعند الانتقال للورقة الأخرى يمكنك الرجوع إلى الورقة الرئيسية بمجرد النقر المزدوج داخل أي خلية في العمود G

دا الكود الأول في حدث ورقة العمل الأولى

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("H3")) Is Nothing Then
        Sheet2.Activate
        X = Application.WorksheetFunction.Match(Sheet1.Range("H3").Value, Sheet2.Columns("G:G"), 0)
        Sheet2.Cells(X, "G").Select
    End If
End Sub

ودا الكود الثاني في حدث ورقة العمل الثانية

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Columns("G:G")) Is Nothing Then
        Sheet1.Activate
    End If
End Sub

تقبل تحياتي

 

ولا تنسى التوجيهات (حدد أفضل إجابة ليظهر الموضوع منتهي ومجاب)

Hyperlink Formula YasserKhalil V2.rar

[محمد أبو العلا]

جزاك الله خيرا يا أخى .. و لكن هل توجد طريقة لكتابة امر العملية فى الخلية مباشرة بدون قائمة مندلسة ...
أى نفس الفكرة و لكن تتم كتابة رقم أمر العملية مباشرة بدون اختيارها من قائمة مندلسة ؟؟ و يفضل لو بدون Macro 
و أتأسف على كثرة الأسئلة .

[عبدالله فاروق ابو ريان]

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

[ياسر خليل أبو البراء]

الأخ الفاضل محمد أبو العلا

صراحة مبقتش عارف ايه المطلوب

قدمت لك حل بالمعادلات .. وحل بالاكواد !!

 

بالنسبة للقائمة المنسدلة روح للخلية اللي فيها القائمة المنسدلة وبعدين روح للتبويب Data ثم Data Validation ثم ستجد في النافذة الأمر Clear All وبذلك تتخلص من القائمة المنسدلة

ويمكنك استخدام الخلية لكتابة أي رقم لأي عملية ..

[محمد أبو العلا]

أخى ياسر قنديل جزاك الله خيرا على تعبك معايا ..
و بالفعل تم الغاء القائمة المندلسة من ال Data Validation >>>
تتبقى خطوة أخيرة و هى عمل هذه الفكرة و لكن بالمعادلات و ليس بالأكواد .. أى خلية للبحث فى و لكن بالمعادلات فقط بدون استخدام الأكواد .. و شكرا

[محمد أبو العلا]

أخى عبد الله فاروق . جزاك الله خيرا هذه طريقة جيدة و لكنى أريد ان انشئ خلية للبحث بالمعادلات فقط بحيث عندما اكتب رقم امر العملية يوجهنى مباشرة الى رقم امر العملية هذا فى الصفحة الأخرى ..

[ياسر خليل أبو البراء]

المعادلات أخي الحبيب لن تؤدي ما تطلبه ..فقط بالاكواد أو بالمعادلة التي سبق أن أعطيتك إياها ..