Vsarti, primeiramente você só deve dar o Tópico como Resolvido quando ele for finalizado, e como anexou o modelo a procura de uma solução, tirei esta condição do mesmo.
Quanto a sua questão, cole as rotinas abaixo em um Modulo, execute a rotina Sub LocalizaValores() e veja se é isto oque está pretendendo, se sim, dai pode setar o tópico como Resolvido.
Dim sPesquisar
Sub LocalizaValores()
Dim MyArray
'Os valores de pesquisa e alteração sempre serão os mesmos
MyArray = Array("81278", "81362", "81054")
For Each sValor In MyArray
Sheets("DATASUL Lista").Select
With Worksheets("DATASUL Lista").Range("A:A")
Set sPesquisar = .Find(sValor, LookIn:=xlValues, lookat:=xlWhole)
If Not sPesquisar Is Nothing Then
sPesquisar.Activate
Call AlteraValores
End If
End With
Next
End Sub
Sub AlteraValores()
'Os valores de alteração sempre serão os mesmos
Select Case sPesquisar
Case "81278"
sPesquisar.Offset(0, 1).Value = "18590/20"
Case "81362"
sPesquisar.Offset(0, 1).Value = "115126/250X"
Case "81054"
sPesquisar.Offset(0, 3).Value = 0
Case Else
End Select
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/07/2013 6:40 pm