Ajuda - Texto para colunas automático

[ViniciuZ]

Olá galera,

Tenho o seguinte problema:

Na tabela acima as células B1:D5 receberá de outra tabela os nomes completo, mas precisarei somente do último nome, essa macro abaixo se executada manualmente funciona, mas precisaria que ela fosse automática, que quando fosse colado inteiro a macro já detectasse e ativasse essa macro pra separar o nome.

Obs.: Os dados vão sendo preenchido a cada semana. Na tabela acima, a coluna C já tem seus valores disponíveis, mas para separar eu teria q executar a macro.

Macro: Separar

Sub Separar()

Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _

:=Array(Array(1, 9), Array(2, 1))

End Sub

Agradeço desde já,

Vinícius

Editado Julho 31, 2014 por ViniciuZ

[Benhur Palini]

Oi, ViniciusZ!

Abra o projeto e dê um click duplo na planilha onde está a tabela.

O evento Worksheet_Selectionchange(ByVal Target As Range) já deverá aparecer como padrão. Este evento ocorre cada vez que alguma célula é ativada.

Este exemplo atribui o valor 1 à célula ativada:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

ActiveCell.Value = 1

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

mas poderia ser assim:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Separar()

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''