Ganhe dinheiro  escrevendo tutoriais para o Fórum do BABOO! Conheça os Tutoriais Pagos 2016

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fernando Wobeto

Separador no excel

12 posts neste tópico

E ai pessoal tenho uma planilha no excel com uma lista de telefones, e eu gostaria de acrescentar um hifem no meio dos dígitos.

ex: 99772458 por 9977-2458 (de todos os números, que são em torno de 2000)

Mas não me serve acrescentar máscara!

Precisa ser mudança geral dos números.

Valeu!

4.gif


[]´s

NOME: Fernando Wobeto

MAIL: fernandowobeto@gmail.com

FRASE: "Não dê o peixe, ensine a pescar!"

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Taí a fórmula pedida, onde B1 é o número do telefone sem o traço separador.

você deve colocar esta fórmula numa outra posição, tipo C1.

Eu ainda previ a possibilidade de você ter um numero de telefone com apenas 7 dígitos!

=IF(LEN(B1)=7;LEFT(B1;3);LEFT(B1;4))&"-"&RIGHT(B1;4)

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

On 12/31/2002 6:47:41 PM Alcy wrote:

Taí a fórmula pedida, onde B1 é o número do telefone sem o traço separador.

você deve colocar esta fórmula numa outra posição, tipo C1.

Eu ainda previ a possibilidade de você ter um numero de telefone com apenas 7 dígitos!

=IF(LEN(B1)=7;LEFT(B1;3);LEFT(B1;4))&"-"&RIGHT(B1;4)

----------------

Cara valeu, mas.... não funcionu a fórmula ela nem dá erro mas aparece #NOME? dentro da célula.5.gif


[]´s

NOME: Fernando Wobeto

MAIL: fernandowobeto@gmail.com

FRASE: "Não dê o peixe, ensine a pescar!"

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente o seguinte:

Selecione todas as células em que você irá colocar os números de telefones e faça o seguinte:

1- Após estar com as células selecionadas: Formatar > Células (ou Ctrl + 1);

2- Clique na aba "Número";

3- Em categoria, escolha a opção "Personalizado";

4- Em "Tipo", digite o seguinte: ###-####;(###) ###-#### (copie e cole para não ter erro).

Tente ver agora se deu certo...2.gif

Espero ter ajudado.

Fui....


[]''s

Snap™

assinatura_forum.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vou ser explícito:

Para você personalizar para o formato: xxxx-xxxx

Digite: ####-####

Para você personalizar para o formato: (xx) xxxx-xxxx

Digite: (##) ####-####

PS: Para você não ter que redigitar todos os números novamente, basta você fazer isso em uma célula, copiar (Crtl + C), selecione todas as outras células e clique com o botão direito do mouse, escolha "Colar especial..." marque a opção "Formatos" e pronto.

Valeu...


[]''s

Snap™

assinatura_forum.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

On 1/3/2003 1:38:49 PM Snap™ wrote:

Tente o seguinte:

Selecione todas as células em que você irá colocar os números de telefones e faça o seguinte:

1- Após estar com as células selecionadas: Formatar > Células (ou Ctrl + 1);

2- Clique na aba "Número";

3- Em categoria, escolha a opção "Personalizado";

4- Em "Tipo", digite o seguinte: ###-####;(###) ###-#### (copie e cole para não ter erro).

Tente ver agora se deu certo...
2.gif

Espero ter ajudado.

Fui....

----------------

Pois é meu amigo, mas desse jeito que você me indicou eu estaria colocando uma máscara no número e pra mim não serve!!!!

Mesmo assim valeu.


[]´s

NOME: Fernando Wobeto

MAIL: fernandowobeto@gmail.com

FRASE: "Não dê o peixe, ensine a pescar!"

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Para você não ter que redigitar todos os números novamente, basta você fazer isso em uma célula, copiar (Crtl + C), selecione todas as outras células e clique com o botão direito do mouse, escolha "Colar especial..." marque a opção "Formatos" e pronto.

Valeu...


[]''s

Snap™

assinatura_forum.jpg

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

O Office que uso é em inglês, então a fórmula também é:

=IF(LEN(B1)=7;LEFT(B1;3);LEFT(B1;4))&"-"&RIGHT(B1;4)

Testando de novo a fórmula, eu copiei a fórmula acima (daqui do fórum) e colei no Excel e funcionou correto! Eu poderia ter digitado alguma coisa errada, mas não, está correta!

Veja aí no seu Excel como fica estas funções em português:

IF = SE

Estas funções são de TEXTO.

LEN => comprimento = ?

LEFT => esquerda = ?

RIGHT => direita = ?

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok! Vou pesquisar em cima de sua fórmula e se for por causa do idioma eu posto ela aqui em português para que tiver o mesmo problema!4.gif4.gif


[]´s

NOME: Fernando Wobeto

MAIL: fernandowobeto@gmail.com

FRASE: "Não dê o peixe, ensine a pescar!"

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

On 12/30/2002 11:40:44 AM Fernando Wobeto wrote:

E ai pessoal tenho uma planilha no excel com uma lista de telefones, e eu gostaria de acrescentar um hifem no meio dos dígitos.

ex: 99772458 por 9977-2458 (de todos os números, que são em torno de 2000)

Mas não me serve acrescentar máscara!

Precisa ser mudança geral dos números.

Valeu!

4.gif

----------------

Um modo muito prático é desenvolver a seguinte macro (copie e cole, EXCETO os textos em VERMELHO):

--> INÍCIO DA MACRO

'Esta macro funciona com telefones de 7 ou 8 dígitos

'Apenas modifique aqui para refletir o intervalo de células onde

'os telefones se encontram. Substitua os valores entre aspas.

Intervalo = "A1:A2000"

for each celu in range(Intervalo)

vr = trim(celu.formular1c1)

if len(vr) = 7 then vrnew = mid(vr,1,3) + "-" + mid(vr,4,4) else vrvew = mid(vr,1,4) + "-" + mid(vr,5,4)

celu.formular1c1 = vrnew

next celu

msgbox "Operação concluída."

---> FIM DA MACRO

Observações:

- Faça um backup da planilha original 3.gif

- Se você não souber como criar a macro, poste aqui

Abraços,

Glauber Lima


2002-2008 - 6 anos de Fórum do BABOO.

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

No Excel em português a fórmula é a seguinte:

=SE(NÚM.CARACT(B1)=7;ESQUERDA(B1;3);ESQUERDA(B1;4))&"-"&DIREITA(B1;4)

0

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu Alcy é isso mesmo que eu queria!!!!4.gif4.gif Funcionou16.gif


[]´s

NOME: Fernando Wobeto

MAIL: fernandowobeto@gmail.com

FRASE: "Não dê o peixe, ensine a pescar!"

0

Compartilhar este post


Link para o post
Compartilhar em outros sites
    • 3 Mensagens
    • 77 Visualizações
    • 5 Mensagens
    • 236 Visualizações
    • 2 Mensagens
    • 67 Visualizações
    • 3 Mensagens
    • 117 Visualizações
    • 11 Mensagens
    • 325 Visualizações