Naming Dimensions not functioning.

[fwk]

Users input a plant number in a Excel worksheet cell (J2) as indicated below. I have set a dimension to pick data from this cell and input it into a SAP transaction.

My VBA code is the following.

' Copy in the plant number
session.findById("wnd[0]/usr/ctxtIWERK-LOW").Text = "2004"
session.findById("wnd[0]/usr/ctxtIWERK-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtIWERK-LOW").caretPosition = 4
session.findById("wnd[0]/usr/btn%_REVNR_%_APP_%-VALU_PUSH").press

This works fine. The problem start when I change the "2004" plant number to reflect the dimension criteria to enable to read the input cell (J2) value. No input from (J2) is transferred to the SAP transaction.
I have change the above code to the following code:-

' Copy in the plant number
session.findById("wnd[0]/usr/ctxtIWERK-LOW").Text = selectedSite
session.findById("wnd[0]/usr/ctxtIWERK-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtIWERK-LOW").caretPosition = 4
session.findById("wnd[0]/usr/btn%_REVNR_%_APP_%-VALU_PUSH").press


I declare the point of pickup (J2) as per below.

Dim selectedSite As String
selectedSite = ActiveWorkbook.ActiveSheet.Range("J2").Value

What am I doing wrong? Any help is appreciated.
FWK

 

[Legacy 143009]

What happens if you try:
selectedSite = CStr(ActiveWorkbook.ActiveSheet.Range("J2").Value2)

 

[RoryA]

Also, are the correct workbook and worksheet active when the code runs?

 

[fwk]

Thanks for the feedback. I will test it today.

 

[fwk]

What happens if you try:
selectedSite = CStr(ActiveWorkbook.ActiveSheet.Range("J2").Value2)

Folder Path for ALL downloads from SAP	SAP Transaction 1	Variant Name -IW39	Download Filename IW39	SAP Transaction 2	Variant Name - Spares	Download Filename /SVNT/MATERIAL_STAT	SAP Transaction 3	Download Filename IWBK	Plant Code	SAP Revision Codes	Work Order Numbers
C:\Users\10005500\OneDrive - Newmont USA Limited\Desktop\SAP Automated data extraxt\Material Report\SAP Downloads\	IW39	WKSPARES	IW39 Dwnld	/N/SVNT/MATERIAL_STAT	U-WK SOH REP	SVNTMATERIAL_STAT Dwnld	IWBK	IWBK Dwnld	2004	TF24WP01	23099407
										TF24DP01	23017451

Below is a screenshot of the excel workbook where the data needs to be read from. A2 and J2 needS to be read. This spaces in the blue cells is where I need users to type in criteria related to their plant and file safe preferences. I do not want the to scratch in the VBA as I will protect that.

Below is my code which work as expected. The moment i change it to point to the excel cells it doesn't transfer the inputs to SAP.

I have tried your code above and it DOESNT LIKE IT. Do i misunderstood what you want me to do with your code?

Your code hangs up here.

 

[RoryA]

selectedSite should be declared as String, not as Integer.

 

[fwk]

selectedSite should be declared as String, not as Integer.

I have tried the above suggestion and it also have the same issue. I have thought about this statement of yours "are the correct workbook and worksheet active when the code runs?" and checked that and it sems OK.

 

[RoryA]

Can you add in a line to make sure the variable has the right value:

msgbox selectedSite
' Copy in the plant number
session.findById("wnd[0]/usr/ctxtIWERK-LOW").Text = selectedSite