123456 vba

[Mr. Bluemaxx]

Tried this one as wellSubDynamicWebPage() ' here I define elemnts for the loop Dim sht As Worksheet Set sht = ThisWorkbook.Sheets("data") Dim LastRow As Long Dim i As Long LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row ' here I define Internet Explorer Dim IE As Object Dim Doc As HTMLDocument Set IE = CreateObject("InternetExplorer.Application") ' here I define Object to sendkeys Dim SHELL_OBJECT SHELL_OBJECT = "WScript.Shell" Set objShell = CreateObject(SHELL_OBJECT) ' here I define range for the loop For i = 2 To LastRow ' here I ask the Internet explorer to

Continue reading...