Sorteio 1.0 – Excel VBA

Objetivo: Disponibilizar planilha de sorteio de nomes, utilizando VBA.

//

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.

Está chegando o final do ano e muitas empresas fazem sorteios de brindes entre seus funcionários, pensando nisso fiz essa planilha que utiliza VBA as fórmulas PROCV e ALEATÓRIOENTREconcatenadas e com VBA para sortear um dos nomes da lista preenchida. Abaixo o código fonte, note que ele faz um loop entre 1 e 1000, para criar um pequeno suspense no sorteio. Se quiser pode reduzir este valor de acordo com a sua vontade.

Public Sub AleatorioEntreFixo() Application.Volatile For i = 1 To 1000 Range("G7").FormulaR1C1 = "=VLOOKUP(RANDBETWEEN(1,100),Lista!C[-6]:C[-5],2,0)" Next i Range("G7").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
GUT PPT

Abraço Marcos Rieper

//

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.

 


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel