Este fórum está sendo desativado

[Angra]

Bom dia
Usando o gravador de macro criei e nao funcionou pq nao aceita o carácter informado, como resolver isso

[AfonsoMira]

Boa tarde estive a pesquisar um pouco e encontrei esse video.
Pode ser que ajude.
https://www.youtube.com/watch?v=7o4Nft4nI28
Alguma dúvida só chamar.

[babdallas]

Veja se ajuda.

Código: Selecionar todos

Public Sub TrocarCaractere()
    Dim vrtDados        As Variant
    Dim lngCont         As Long
    
    vrtDados = wshTeste.Range("K3:K14").Value
    
    For lngCont = LBound(vrtDados) To UBound(vrtDados)
        If vrtDados(lngCont, 1) = 1 Then vrtDados(lngCont, 1) = Application.WorksheetFunction.Unichar(9676)
    Next lngCont
    
    wshTeste.Range("K3:K14").Value = vrtDados
End Sub

[Angra]

Bom dia
AfonsoMira e babdalla, grato aos srs. pela ajuda e esclarecimentos. Aprendi um pouco mais com o link sugerido pelo AfonsoMira e a macro do babdalla.