Runtime error '424' driving me nuts!!

[JoanaMartins]

Please, I so need your help!

The error appears when i do the set w thing!

I am kind of a beginner so can you kindly help me?

Sub Datas()

Dim w As Range
Dim t As Long
Dim i As Long




t = Sheets("Crono").Cells(Rows.Count, "A").End(xlUp).Row




For i = 8 To t


Set w = Sheets("Projetos NOVO").Range("C:C").Find(Sheets("Crono").Range("A" & i).Value).Row


If Sheets("Projetos NOVO").Range("D" & w).Find(Sheets("Crono").Range("C" & i).Value).Row Then


Sheets("Crono").Range("F" & i).Value = Sheets("Projetos NOVO").Range("R" & w).Value
Sheets("Crono").Range("G" & i).Value = Sheets("Projetos NOVO").Range("S" & w).Value


Else


End If


Next i


End Sub

Thank you in advance!

 

[wideboydixon]

You can also specify the comparison method without using UCase:

If Instr(1, w.Offset(0, 1).Value, cs.Cells(i, 1).Value, vbTextCompare) > 0 Then

WBD

 

[JoanaMartins]

It works 90%.
I did not realize that there is not only one match for the first criteria.
What happens with the current code is that it finds the value on a cell and doesn't continue to look for others. it automatically goes to the next one.