Dim x As New Selenium.ChromeDriver
Dim i, asonsat As Integer
x.Start "chrome"
x.Window.Maximize
x.Get "https://www.sofascore.com/tr"
asonsat = Sheets("veri").Range("A10000").End(xlUp).Row
For i = 2 To asonsat
On Error Resume Next
'TAKIM ADINI YAZ
x.FindElementByCss("#__next > div > header > div.sc-e71985c9-0.sc-e71985c9-1.bLytDM.kMhAob > div > div.sc-hLBbgP.sc-eDvSVe.bQOQgs.ffeVWb > div > form > input").SendKeys Range("A" & i)
'TAKIMIN LİNKİNE TIKLA (AÇILIR PENCEREDEN)
x.FindElementByCss("#__next > div > header > div.sc-e71985c9-0.sc-e71985c9-1.bLytDM.kMhAob > div > div.sc-hLBbgP.sc-eDvSVe.bQOQgs.ffeVWb > div > div > div > div:nth-child(1) > div:nth-child(2) > a > div > div > span").Click
x.Wait 500
'TAKİP ET BUTONUNA TIKLA
x.FindElementByClass("iWBpTg").Click
x.Wait 500
'ESKİ TAKIM ADINI SİL
???
Next
End Sub
Merhabalar , buradaki Soru işaretli alana nasıl bir kod yazmam gerekiyor sıradaki i değerine geçmeden önce inputboxtaki eski yazıyı silmesi için.
Teşekkürler.
Dim i, asonsat As Integer
x.Start "chrome"
x.Window.Maximize
x.Get "https://www.sofascore.com/tr"
asonsat = Sheets("veri").Range("A10000").End(xlUp).Row
For i = 2 To asonsat
On Error Resume Next
'TAKIM ADINI YAZ
x.FindElementByCss("#__next > div > header > div.sc-e71985c9-0.sc-e71985c9-1.bLytDM.kMhAob > div > div.sc-hLBbgP.sc-eDvSVe.bQOQgs.ffeVWb > div > form > input").SendKeys Range("A" & i)
'TAKIMIN LİNKİNE TIKLA (AÇILIR PENCEREDEN)
x.FindElementByCss("#__next > div > header > div.sc-e71985c9-0.sc-e71985c9-1.bLytDM.kMhAob > div > div.sc-hLBbgP.sc-eDvSVe.bQOQgs.ffeVWb > div > div > div > div:nth-child(1) > div:nth-child(2) > a > div > div > span").Click
x.Wait 500
'TAKİP ET BUTONUNA TIKLA
x.FindElementByClass("iWBpTg").Click
x.Wait 500
'ESKİ TAKIM ADINI SİL
???
Next
End Sub
Merhabalar , buradaki Soru işaretli alana nasıl bir kod yazmam gerekiyor sıradaki i değerine geçmeden önce inputboxtaki eski yazıyı silmesi için.
Teşekkürler.