Skip to Content
0
Jan 04, 2023 at 07:27 PM

scroll bat problem

65 Views Last edit Jan 05, 2023 at 08:46 AM 2 rev

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