Este fórum está sendo desativado

[LeoHenrique]

Boa tarde a todos !

Estou tentando fazer que a fórmula na planilha em anexo, reduza a informação até que fique com 10 dígitos, como exemplo = "013113-001", após busque na próxima linha para baixo a próxima referência e faça a mesma fórmula.
Mas não dá certo, ela pula .
Se alguém puder ajudar, agradeço !

Leandro H.M. Moreira
Franca - SP

[LeoHenrique]

Pessoal, como estou aprendendo, vou tentando até conseguir, e acabei de fazer o que queria... segue o código, caso alguém sugerir algo diferente ou mais resumido, agradeço !

Sub Atesteloop()

Windows("Miner_produto.xlsx").Activate



Dim Linha As String
Linha = 3
Cells(Linha, 2).Select



While ActiveCell.Value <> "" 'And Linha <= 50000

ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[1],23)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],10)"

Linha = Selection.End(xlDown).Select
'Cells(Linha, 2).Select


Wend

Range("C2").Select

End Sub