Ü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
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