atob قام بنشر نوفمبر 23, 2006 قام بنشر نوفمبر 23, 2006 السلام عليكم ورحمه الله وبركاته اشكر كل مشرفين هذا المنتدى على تجاوبهم معنا دائما والحقيقه انني اعجز عن شكرهم واعطائهم حقهم فلهم مني الدعاء بصلاح حالهم في الدنيا والاخره وقد تعلمت من هذا المنتدى الشئ الكثير ولكن قد يواجهني بعض الاستفسارات وخاصه في الاكواد فأتمنى انني ما اثقل عليكم سؤالي هو كيف اجعل الكود يشتغل عندما اختار خليه ما من ضمن خلايا محدده وليس بضغط زر الكود وما هي الجمله التي تضاف للكود لكي يتم السابق (طبعا الاخ تامر الله يجزاه خير سبق ان ساعدني في مرفق سابق من هذه النوعيه ولكن صعب علي تنفيذه على ملفات اخرى ) واذا امكن عندي مرفق يوضح ما اطلب ولكم مني جزيل الشكر والتقدير _____.zip
علي السحيب قام بنشر نوفمبر 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
atob قام بنشر نوفمبر 23, 2006 الكاتب قام بنشر نوفمبر 23, 2006 اخي علي الله يكتب لك الاجر والحقيقه انك مبدع ويا حظك بالاجر الكبير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.