Veja neste artigo como criar 1000 cartelas de Bingo no VBA de forma rápida muito simples.
Você pode até não acreditar, mas existe uma grande procura por planilhas e dispositivos para facilitar a prática de Bingos.
Criamos uma planilha para um cliente específico e para nossa surpresa ao disponibilizar no nosso site notamos imensa procura pelo arquivo.
Gostamos tanto do desafio que agora mantemos a planilha no nosso site e sempre lançamos atualizações para melhorar as possibilidades do produto.
1000 Cartelas de Bingo de forma automática
Depois de muitas vendas e inúmeras melhorias da planilha que gera cartelas de bingo automáticas no Excel, recebemos um novo desafio, e não bastava gerar novas cartelas de forma automática, e sim 1000 cartelas no menor tempo possível.
A solução adotada foi criar um código simples no VBA que gera o novo código, depois leva para a aba de cartelas e aplica o novo jogo.
Sheets("GERAR CARTELA").Select
Calculate
Range("D4:L10").Select
Selection.Copy
Sheets("CARTELAS").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalsePerceba que a operação é muito simples e apenas roda um novo jogo sem repetição e depois leva como valor para a aba de cartelas.
A automação para um jogo estava perfeita, mas seria preciso gerar 1000 cartelas.
A solução utilizada foi utilizar o mesmo código, para 100 novos jogos apenas mudando a posição dos novos jogos para que estejam enquadrados no mesmo arquivo em pdf.
Note que o código é absolutamente o mesmo, e o que muda é a posição da célula inicial para a colagem de cada novo jogo sem repetição.
Sabendo qual código utilizar e qual o formato padrão de cada cartela, agora basta definir nos códigos a posição de colagem de cada novo jogo sem repetição:
Neste projeto repetimos o código por 100 vezes, e dessa forma a planilha gera 100 novos jogos em aproximadamente 5 segundos.
Depois basta gerar em pdf e criar a próxima série de cartelas conforme a necessidade de cada evento.
Numeração das cartelas
Outra solução simples utilizada foi a forma utilizada para numerar as cartelas, basta escolher o primeiro número na posição da primeira cartela e as próximas 99 cartelas atualizam a contagem automaticamente.
Considerando tudo o que foi explicado, o projeto permite imprimir centenas de cartelas para Bingo sem repetição de forma simples e extremamente rápida.
Ainda tem dúvidas como gerar cartelas de bingo utilizando códigos no VBA? Veja como fazer pelo nosso vídeo do Canal ExcelForever no Youtube:
CURSOS ONLINE: Conheça nossos cursos online disponíveis, são centenas de alunos matriculados, com ótimas classificações e
todos na plataforma Udemy uma das maiores do mercado. Ver promoções de cursos online!
Conheça a planilha que gerar cartelas de bingo de forma totalmente automática no Excel:
Espero que tenha gostado do artigo e seja muito útil, grande abraço e sucesso!
