ترحيل الكود من شيت الى شيت أخر عند الضغط عليه

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله

اخواني اعزك الله طلبي :

عند الضغط على الكود يتم ترحيل هذا الكود من شيت السجل الرئيسي الى شيت البحث

وارفق ملف يوضح الفكرة

استدعاء بيانات - ترحيل عند الضغط.rar

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

أخي الكريم ابو عبد الرحمن

كليك يمين على اسم ورقة العمل المسماة "السجل الرئيسي" ثم View Code والصق الكود التالي في حدث ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 2 And Target.Column = 1 Then
        Application.EnableEvents = False
            ورقة2.Range("B2").Value = Target.Value
        Application.EnableEvents = True
    End If
End Sub

أرجو أن يؤدي الغرض إن شاء الله

تقبل تحياتي

 

[ابو عبدالرحمن البغدادي]

تمام 100 %

جزيت خيرا

ممكن يبارك الله فيك وفي وقتك وعمرك عند الضغط على الكود (الذهاب الى ورقة شيت البحث)

اشكرك

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

بعد هذا السطر

ورقة2.Range("B2").Value = Target.Value

أضف السطر التالي

ورقة2.Activate

 

[ابو عبدالرحمن البغدادي]

تمام * تمام *** تمام

احسنت

يا مبدع 

اشكرك

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

أخي الكريم أبو عبد الرحمن

الحمد لله أن تم المطلوب على خير .. ولاحظ أنه عندما تكون الأمور واضحة يتم الحل بسهولة

تقبل وافر تقديري واحترامي

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله

وفقكم الله لما تقدموه من حلول - في ميزان حسناتكم - جزيتم خيرا