çekiliş yapma

[emrebengul]

bir çekiliş yapmayı düşünüyorum userformdanda olur acaba nasıl yapabilirim yardımcı olur musunuz?
Ekli dosyayı görüntüle çekiliş.xlsx

 

[ÖmerBey]

Merhaba,
Şu işinizi görür mü?

Sub çekiliş()
Randomize
son = Range("A65500").End(3).Row
s = Int(Rnd * son) + 1
MsgBox Cells(s, "A")
End Sub

 

[mrwarrior]

E1 HÜCRESİNE
=AŞAĞIYUVARLA(S_SAYI_ÜRET()*BAĞ_DEĞ_DOLU_SAY(A1:A1000);0)+1

D1 HÜCRESİNE
=DOLAYLI("A"&E1)

Basit şekilde her del e başışınızda başka bir talihli çıkar

 

[emrebengul]

peki bunu userformda yapsam nasıl olur acaba?

 

[Orion1]

peki bunu userformda yapsam nasıl olur acaba?

Mucit bey kodları yazmış.onu userformun kod sayfasına yazın.sonra erhangi bir olayda çağırın.