For Lopp with Year & Month function

[Forestq]

Hi,

I have simply for loop as below:

Dim r_year, r_month As Date
Dim i, rows_x As Long

rows_x = ws.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To rows_x


            If ws.Range("A" & i).Value = looking_date Then


                r_year = Year(ws.Range("S" & i).Value)
                r_month = Month(ws.Range("S" & i).Value)


            End If
Next i

And I got Run-Time error'13': Type mismatch. (on line: r_year = Year(ws.Range("S" & i).Value))

Can you help me?

 

[VoG]

Possibly

Dim r_year As Long, r_month As Long
Dim i As Long, rows_x As Long

rows_x = ws.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To rows_x


            If ws.Range("A" & i).Value = looking_date Then


                r_year = Year(ws.Range("S" & i).Value)
                r_month = Month(ws.Range("S" & i).Value)


            End If
Next i

 

[Forestq]

doesn't help,
also I tried:

r_year As Date

but still this same error.