Robson Cardoso

Consegui galera, segue o código a quem precise de algo parecido;

   Sub Find_Matches()    Dim CompareRange As Variant, x As Variant, y As Variant, Z As Variant    Dim iRet As Integer    Dim strPrompt As String    Dim strTitle As String     ' Promt    strPrompt = "Deseja copiar os códigos existentes?"     ' Dialog's Title    strTitle = "Copiar códigos"     'Display MessageBox    iRet = MsgBox(strPrompt, vbYesNo, strTitle)     ' Check pressed button    If iRet = vbNo Then         Else         Application.ScreenUpdating = False          Set CompareRange = Range("C7", ActiveSheet.Range("C65536").End(xlUp))     CompareRange.Select             For Each x In Selection                    If x.Offset(0, -2).Value <> "" Then                    Z = x.Offset(0, -2).Value         For Each y In CompareRange             If x = y Then y.Offset(0, -2).Select             If ActiveCell = "" Then             ActiveCell.Value = Z             End If             Next y         Else         End If     Next x     End If    End Sub

Caso alguém tenha alguma sugestão podem falar

@osvaldomp testei esse código e nada aconteceu.

Obrigado

Galera consegui chegar nesse código, 

    Sub Find_Matches()    Dim CompareRange As Variant, x As Variant, y As Variant, Z As Variant    Dim iRet As Integer    Dim strPrompt As String    Dim strTitle As String     ' Promt    strPrompt = "Deseja copiar os códigos existentes?"     ' Dialog's Title    strTitle = "Copiar códigos"     'Display MessageBox    iRet = MsgBox(strPrompt, vbYesNo, strTitle)     ' Check pressed button    If iRet = vbNo Then           Else         Application.ScreenUpdating = False          Set CompareRange = Range("C10", ActiveSheet.Range("C65536").End(xlUp))     CompareRange.Select             For Each x In Selection                    If x.Offset(0, -2).Value <> "" Then                    Z = x.Offset(0, -2).Value         For Each y In CompareRange             If x = y Then y.Offset(0, -2).Select             If ActiveCell = "" Then             ActiveCell.Value = Z             End If             Next y         Else         End If     Next x     End If    End Sub    

Mas por algum motivo o primeiro código que a macro encontra ela cola ná célua C10 alguém sabe o que está errado?

Valeu

Eu pensei nisso mas os códigos variam cada vez que fazemos uma planilha como essa, não são códigos fixos.

Bom dia Patropi

Eu consegui anexar salvando em xls, mas obrigado pela dica.

Olá Bom dia,

Eu tentei anexar a planilha mas o fórum me disse que não tenho permissão pra anexar este tipo de arquivo a planilha está em XLSM.

Edit:Consegui anexar.

Boa tarde galera,

Estou precisando de uma ajuda de vocês, tenho aqui no trabalho uma planilha de levantamento de materiais que é composta por código, descritivo, quantidade, preço, etc.Os materiais se repetem várias vezes e o que gostaria é o seguinte quando eu inserir um código na célula A10 por exemplo a macro procure na coluna C pelo descritivo da célula C10 e caso encontre por exemplo na C30 a célula A30 receba o mesmo código da célula A10,

Segue imagem e planilha planilha pra facilitar o entendimento..

Obrigado!!

SOE.xls