Zack, Skip thank you so so much, the problem I had was the "end if" statment was not in the correct place, it was directly after the variable check or case check. I have moved it to the end of my code before I increment it +1 and now it works in a continuous loop.
Zack I understand you being a...
Sorry instrad of saying Then I want to move to the next row of data in Excel.
example if I start at line 2 and I do not get the error message, I get REARRANGE SUCCESSFULLY CREATED, my code will run until the end then go onto line 3.
What im trying to say is, if for example I start at line 2...
There is not a different row counter for Excel coloumn A & G.
What I mean is if I get the error message
NEW ASN/NP NUMBER INVALID - PLEASE AMEND
I want to make a comment on column G saying "No IR1 built"
Then I want to move to the next row of data in Excel.
If I get the message
REARRANGE...
I appreciate your comment Skip,
If I am in a do loop and I get to a point where I know I will get one of two messages.
NEW ASN/NP NUMBER INVALID - PLEASE AMEND
The screen position for the message is 22,02,40
or
REARRANGE SUCCESSFULLY CREATED
The screen position for the message is 22,02,30...
Thanks Zach, there is just so much information to get through on this site.
Ive just posted an update on my Exel to Extra Loop problem,
I used alot of the code you supplied on another thread.
Ive got my loop working, now i need to take it a step further and if I encounter an error on a...
Dim lRow As Long, iCol As Integer 'for Excel
Dim iRW As Integer, iCL As Integer 'for Extra
Set Sess1 = Sessions.Item(SessName1$)
Set MyScreen = Sess1.screen
With Excel.Worksheets("sheet1")
Row = 2
Do
Sess1.screen.SendKeys...
In anwer you your above question,
What value does tday have?
tday = date ' with out this date
newdate = tday + 7 ' we would not have a date to add 7 to
newdate = format(newdate,"ddmmyy"
Without tday, it would not work.
I think?
Yes the above worked perfectly, I know some of this is quite basic but im starting to understand... I've been reading alot and spent a good few hours at home working at this on excel yesterday.
This morning I thought id try it, only to find it didnt work work.
Now it does.
Skip, many thanks...
Hi all,
I need to get todays date, and then generate a new date 7 days from todays date.
I can do this in excel and it works
Dim newdate
newdate = DateAdd("d", 7, Date)' adds however many days
newdate = Format(newdate, "ddmmyy") 'formats my date
MsgBox newdate
In this case I will only be...
Skip,
I've noticed in alot of your posts you advise the use of excel and now I'm writing everything in it, its alot more versatile, I am new to VB however I use Extra on an almost daily basis, I could kick myself for not looking into this before, better later than never!
I'll read through the...
Skip,
That is fantastic! I've to write a bit more code to do what I need to do, I'm getting closer but I'm learning so much, thank you for your assistance.
Thank you & to all people who post here, there is so much to learn! It's fun!
Hi all, I'm having a problem with the below code,
It does what I want it to do so far, however once its processed the first row in excel it ends, I cant get it to loop to the 2nd row in excel.
Also when I read the screen in extra my test variable writes back to excel its placing it on f row...
Thanks again for your help,
Skip I have read through the help file on getstring.
The code I have used is this,
For x = 9 To 22
Search = Sess0.Screen.Getstring(x, 19, 32)
Select Case Search
Case Is = "SSSID OF ETHERNET SERIVCE :"...
Sorry I should have said, once I have found what it is im looking for on the screen, ie ive looked through 9 lines of txt, how do I then capture what is to the right of that case.
For x = 9 To 22
strTemp = Sess0.screen.GetString(x, 13, 38)
Select Case strTemp...
I would like to look for something specific on the screen then do as I did before and capture the txt to the right of it.
I have used
For x = 9 To 22
strTemp = Sess0.screen.GetString(x, 13, 36)
Select Case strTemp
Case "Call it what you like" ' txt im...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.