طلب شرح لكود يعمل عند التغيير في شيت

[gamalin2]

الاخوة الافاضل 

ممكن ح يتكرم ويشرح لي الكود ده وليه لا يعمل 

محتاج ادون معادلات في كل من 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

 

[أ / محمد صالح]

العمود 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

بالتوفيق