atob قام بنشر نوفمبر 23, 2006 مشاركة قام بنشر نوفمبر 23, 2006 السلام عليكم ورحمه الله وبركاته اشكر كل مشرفين هذا المنتدى على تجاوبهم معنا دائما والحقيقه انني اعجز عن شكرهم واعطائهم حقهم فلهم مني الدعاء بصلاح حالهم في الدنيا والاخره وقد تعلمت من هذا المنتدى الشئ الكثير ولكن قد يواجهني بعض الاستفسارات وخاصه في الاكواد فأتمنى انني ما اثقل عليكم سؤالي هو كيف اجعل الكود يشتغل عندما اختار خليه ما من ضمن خلايا محدده وليس بضغط زر الكود وما هي الجمله التي تضاف للكود لكي يتم السابق (طبعا الاخ تامر الله يجزاه خير سبق ان ساعدني في مرفق سابق من هذه النوعيه ولكن صعب علي تنفيذه على ملفات اخرى ) واذا امكن عندي مرفق يوضح ما اطلب ولكم مني جزيل الشكر والتقدير _____.zip رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 23, 2006 مشاركة قام بنشر نوفمبر 23, 2006 الكود التالي ينفذ لك ماتريد: Private Sub Worksheet_SelectionChange(ByVal Target As Range) For R = 6 To 35 If Target.Address = "$C$4" Then Cells(R, 10) = Sheet2.Cells(R, 4) Cells(R, 11) = Sheet2.Cells(R, 5) Cells(R, 12) = Sheet2.Cells(R, 6) [I4] = Target ElseIf Target.Address = "$C$5" Then Cells(R, 10) = Sheet2.Cells(R, 9) Cells(R, 11) = Sheet2.Cells(R, 10) Cells(R, 12) = Sheet2.Cells(R, 11) [I4] = Target ElseIf Target.Address = "$C$6" Then Cells(R, 10) = Sheet2.Cells(R, 14) Cells(R, 11) = Sheet2.Cells(R, 15) Cells(R, 12) = Sheet2.Cells(R, 16) [I4] = Target ElseIf Target.Address = "$C$7" Then Cells(R, 10) = Sheet2.Cells(R, 19) Cells(R, 11) = Sheet2.Cells(R, 20) Cells(R, 12) = Sheet2.Cells(R, 21) [I4] = Target End If Next End Sub شاهد المرفق، ______________________________________.rar رابط هذا التعليق شارك More sharing options...
atob قام بنشر نوفمبر 23, 2006 الكاتب مشاركة قام بنشر نوفمبر 23, 2006 اخي علي الله يكتب لك الاجر والحقيقه انك مبدع ويا حظك بالاجر الكبير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.