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