Olá Reinaldo, obrigado pela contribuição. Nao entendo de VBA/Macro, por gentileza poderia comentar o codigo? Tentei acessar a fonte de origem porem o...

Experimente assim: With .Sheets("Departamentos") ultLin = .Cells(Rows.Count, "A").End(xlUp).Row &...

Segue um modelo de rotina que efetua o que deseja. Originalmente disponibilizado em http://www.rondebruin.nl/folder.htm Private S...

Boa noite francieira Bem-vindo ao fórum! Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abai...

Lezão Anexe a planilha num site como: www.sendspace.com Depois cole o link da planilha aqui no fórum. []s

Boa noite rcb2002 Bem-vindo ao fórum! O título deve conter apenas um resumo da dúvida. Editei o titulo, pois você apenas descreveu o nome de uma fer...

Bom dia! Digite na célula esta fórmula na célula B1: =DESLOC($A$1;COLS($A:A)-1+(LINS($1:1)-1)*3;0); Arraste para direita e depois arraste para baixo....

PELICHIERO O Excel é uma planilha de dados, e não aplicativo de texto, por isso ele foi projetado, para os dados serem tabulados, ou seja, digitados ...

Bom dia Samuel Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo: viewtopic.php?...

Bom dia PELICHIERO O titulo dos tópicos deve sr um resumo da dúvida e não pode ter palavras como ajuda, dúvida, help, urgente, etc, pois atrapalham a...

... Após ... eu copio e salvo como valores e salvo a célula como "data". ... Ele quer data ! Mas sim, concordo, fica a critério dele escol...

Boa noite A sugestão do Fernando não funciona com R$ 56,00 que é o segundo exemplo da planilha. Baixe a planilha e veja minha sugestão. Melhorei tam...

Eu faria assim: Function ARRUMARDATA_FF(x As Long) ARRUMARDATA_FF= DateSerial(Left(x, 4),Mid(x, 5, 2),Right(x, 2)) End Function E escreve na célula:...

Chamar de desafio não vai fazer o pessoal responder mais rápido. Ok, dito isso: Se seu valor estiver em A1, digite em B1: =ARREDONDAR.PARA....