Guru do Excel e Power BI

Boa tarde.

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

Grato - Geneci.

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

Guru do Excel e Power BI

Todo o conteúdo numa única célula após o ENTER separar.

Todo o conteúdo numa única célula após o ENTER separar.

Re: Todo o conteúdo numa única célula após o ENTER separar.