Macro transformar Célula Ativa de texto para data

[edcarlosrec]

Boa tarde amigos,

Preciso de uma macro que leia as células que eu selecionar e transforme em data.

O caso é o seguinte, quando eu colo os dados de uma fonte minha para o excel, as células de data podem conter dois valores.

Ex1: 27/10/2014 A

Ex2: 27/10/2014*

Eu sempre vou ter a letra A ou o * no final da data.

Sendo assim, os dados sempre serão lidos como Texto.

O que eu preciso, é de uma Macro que leia essas células, e caso contenha o A ou então o * no final, transforme para data, retirando esses caracteres.

Exemplo: De 27/10/2014 A para 27/10/2014

O que eu consegui, foi criar uma macro para cada situação, que seria a macro deleta A e a macro deleta *.

Depois criei uma sub para rodar as duas macros, e dá erro.

Alguém tem alguma noção de como resolver?

Grato.

[Agostinho Paula Filho]

dim data as date

data = left("27/10/2014 A", 10) 'ou seja, considere apenas os 10 primeiro caracteres, nesse caso, vai resultar em 27/10/2014 (pode contar os caracteres)

qualquer duvida pode me mandar email