Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
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

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)

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

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....

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...

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.

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...

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 = ?

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

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

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)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

  • Posts

    • Face ao tempo decorrido, nada mais a fazer por aqui.
    • Converse com o seu vizinho, mostre este vídeo para ele. Verifiquem qual porta o modem dele esta usando, convença ele a mudar a porta. Eu faria isto.
    • A pasta foi apagada mesmo. Fiz a restauração do sistema, e após o google crhome não funcionou mais. Tentei desfazer a restauração e o chrome permanece sem funcionar. Estou usando o explorer. Faço um novo log?
    • Esses dias criei alguns tópicos, para tirar algumas duvidas... após respostas e pesquisar minhas na internet, eu soube que só é possível aumentar a memória RAM de um computador de 64 bits. (em outras palavras, só um computador de 64 bits reconhece mais de 4gb de RAM, pelo menos foi isso que entendi) Porém o meu é um de 32 bits.   Em fim, eu gostaria de saber, se é possível trocar o meu sistema operacional de 32, por um de 64 bits. Eu não quero troca-lo unicamente para adicionar mais memória RAM, mas sim, porque eu realmente preciso. Quando eu comprei meu computador, eu não tinha conhecimento nenhum, sobre absolutamente nada e na época, eu apenas jogava alguns joguinhos leves e ouvia música, essas coisas simples. Só que hoje eu tenho um canal no YouTube, que já esta quase chegando aos 50k. E eu uso bastante Photoshop, Sony Vegas, After Effects e as vezes até Cinema 4D. Fiquei sabendo que quem usa o computador pra esse tipo de coisa, é recomendado o sistema operacional de 64... (me corrija se eu tiver me informado errado por ai...) Já que o de 32 só consegue reconhecer 4gb ou um pouco menos da memória RAM e agora que eu estou trabalhando com isso, acredito que preciso de mais memória RAM. Não só por telas, mas sim, também para poder usa-las. Bem, é por isso que quero trocar meu sistema, para o de 64 bits... ai após isso, poderei inserir mais memória RAM nele.   Tem como fazer essa troca? do 32 bits para o 64 bits? Se sim, como? Se puder me explicar, eu agradeço.
    • obrigado, se quiser fechar o tópico...
    • Olá Mr.Million, Poderia explicar o motivo de não usar nenhum produto Comodo ? Obrigado
    • Muito obrigado por suas dicas, meu caro amigo Lucas_Moura! O DevID_Agent_Installer é FREE? Esqueci de dizer que para outros casos (Além do Driver Booster PRO da IOBIT), uso o DriverPack-Online. Mas também procuro os drivers no Site do Desenvolvedor, no entanto quando vejo que são muito antigos ou o drivers nativos instalados pelo Windows também são muito antigos, uso Driver Booster PRO da IOBIT. Abraços!
    • Boa noite! Isso não é problema relacionado a Vírus/ Malwares. Solicite ajuda na Área correspondente ao seu Sistema Operacional.
    • Boa Noite. eu tento desligar o PC e ele volta para tela inicial. E se eu colocar para reiniciar ele fica rodando travado e nao reinicia. já cumpri todas as etapas do tópico. segue meu log para exame   Logfile of Trend Micro HijackThis v2.0.4
      Scan saved at 23:20:26, on 07/12/2016
      Platform: Unknown Windows (WinNT 6.02.1008)
      MSIE: Internet Explorer v10.0 (10.00.9200.16384)
      Boot mode: Normal Running processes:
      C:\PROGRA~2\GbPlugin\GbpSv.exe
      C:\Program Files (x86)\Avira\Launcher\Avira.Systray.exe
      C:\Program Files (x86)\Avira\antivírus\avgnt.exe
      C:\Program Files (x86)\Samsung\Kies\KiesTrayAgent.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
      C:\Users\Edimilson PC\Downloads\HijackThis (1).exe R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
      R0 - HKCU\Software\Microsoft\Internet Explorer\Main,Start Page = http://go.microsoft.com/fwlink/p/?LinkId=255141
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://go.microsoft.com/fwlink/p/?LinkId=255141
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896
      R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
      R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Start Page = http://go.microsoft.com/fwlink/p/?LinkId=255141
      R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant = 
      R0 - HKLM\Software\Microsoft\Internet Explorer\Search,CustomizeSearch = 
      R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Local Page = C:\Windows\SysWOW64\blank.htm
      R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName = 
      O2 - BHO: G-Buster Browser Defense - {C41A1C0E-EA6C-11D4-B1B8-444553540000} - C:\PROGRAM FILES (X86)\GBPLUGIN\gbieh.dll
      O2 - BHO: G-Buster Browser Defense CEF - {C41A1C0E-EA6C-11D4-B1B8-444553540003} - C:\Program Files (x86)\GbPlugin\gbiehcef.dll
      O4 - HKLM\..\Run: [Avira SystrayStartTrigger] "C:\Program Files (x86)\Avira\Launcher\Avira.SystrayStartTrigger.exe"
      O4 - HKLM\..\Run: [hpqSRMon] C:\Program Files (x86)\HP\Digital Imaging\bin\hpqSRMon.exe
      O4 - HKLM\..\Run: [HP Software Update] C:\Program Files (x86)\HP\HP Software Update\HPWuSchd2.exe
      O4 - HKLM\..\Run: [avgnt] "C:\Program Files (x86)\Avira\antivírus\avgnt.exe" /min
      O4 - HKLM\..\Run: [KiesTrayAgent] C:\Program Files (x86)\Samsung\Kies\KiesTrayAgent.exe
      O4 - HKCU\..\Run: [CCleaner Monitoring] "C:\Program Files\CCleaner\CCleaner64.exe" /MONITOR
      O8 - Extra context menu item: &Enviar para o OneNote - res://C:\PROGRA~2\MICROS~1\Office14\ONBttnIE.dll/105
      O8 - Extra context menu item: E&xportar para o Microsoft Excel - res://C:\PROGRA~2\MICROS~1\OFFICE11\EXCEL.EXE/3000
      O9 - Extra button: Pesquisar - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - C:\PROGRA~2\MICROS~1\OFFICE11\REFIEBAR.DLL
      O11 - Options group: [ACCELERATED_GRAPHICS] Accelerated graphics
      O15 - Trusted Zone: www.bancobrasil.com.br
      O15 - Trusted Zone: www14.bancobrasil.com.br
      O15 - Trusted Zone: www2.bancobrasil.com.br
      O15 - Trusted Zone: aapj.bb.com.br
      O15 - Trusted Zone: seg.bb.com.br
      O15 - Trusted Zone: www.bb.com.br
      O15 - Trusted Zone: http://www.bb.com.br
      O15 - Trusted Zone: cloud.gastecnologia.com.br
      O20 - Winlogon Notify:  GbPluginBb - C:\Program Files (x86)\GbPlugin\gbieh.dll
      O20 - Winlogon Notify:  GbPluginCef - C:\Program Files (x86)\GbPlugin\gbiehCef.dll
      O23 - Service: @%SystemRoot%\system32\Alg.exe,-112 (ALG) - Unknown owner - C:\Windows\System32\alg.exe (file missing)
      O23 - Service: Avira Mail Protection (AntiVirMailService) - Avira Operations GmbH & Co. KG - C:\Program Files (x86)\Avira\antivírus\avmailc7.exe
      O23 - Service: Avira Agendamento (AntiVirSchedulerService) - Avira Operations GmbH & Co. KG - C:\Program Files (x86)\Avira\antivírus\sched.exe
      O23 - Service: Avira Real-Time Protection (AntiVirService) - Avira Operations GmbH & Co. KG - C:\Program Files (x86)\Avira\antivírus\avguard.exe
      O23 - Service: Avira Web Protection (AntiVirWebService) - Avira Operations GmbH & Co. KG - C:\Program Files (x86)\Avira\antivírus\avwebg7.exe
      O23 - Service: @%SystemRoot%\system32\efssvc.dll,-100 (EFS) - Unknown owner - C:\Windows\System32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\fxsresm.dll,-118 (Fax) - Unknown owner - C:\Windows\system32\fxssvc.exe (file missing)
      O23 - Service: @keyiso.dll,-100 (KeyIso) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @comres.dll,-2797 (MSDTC) - Unknown owner - C:\Windows\System32\msdtc.exe (file missing)
      O23 - Service: @%SystemRoot%\System32\netlogon.dll,-102 (Netlogon) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%systemroot%\system32\Locator.exe,-2 (RpcLocator) - Unknown owner - C:\Windows\system32\locator.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\samsrv.dll,-1 (SamSs) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\snmptrap.exe,-3 (SNMPTRAP) - Unknown owner - C:\Windows\System32\snmptrap.exe (file missing)
      O23 - Service: @%systemroot%\system32\spoolsv.exe,-1 (Spooler) - Unknown owner - C:\Windows\System32\spoolsv.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\sppsvc.exe,-101 (sppsvc) - Unknown owner - C:\Windows\system32\sppsvc.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\ui0detect.exe,-101 (UI0Detect) - Unknown owner - C:\Windows\system32\UI0Detect.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vaultsvc.dll,-1003 (VaultSvc) - Unknown owner - C:\Windows\system32\lsass.exe (file missing)
      O23 - Service: @%SystemRoot%\system32\vds.exe,-100 (vds) - Unknown owner - C:\Windows\System32\vds.exe (file missing)
      O23 - Service: @%systemroot%\system32\vssvc.exe,-102 (VSS) - Unknown owner - C:\Windows\system32\vssvc.exe (file missing)
      O23 - Service: Warsaw Technology - GAS Tecnologia LTDA - C:\Program Files\Diebold\Warsaw\core.exe
      O23 - Service: @%systemroot%\system32\wbengine.exe,-104 (wbengine) - Unknown owner - C:\Windows\system32\wbengine.exe (file missing)
      O23 - Service: @%ProgramFiles%\Windows Defender\MpAsDesc.dll,-310 (WinDefend) - Unknown owner - C:\Program Files (x86)\Windows Defender\MsMpEng.exe (file missing)
      O23 - Service: @%Systemroot%\system32\wbem\wmiapsrv.exe,-110 (wmiApSrv) - Unknown owner - C:\Windows\system32\wbem\WmiApSrv.exe (file missing)
      O23 - Service: @%PROGRAMFILES%\Windows Media Player\wmpnetwk.exe,-101 (WMPNetworkSvc) - Unknown owner - C:\Program Files (x86)\Windows Media Player\wmpnetwk.exe (file missing) --
      End of file - 6635 bytes
         
O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.