gamalin2 قام بنشر يوليو 1, 2021 مشاركة قام بنشر يوليو 1, 2021 الاخوة الافاضل ممكن ح يتكرم ويشرح لي الكود ده وليه لا يعمل محتاج ادون معادلات في كل من f , g ,j ,k عند كتابة الكود ووضع المعادلة في f فقط يعمل جيدا وعند اضافة معادلات اخرى في اي خانه يتوقف الملف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 5 And Target.Column < 11 And Target.Column <> 6 Then Range("f" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-1],item!C[-4]:C[4],2,FALSE),""ßæÏ ÛíÑ ãÚÑÝ "")" Range("g" & Target.Row).Formula = "=IFERROR(VLOOKUP(RC[-2],bal_cost!C:C[15],10,FALSE),""ßæÏ ÛíÑ ãÚÑÝ "")" 'Range("i" & Target.Row).Formula = "=IF(ISBLANK(A" & Target.Row & "),0,E" & Target.Row & "*H" & Target.Row & ")" End If End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 1, 2021 أفضل إجابة مشاركة قام بنشر يوليو 1, 2021 العمود G والعمود I ضمن المدى الذي إذا تغير يغير المعادلات فتبقى في سلسلة لا نهاية من تنفيذ الكود وحتى تستثني العمود G والعمود I يجب أن تضيف شرط ألا يكون العمود 7 أو 9 If Target.Row > 5 And Target.Column < 11 And Target.Column <> 6 And Target.Column <> 7 And Target.Column <> 9 Then بالتوفيق رابط هذا التعليق شارك 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.