Function öğrenciSeç(satır As String, Optional ilk as Boolean = False)
Dim noId as String
Dim btnId as String
if ilk == True Then
noId = "OGRMenu1_txtTCYeni"
btnId = "OGRMenu1_btnOgrenciAra"
Else
noId = "OGRMenu1_txtTC"
btnId = "OGRMenu1_btnAra"
With Sheets(4).WebBrowser1.Document.getElementById(noId)
.Value = Sheets(1).Range("A" & satır).Value
End With
With Sheets(4).WebBrowser1.Document.getElementById(btnId)
.Click
End With
Application.Wait (Now + TimeValue("0:00:01"))
HazırsaÇalıştır "nofonk", "noarg"
End Function
En dıştaki döngüden önce bir değişken oluşturulur.
Dim ilkMi as Boolean
ilkMi = True
Döngü içinde öğrenciSeç fonksiyonu alttaki gibi çağrılır ve hemen ardından ilkMi değişkeni False ayarlanır.
öğrenciSeç( satırNo, ilkMi)
ilkMi = False