çekilişte çıkan ismi silme

[emrebengul]

userformda çekilişte çıkan isim tekrar çıkmasın diye çekişte çıkan ismi silmek istiyorum yardımcı olur musunuz?
Ekli dosyayı görüntüle çekilişŞ.xlsm

 

[askm]

Kodları aşağıdaki şekilde düzenledim. Silmeden önce isimler sonradan gerek olur diye sayfa2 ye taşıyor. Ondan sonra siliyor.

Private Sub CommandButton1_Click()

Dim sonhucre As Integer
sonhucre = Sayfa2.Range("A65000").End(xlUp).Row  'son hucreye A sutunundan baktIm
Randomize
son = Range("A65500").End(3).Row
s = Int(Rnd * son) + 1
Application.Wait (Now + TimeValue("0:00:02"))
MsgBox Cells(s, "A")
Sayfa2.Cells(sonhucre + 1, "A") = Cells(s, "A")
Cells(s, "A").Delete
End Sub