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

DATE <tbody> </tbody>	PIECES <tbody> </tbody>	CODE THINGS <tbody> </tbody>
01/01/2015 <tbody> </tbody>	7	SQ-209-786 <tbody> </tbody>
01/01/2015 <tbody> </tbody>	1	JP-333-210 <tbody> </tbody>
01/01/2015 <tbody> </tbody>	2	BW-201-765 <tbody> </tbody>
02/01/2015 <tbody> </tbody>	1	BW-299-745 <tbody> </tbody>
03/01/2015 <tbody> </tbody>	5	BW-201-765 <tbody> </tbody>
03/01/2015 <tbody> </tbody>	2	SQ-209-788 <tbody> </tbody>
04/01/2015 <tbody> </tbody>	4	JP-333-210 <tbody> </tbody>

<tbody>
</tbody>

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