Outro Manipulação de String VBA

[Matheus Alvares]

Olá,

Tenho uma macro que me retorna uma célula com os seguintes dados: "AMA015246"

Eu preciso armazenar essa célula em uma variável, e escrever em outra 'Sheet', porém quando vou escrever na outra planilha as letras deve ser separada com um hifen " - "  dos números..

 

Exemplo de como necessito que fique essa variável: AMA-015246

 

Obs: Levando em consideração que eu nunca sei quantas Letras irá ter.

Obs: as Letras sempre vem antes dos números

 

Linguagem utilizada: VBA (Excel)

 

 

 

[Midori]

Você pode usar um loop para marcar quando o dígito passa a ser numérico,

 

Sub Macro()
    Dim Texto   As String
    Dim I       As Integer
    
    Texto = "AMA015246"
    
    For I = 1 To Len(Texto)
        If IsNumeric(Mid(Texto, I, 1)) Then Exit For
    Next I
    
    Texto = Left(Texto, I - 1) & "-" & Mid(Texto, I, Len(Texto))
    
    MsgBox Texto
End Sub