03/05/2015, 08:17
mustinba
(02/05/2015, 22:38)ozanakkaya yazdı: 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.
Teşşekürler .