Macro substitui valor por carácter especifico
Enviado: 26 Abr 2020 às 09:50
por Angra
Bom dia
Usando o gravador de macro criei e nao funcionou pq nao aceita o carácter informado, como resolver isso
Macro substitui valor por carácter especifico
Enviado: 27 Abr 2020 às 04:32
por 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.
Re: Macro substitui valor por carácter especifico
Enviado: 27 Abr 2020 às 08:14
por babdallas
Veja se ajuda.
Código: Selecionar todosPublic 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
Re: Macro substitui valor por carácter especifico
Enviado: 27 Abr 2020 às 08:26
por 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.