Создать таблицу запросов на основе значения ячейки

Question

Я хочу, чтобы макрос выполнялся сверху вниз в столбце C (на листе «Tracker»), чтобы найти любые ячейки, которые соответствуют «ожиданиям», «отложенным», «новым» или Текст «Ожидание».

Каждый раз, когда он находит совпадение я хочу запустить веб-запрос на лист «X» с адресом:

«http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=» + соответствующее значение в колонке А из согласованной ячейки в столбце C.

If (in Sheet "Tracker") Range("C" & CurRow).Value is "New" Then 
    Run a web query in Sheet "X" (Starting in cell A1) with the address: "http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=" & Range("A" & CurRow).Value 

Answer 1

Я много о ваших условиях запроса вы не перечислить их не знаю, но это будет обрабатывать вашу петлю и выходные потребности:

Sub QueryIt() 
    Dim CurRow As Long, LastRow As Long, DestRow As Long 

    LastRow = Sheets("Tracker").Range("C" & Rows.Count).End(xlUp).Row 
    For CurRow = 1 to LastRow 
     If Sheets("Tracker").Range("C" & CurRow).Value = "New" Then 
      DestRow = Sheets("X").Range("A" & Rows.Count).End(xlUp).Row + 1 
      'Query command with address: "http://efm/telecom/engineeringWorkOrders/viewEWOStatusLog.aspx?ewonumber=" & Sheets("Tracker").Range("A" & CurRow).Value 
      'Output query to Sheets("X").Range("A" & DestRow).Value 
     End If 
    Next CurRow 
End Sub