Boa tarde, como sempre falamos, o ideal é postar a planilha pra evitar erros ou multitrabalhos desnecessários.
Mas segue minha sugestão:
Sub executa()
Dim wsheet As Worksheet
Dim UltiLinha As Long
Set wsheet = Sheets("pCalculos")
wsheet.Select
wsheet.Range("u1").Select
UltiLinha = wsheet.Range("u1048576").End(xlUp).Row
For x = 1 To UltiLinha
If Cells(x, 21).Value = 7 Then
Cells(x, 31).Value = Cells(x, 26).Value
End If
Next
Msgbox "Dados copiados!"
Esse código percorre por toda coluna U em busca de valores iguais a 7 para poder copiar os dados da coluna Z para a AE.
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro
Postado : 30/08/2017 5:25 am