Benito87
09-12-2019, 07:45 PM
Hello,
I hope this e-mail finds you well.
I have an issue on the excel Sheet that i am trying change to what i want.
the excel sheet attached (Balance_Tool_V2) is the one that i am using to create another program.
It is almost finish but i cannot find where to change a code.
The code that i am looking to change is to copy from another program (BlueZoneTerminal/Marsha) to this excel sheet. This function is working with the 1st excel sheet (Balance_Tool_V2)
For intDateList = intDateCount To 1 Step -1
strStartDate = dataName.Cells(intDateList, 16)
strGetArrival = VBA.LCase("GEA" & strMarshaCode & "/" & strStartDate & "-D")
strGetStayOver = VBA.LCase("GES" & strMarshaCode & "/" & strStartDate & "-D")
I changed this to what i need to do with the new excel sheet. to
For intDateList = intDateCount To 1 Step -1
strStartDate = dataName.Cells(intDateList, 16)
strGetArrival = VBA.LCase("vid" & strMarshaCode & "/" & strStartDate)
strGetStayOver = VBA.LCase("vid" & strMarshaCode & "/" & strStartDate) but after
and remove all the other thing that i don't need.
on the excel Sheet -> Balance__Tool_V2 TEST
you need to put the date from & to and press the button Impost Data
25043
For the 1st date it is working on the other program (BlueZoneTerminal/Marsha) to find the date with the code that i put above. But it does not copy and past on the excel sheet. and doing the same action to the end date.
I am very new on the VBA but i did not find some code or information about this manipulation anywhere.
Best regards2504825049
I hope this e-mail finds you well.
I have an issue on the excel Sheet that i am trying change to what i want.
the excel sheet attached (Balance_Tool_V2) is the one that i am using to create another program.
It is almost finish but i cannot find where to change a code.
The code that i am looking to change is to copy from another program (BlueZoneTerminal/Marsha) to this excel sheet. This function is working with the 1st excel sheet (Balance_Tool_V2)
For intDateList = intDateCount To 1 Step -1
strStartDate = dataName.Cells(intDateList, 16)
strGetArrival = VBA.LCase("GEA" & strMarshaCode & "/" & strStartDate & "-D")
strGetStayOver = VBA.LCase("GES" & strMarshaCode & "/" & strStartDate & "-D")
I changed this to what i need to do with the new excel sheet. to
For intDateList = intDateCount To 1 Step -1
strStartDate = dataName.Cells(intDateList, 16)
strGetArrival = VBA.LCase("vid" & strMarshaCode & "/" & strStartDate)
strGetStayOver = VBA.LCase("vid" & strMarshaCode & "/" & strStartDate) but after
and remove all the other thing that i don't need.
on the excel Sheet -> Balance__Tool_V2 TEST
you need to put the date from & to and press the button Impost Data
25043
For the 1st date it is working on the other program (BlueZoneTerminal/Marsha) to find the date with the code that i put above. But it does not copy and past on the excel sheet. and doing the same action to the end date.
I am very new on the VBA but i did not find some code or information about this manipulation anywhere.
Best regards2504825049