سلام
فایلی دارم که میخوام اگر ستون هفتم آن مساوی E0 باشد ردیف های قبلی را چک کند و از ردیفی که شرط زیر را دارد ستون سوم آن ردیف را در ستون دوم آن ردیف دارای EO نمایش دهد.
کد ماکرو زیر را نوشته ام ولی با ارور مواجه شدم ممنون میشم راهنماییم کنید. فایل رو هک پیوست میکنم.
فایلی دارم که میخوام اگر ستون هفتم آن مساوی E0 باشد ردیف های قبلی را چک کند و از ردیفی که شرط زیر را دارد ستون سوم آن ردیف را در ستون دوم آن ردیف دارای EO نمایش دهد.
کد ماکرو زیر را نوشته ام ولی با ارور مواجه شدم ممنون میشم راهنماییم کنید. فایل رو هک پیوست میکنم.
کد PHP:
Sub a()
z1 = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
j = 1
For i = 2 To z1
j = i + 1
If Sheet1.Cells(i, 7) = Sheet1.Cells(2, 8) Then
For k = i To j
If Sheet1.Cells(k - 1, 1) < Sheet1.Cells(i, 1) And Sheet1.Cells(k - 1, 7) <> Sheet1.Cells(3, 8) Then
Sheet1.Cells(i, 2) = Sheet1.Cells(k, 3)
k = k - 1
End If
Next i
End If
End Sub