ما الخطأ في هذا الكود

[gamalin2]

الاخوة الاعزاء

Sub temp_2()
    Sheets("tempcashout2").Select
    Range("B5,B6,b7,b8,b9,b10,f6").Select
    Selection.ClearContents
 ' Sheets("tempcashout2").Cells(5, 2).FormulaR1C1 = "=today()"
Dim ER As Long
ER = Sheets("tempcashmove").Range("a1").CurrentRegion.Rows.Count
Dim I As Integer
 For I = 5 To ER
  If Sheets("tempcashmove").Cells(I, "o").Text = "p" And Sheets("tempcashmove").Cells(I, "p").Text = "no" Then
  Sheets("tempcashout2").Cells(6, 2).Value = Sheets("tempcashmove").Cells(I, 2).Value
  Sheets("tempcashout2").Cells(7, 2).Value = Sheets("tempcashmove").Cells(I, 3).Value
  Sheets("tempcashout2").Cells(7, 6).FormulaR1C1 = "=IFERROR(VLOOKUP(R[-1]C,acc!C[-4]:C[1],2,FALSE),"""")"
  Sheets("tempcashout2").Cells(8, 2).Value = Sheets("tempcashmove").Cells(I, 8).Value
  Sheets("tempcashout2").Cells(10, 2).FormulaR1C1 = "=R[-1]C-R[-2]C"
  Sheets("tempcashout2").Cells(11, 2).Value = Sheets("tempcashmove").Cells(I, 5).Value
  Sheets("tempcashmove").Cells(I, 15).Value = "ÇÞÝÇá"
  Sheets("tempcashmove").Cells(I, 16).Value = Sheets("tempcashout2").Cells(4, 2).Value
  End If
    Next I
End Sub
عند الغاء الشرط الكود يعمل والشرط ضروري هل يمكن مراجعة ما الخطأ في تركيبة الشرط 

Sub temp_2()
    If Sheets("tempcashmove").Cells(I, "o").Text = "p" And Sheets("tempcashmove").Cells(I, "p").Text = "no" Then

  End If
 

 

 

[gamalin2]

شاكر اهتمامكم تم الحل