Need help with looping and find the same day, and month from the loop

[nu_miniy]

Hi guys, I new to excel and I'm having problem how to program it to my vba..
I have worksheet, that contain column: DATE, PIECES, and CODE THINGS

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="width: 75"]DATE[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"]PIECES[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]CODE THINGS[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]01/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]7[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]SQ-209-786[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]01/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]1[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]JP-333-210[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]01/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]2[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]BW-201-765[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]02/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]1[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]BW-299-745[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]03/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]5[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]BW-201-765[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]03/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]2[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]SQ-209-788[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD][TABLE="width: 75"]
<tbody>[TR]
[TD="class: xl65, width: 75, align: right"]04/01/2015[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]4[/TD]
[TD][TABLE="width: 128"]
<tbody>[TR]
[TD="width: 128"]JP-333-210[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]
So I want the vba search from 1 January- 31 December, for each row the vba will take the CODE THINGS to search in "sheet2" and use the PIECES to do some formula in "sheet2"

If try with this code:

Sub cari()
Dim i As Integer, j As Integer


For i = 1 To 12 'for month'
    For j = 1 To 31 'for day'
        For Each cell In Sheets("sheet1").Range("a1:a100")
            If cell.Value.Day = j And cell.Value.Month = i Then
                hasil = cell.Address()
                MsgBox (hasil)
                
            End If
Next
    Next
        Next
End Sub

I tried to find if my code can show the cell address but I got error "424"..
Please help me solving the problem..
Thanks & regards