Arnon Soares

Pessoal, Estou tendo um problema na elaboração de uma planilha. Estou desenvolvendo uma planilha que irá verificar se determinado equipamento já existe na planilha, existindo ela irá somente atualizar informações desse equipamento, e caso não exista, ela irá criar essas informações. Meu problema é exatamente no método find. Segue abaixo o meu código. Sub Gravar_Atualizar_Dados() If Range("I8").Value = "" Then MsgBox "Insira o TAG do equipamento!" Else Dim TAG As String Dim CellFinder As Long Dim LastCell As Integer Dim Unidade As String TAG = Range("I8").Value Unidade = Range ("E8").Value Sheets("DataBase").Select CellFinder = Columns(1).Find(TAG,,,,xlByColumns, xlPrevious) If CellFinder is Nothing Then LasCell = Range("A65000").End(xlUp).Row + 1 Range ("A" & LastCell).Value = TAG Range ("B" & LastCell).Value = Unidade MsgBox "Novo equipamento cadastrado com sucesso!" Else CellFinder = Columns(1).Find(TAG,,,,xlByColumns, xlPrevious).Row + 1 Range ("B" & CellFinder).Value = unidade MsgBox "Equipamento atualizado com sucesso!" End Sub