$(function () { pageContext.i18n.modTalk = 'moderation talk'; pageContext.i18n.replyToComment = 'Reply'; pageContext.i18n.modTalkEmpty = 'moderation talk is empty'; pageContext.url.getModTalk = "/comments/%25ID%25/listModTalk.json"; pageContext.url.possibleCommentRecipients = "/comments/%ID%/possibleRecipients.json"; pageContext.url.commentEdit = '/comments/%25ID%25/edit.html'; pageContext.url.commentView = '/comments/%ID%/view.html'; pageContext.i18n.commentVisibility = { 'full': 'Viewable by all users', 'op': 'Viewable by the original poster', 'mod': 'Viewable by moderators', 'opAndMod': 'Viewable by moderators and the original poster', 'other': 'Advanced visibility', 'dialogTitle': 'Comment visibility', 'selectGroups': 'Visible to groups', 'selectOther': 'Other recipients', 'selectOriginalPoster': 'Original poster', 'selectModerators': 'Moderators', 'selectAssignees': 'Asked to answer users' }; pageContext.i18n.commentMenuLabels = { 'comment-edit': 'comments.menu.edit', 'comment-delete': 'comments.menu.delete', 'comment-convert': 'comments.menu.convert' };pageContext.i18n.answer= { bestAnswer: 'Best Answer', controlBar : { accept: 'Accept', unaccept: 'Unaccept', acceptCommand: 'Accept this answer as correct', cancelAcceptedCommand: 'Remove this answers accepted status' } }; window.croles = { u: false, op: false, m: false, og: false, as: false, ag: false, dc: false, doc: false, eo: false, ea: false }; tools.init({ q: { e: false, ew: false, eo: false, r: false, ro: false, d: false, dow: false, fv: false, c: false, co: false, p: false, tm: false , ms: false, mos: false }, n: { f: false, vf: false, vfo: false, vr: true, vro: true, c: false, co: false, vu: false, vd: false, w: false, wo: false, l: false }, c: { e: false, eo: false, d: false, dow: false, ta: false, tao: false, l: false }, a: { e: false, ew: false, eo: false, d: false, dow: false, a: false, aoq: false, ao: false, tc: false, tco: false, p: false, tm: false }, pc: croles }, { tc: true, nsc: true }); commandUtils.initializeLabels(); }); Skip to Content
avatar image
Former Member

IF & Else Statement for VBA script

Hi every Experts!

I am looking some VBA script for my search results.

I am searching a value ;

     .findById("wnd[0]").maximize

     .findById("wnd[0]").sendVKey 71

     .findById("wnd[1]/usr/txtRSYSF-STRING").Text = "6306"

     .findById("wnd[1]/usr/txtRSYSF-STRING").caretPosition = 6

     .findById("wnd[1]").sendVKey 0

If the search results that I found then this code will copy and paste into my excel ;

    .findById("wnd[2]/usr/lbl[5,2]").SetFocus

    .findById("wnd[2]/usr/lbl[5,2]").caretPosition = 2

    .findById("wnd[2]/usr/lbl[48,2]").SetFocus

    .findById("wnd[2]/usr/lbl[48,2]").caretPosition = 6

     Sheet2.Cells(22, 4) = .findById("wnd[2]/usr/lbl[5,2]").Text

     Sheet2.Cells(22, 5) = .findById("wnd[2]/usr/lbl[48,2]").Text

    .findById("wnd[1]").sendVKey 0

    .findById("wnd[2]/tbar[0]/btn[17]").press

    .findById("wnd[1]/tbar[0]/btn[12]").press

But If I don’t have any search results then it’s says "Search unsuccessful - no hits found for: 6306" ;

     .findById("wnd[2]/usr/txtMESSTXT1").caretPosition = 4

     .findById("wnd[2]/tbar[0]/btn[0]").press

     .findById("wnd[1]/tbar[0]/btn[12]").press

Is there any way I can do If and else function? Or I can do another statement? (IF or Else) or argument ? something like that , I want combine this all together.

Thanks all,

scenario1.jpg (36.0 kB)
Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • Best Answer
    May 16, 2014 at 08:05 AM

    Hi Raw,

    you can try e.g. the following:

         .findById("wnd[0]").maximize

         .findById("wnd[0]").sendVKey 71

         .findById("wnd[1]/usr/txtRSYSF-STRING").Text = "6306"

         .findById("wnd[1]/usr/txtRSYSF-STRING").caretPosition = 6

         .findById("wnd[1]").sendVKey 0

         Information = ""

         on error resume next

         Information =  .findById("wnd[2]").Text

         on error goto 0

         if Information <> "Information" then

    If the search results that I found then this code will copy and paste into my excel ;

        .findById("wnd[2]/usr/lbl[5,2]").SetFocus

        .findById("wnd[2]/usr/lbl[5,2]").caretPosition = 2

        .findById("wnd[2]/usr/lbl[48,2]").SetFocus

        .findById("wnd[2]/usr/lbl[48,2]").caretPosition = 6

         Sheet2.Cells(22, 4) = .findById("wnd[2]/usr/lbl[5,2]").Text

         Sheet2.Cells(22, 5) = .findById("wnd[2]/usr/lbl[48,2]").Text

        .findById("wnd[1]").sendVKey 0

        .findById("wnd[2]/tbar[0]/btn[17]").press

        .findById("wnd[1]/tbar[0]/btn[12]").press

         else

    But If I don’t have any search results then it’s says "Search unsuccessful - no hits found for: 6306" ;

         .findById("wnd[2]/usr/txtMESSTXT1").caretPosition = 4

         .findById("wnd[2]/tbar[0]/btn[0]").press

         .findById("wnd[1]/tbar[0]/btn[12]").press

          end if

    Regards,

    ScriptMan

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member

      😊 OMG ...You are the real Script Man , It is working !!!!


      I just added Dim Information As String

      Thank you my friend. Sincerely and truly, I appreciate you so much…