Hi
please help me on vertical scroll bar automation using VBA excel
For Each c In Range("A2:A500")
For i = 1 To last_row Step 1
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/ctxtPLMKB-VSTEUERKZ[1," & CStr(i - 1) & "]").Text = c(i, 1)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/txtPLMKB-KURZTEXT[8," & CStr(i - 1) & "]").Text = c(i, 2)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/ctxtPLMKB-STELLEN[23," & CStr(i - 1) & "]").Text = c(i, 3)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/ctxtRQPAS-MASSEINHSW[24," & CStr(i - 1) & "]").Text = c(i, 4)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/txtQFLTP-SOLLWERT[25," & CStr(i - 1) & "]").Text = c(i, 5)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/txtQFLTP-TOLERANZUN[26," & CStr(i - 1) & "]").Text = c(i, 6)
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK/txtQFLTP-TOLERANZOB[27," & CStr(i - 1) & "]").Text = c(i, 7)
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[1]/usr/radRQMST-PUMFKZ4").Select
session.findById("wnd[1]/usr/radRQMST-PUMFKZ4").SetFocus
session.findById("wnd[1]").sendVKey 0
session.findById("wnd[0]/usr/tblSAPLQPAATC_PLMK").VerticalScrollbar.Position = i 'need help here'
Next i
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/btnSPOP-VAROPTION1").press
Next c
need to move vertical scroll bar once table range compelete and should start for the next data