Wag, bom dia!
Por favor, preciso de sua ajuda nesse tópico, pois acredito que você vai conseguir resolver 
Tenho essa macro aqui:
Sub AlteraCódigo()
Dim cod As Range, codAdd As String, m As Long, p As String, c As Long
Set cod = Rows(1).Find("<cod>", lookat:=xlWhole)
If Not cod Is Nothing Then
codAdd = cod.Address
Do
c = Application.Match("<produto>", Range(cod.Address & ":U1"), 0) + cod.Column - 1
p = Cells(1, c + 1)
m = Application.Match("*" & p & "*", Sheets("meu cadastro").[D:D], 0)
cod.Offset(, 1).Value = Sheets("meu cadastro").Cells(m, 2)
Set cod = Rows(1).FindNext(after:=cod)
Loop While cod.Address <> codAdd
End If
End Sub
Essa macro altera a o código de uma determinada planilha, porém apenas se a descrição origem for igual a descrição destino.
Exemplo:
macro funciona se estiver assim:
descrição origem: caneta
descrição destino: caneta
COMO EU PRECISO
EU PRECISO QUE ESSA MACRO TAMBÉM FUNCIONE SE AS DESCRIÇÕES ESTIVEREM ASSIM:
descrição origem: caneta preta
descrição destino: caneta
a macro deve ler a descrição e verificar que o produto é o mesmo (a única diferença é que existe um pequeno complemento na origem).
Eu estou direcionando essa dúvida para você, pelo seguinte motivo: VOCÊ JÁ ME AJUDOU COM UMA DÚVIDA PARECIDA, olha o tópico onde você resolveu o meu problema.
Tópico resolvido por você WAG: http://planilhando.com.br/forum/viewtop ... 10&t=24182
Eu direcionei para o Wag, mas se alguém souber como faço para adaptar essa macro, eu também agradeço muito (só direcionei para o Wag, pois ele já me ajudou antes).
Muito obrigado a todos pela atenção.
Atenciosamente,
Marco
Postado : 25/04/2017 8:35 am