Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

On Error Resume Next



Set Html = Me.WebBrowser2.Document

   For Z = 0 To 9

       R = Int((3 * Rnd) + 1)

       HTML.getElementById("dgNotListesi_ddlDeger8_" & Z).Value = R

   Next Z

   

   For Y = 1 To 13

       S = Int((2 * Rnd))

       HTML.getElementsByName("dgKisilikListesi$ctl" & S & Y & "$chkSec8").Item.Click

   Next Y

Ayrıca, bu konu ile ilgili yapabileceğim yardım bu kadar.