Help to compare two sheets

[nhnn1986]

Hi all
I have two sheet(A) and sheets(B), now I want to compare with three conditions and color row(j) in sheet(B) if wrong
Conditions that:
1. Mid(sheet(A).row(i) = Mid(sheet(B).row(j)= "201808-5600"
2. Sheet(A).row(i,2) = "1011"
3. Sheet(A).row(i,3).value/1000 = Sheet(B).row(j,2).value

How can I do that by VBA code

Thanks./.

Sheet (A)
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]A000-201808-56000-123[/TD]
[TD]1011[/TD]
[TD]100000[/TD]
[TD]...[/TD]
[/TR]
[TR]
[TD]B001-201807-56001-123[/TD]
[TD]1012[/TD]
[TD]150000[/TD]
[TD]...[/TD]
[/TR]
[TR]
[TD]A001-201807-56004-123[/TD]
[TD]4501[/TD]
[TD]200000[/TD]
[TD]...[/TD]
[/TR]
[TR]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[TD]...[/TD]
[/TR]
</tbody>[/TABLE]









Sheet(B)
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]B001-201808-56000-123456[/TD]
[TD]100[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]B001-201808-56000-123456[/TD]
[TD]150[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[nhnn1986]

Plz help me./.

 

[nhnn1986]

Some bode plz help