Criando um recibo no Excel

Atendendo um pedido, vamos criar um recibo bem simples no Excel para atender uma necessidade. A pessoa que pediu informou que emite em média mais de 50 recibos por dia, me mostrou como era feito e pediu se existia um meio de automatizar as coisas. Vamos lá.

Em primeiro lugar criamos duas planilhas, uma para o recibo em si e outra para cadastrar seus clientes, uma vez que na maioria das vezes eram sempre os mesmos.

Coloquei só dois campos (nome e Cpf) só para ilustrar o exemplo mas deve ser melhorado atendendo a necessidade de cada um. Quando se cadastra um novo cliente, seleciona as colunas e organiza em ordem alfabética, se for o caso, para facilitar a pesquisa. Isso pronto, vamos criar ao recibo.

Na linha 1, mesclamos as colunas de A até I e inserimos uma simples formatação.

Em seguida, mesclamos as células H2 e I2 e H3 e I3 para receber título e valor do recibo, fazendo uma simples formatação também.

Vamos trabalhar com alguns elementos de programação, para isso, a guia Desenvolvedor deve estar ativa na sua pasta de trabalho. Vá em Arquivo->Opções->Personalizar Faixa de Opções e marque na coluna da direita, a opção Desenvolvedor para que ela fique visível na Faixa de Opções.

Abra a nova guia e escolha a opção Inserir Caixa de Combinação e desenhe em algum local a referida caixa, como abaixo.

Com o botão direito do mouse, em cima do objeto desenhado, escolha Formatar Controle. Na Aba Controle indique de onde vem os dados inserindo a fórmula CLIENTES!$A$2:$B$20; Na linha de baixo, Vínculo com a célula, insira $A$20 e marque a opção a opção Sombreamento 3D, tudo como a figura abaixo.

Na imagem acima, na aba Propriedades, desmarque a opção Imprimir Objeto para que o mesmo não seja impresso.

Clique OK, clique em qualquer local da planilha e verifique na Caixa de Combinação se ficou como abaixo.

Neste caso, se você clicar em algum deles, sua posição na lista vai aparecer dentro da célula A20.

Na célula B20 insira a fórmula =ÍNDICE(CLIENTES!A2:B20;RECIBO!A20;1)

Em C20, insira =ÍNDICE(CLIENTES!A2:B20;A20;2)

Selecione a linha 20 e oculte ela. Vamos criar agora o texto do recibo. Aumente a altura da linha 7 para 45 e mescle as colunas A até I. Deve ficar assim.

Com este espaço selecionado, abra na guia Iniciar a caixa de diálogo alinhamento:

E acerte a justificação horizontal para justificado e marque Quebra de Texto automática.

Clique OK e vamos a fórmula que vai dentro deste espaço. Vejam que apesar de ir passo a passo, não estou explicando o que cada coisa faz. Se tiver dúvidas entre em contato. Vou criar a fórmula por etapa. Nela vamos usar o recurso de concatenação entre textos e números, separados por aspas e pelo sinal E comercial. Respeite mais ou menos os espaços para que tudo não fique junto. Digite:

="         Recebemos de "&B20&",portador do Cpf "& TEXTO(C20;"###-##")

Vamos inserir agora os valores. Continuando na mesma fórmula, acrescente logo após ##”) o que segue (pressione F2 para editar).

&" a importância de R$ "&TEXTO(H3;"#.###,00")&"() "&" referente serviços prestados"

Onde temos os dois parênteses aberto e fechado, vamos inserir uma função que não existe no Excel, a função Extenso. Clique Aqui para baixar o arquivo texto que esta zipado. Descompacte e abre ele no Bloco de Notas pois é um arquivo texto.

Pressione o atalho ALT + F11 para abrir o editor do Visual Basic, vá em Inserir, Módulo e dentro da tela de edição, cole todo o conteúdo do arquivo texto baixado. Feche a janela do Editor do Visual Basic e pode fechar o arquivo texto também. Salve a planilha com qualquer nome mas não se esqueça de marcar a opção Pasta habilitada para macros, como abaixo.

Vamos continuar a nossa fórmula. Onde temos ")&"() "&", vamos substituir por: ")&"("&extenso(H3)&") "

A fórmula completa fica:

="         Recebemos de "&B20&",portador do Cpf "&TEXTO(C20;"###-##")&" a importância de R$ "&TEXTO(H3;"#.###,00")&"("&extenso(H3)&") "&" referente serviços prestados"

Resultado:

Pode-se escolher um novo cliente ou ainda alterar o valor que o texto é automaticamente atualizado. Vamos concluir.

Em B11, insira a fórmula ="Foz do Iguaçu-PR " &TEXTO(HOJE();"dd/mm/aaaa")

E insira uma linha de assinatura.

O resultado final para impressão

Era isso. Nosso objetivo era mostrar um pequeno exemplo de como perder um tempo hoje para ganhar amanhã. Vimos as funções CONCATENAR, ÍNDICE E TEXTO trabalhando junto para um só objetivo. Fizemos todos os testes possíveis no exemplo mas, como nada é perfeito, algum erro pode ocorrer com você ou ainda surgir alguma dúvida. Use a caixa de contato ou ainda em comentários e nos informe do problema que teremos prazer em resolver.

Caso queiram ver alguma explicação de algum tema no Excel, Word ou outro aplicativo do Office, use o mesmo recurso de contato e mande sua sugestão de pauta.