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.