Este fórum está sendo desativado

[GENECI]

Boa tarde.

Visando o ganhar de tempo com a digitação de dados, solicito a sua ajuda conforme o arquivo anexo.


Grato - Geneci.

[osvaldomp]

Olá, Geneci.

Experimente uma cópia do código abaixo no módulo da planilha.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Value <> "" Then Target.TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:=";"
End Sub