ابو عبدالرحمن البغدادي قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 السلام عليكم - حياكم الله اخواني اعزك الله طلبي : عند الضغط على الكود يتم ترحيل هذا الكود من شيت السجل الرئيسي الى شيت البحث وارفق ملف يوضح الفكرة استدعاء بيانات - ترحيل عند الضغط.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 أخي الكريم ابو عبد الرحمن كليك يمين على اسم ورقة العمل المسماة "السجل الرئيسي" ثم 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 أرجو أن يؤدي الغرض إن شاء الله تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابو عبدالرحمن البغدادي قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 تمام 100 % جزيت خيرا ممكن يبارك الله فيك وفي وقتك وعمرك عند الضغط على الكود (الذهاب الى ورقة شيت البحث) اشكرك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 بعد هذا السطر ورقة2.Range("B2").Value = Target.Value أضف السطر التالي ورقة2.Activate 2 رابط هذا التعليق شارك More sharing options...
ابو عبدالرحمن البغدادي قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 تمام * تمام *** تمام احسنت يا مبدع اشكرك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 أخي الكريم أبو عبد الرحمن الحمد لله أن تم المطلوب على خير .. ولاحظ أنه عندما تكون الأمور واضحة يتم الحل بسهولة تقبل وافر تقديري واحترامي 1 رابط هذا التعليق شارك More sharing options...
ابو عبدالرحمن البغدادي قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 السلام عليكم - حياكم الله وفقكم الله لما تقدموه من حلول - في ميزان حسناتكم - جزيتم خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان