Search results for query: *

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...

But I cant get it to go back to the begining of do.

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...

Sorry I should have said can anyone at all help!

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...

I did try the above and it did not work. As I said my post, I thought thats why it did what it did.

vzachin, thanks for your help as well! much appreciated. Kind regards, James

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...

Thanks Skip, still learning but its making sense now. Just completed what I need to do for today! Getting closer.. Have a good weekend.

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...