Tablo içinde ilgili kelimeyi bulup basma

[Kusta]

Üstadlar merhaba,
Tablo içinde yer alan başlat düğmesine aşağıdaki kodlardan birini yazarak basabiliyordum. Fakat ne kadar uğraştıysam artık basmıyor.
a = 0
Set Link = ie.Document.getElementsByTagName("a")
For Each l In Link
x = l.innerText
y = "Başlat"
If InStr(1, x, y, vbBinaryCompare) > 0 Then
If a > 0 Then
l.Click
Exit For
End If
a = a + 2
End If
Next l

ya da

Set Link = ie.Document.getElementsByTagName("a")
For Each l In Link
x = l.innerText
y = "Başlat"
If InStr(1, x, y, vbBinaryCompare) > 0 Then
l.Click
Exit For
End If
Next l


Ben bunu aşağıdaki şekilde tablo içinde Başlat'ı bul sonra bas olarak düzenleyeyim dedim ama beceremedim. .................... kısma ne yazarsam click yaptırabilirim.

Set st = ie.Document.getElementById("ctl02_div4ACalisanIseGirisMain") 'tablonun divıd sini yaz
On Error Resume Next
For Each t In st.getElementsByTagName("tr")
If Trim(t.Children(9).innerText) = Range("E1") Then ' E1 de Başlat yazıyor
........................................
End If
Next
Set st = Nothing

 

[Kusta]

konu günceldir. Nasıl bir yol izlemeliyim yardımcı olurmusunuz.

 

[ÖmerFaruk]

Sorununuzu bu haliyle anlamak epey güç olduğu için cevap gelmediği kanaatindeyim.

 

[Kusta]

Sorununuzu bu haliyle anlamak epey güç olduğu için cevap gelmediği kanaatindeyim.

Hocam haklısınız kusura bakmayın.
Webden veri çekiyorum fakat ID 'si olmayan bir tuş var (tablo içinde Başlat yazan bir buton) ve ona basamıyorum yardımcı olabilirmisiniz. Kod aşağıdaki gibidir.


<TD align=left> ==$0
<a href="javascript:__doPostBack('ctl03$grvTypBasvuruListe','IseBaslat$0')">Başlat</a>
</TD>

Bu Başlat tuşuna ilk yazdığım mesajdaki kodla basabiliyordum ama artık basmıyor.
İnşallah anlatabilmişimdir.

 

[HücrelereFısıldayanAdam]

Web sayfası değişmiş olabilir, bence On Error Resume Next kullanmayın ve hangi satırda hata aldığınızı bulun.