Возможна петля VBA?

Question

Я изначально пытался запустить эту формулу, но обнаружил, что не смог автозавершить отфильтрованный выбор. heres код:

Range("I1").Select  
ActiveCell.FormulaR1C1 = _ 
"=IF(RC[-2]=""dpd"",HYPERLINK(""http://www.dpd.co.uk/tracking/quicktrack.do?search.consignmentNumber=""&RC[-1]&""&search.searchType=16&search.javascriptValidated=0&appmode=guest""))" 
Range("I1").Select 
Selection.AutoFill Destination:=Range("i1:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 
Range("I2").Select 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 

Range("A1:I1").Select 
ActiveSheet.Range("A1:i1").AutoFilter Field:=9, Criteria1:="FALSE" 
Range("I2").Select 
ActiveCell.FormulaR1C1 = _ 
"=IF(R[-1]C[-2]=""City Link"",HYPERLINK(""http://www.packagetrackr.com/track/citylink/""&R[-1]C[-1]&""""))" 
    Range("I2").Select 
Selection.AutoFill Destination:=Range("i2:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 

Range("A1:I1").Select 
ActiveSheet.Range("A1:i1").AutoFilter Field:=9, Criteria1:="FALSE" 
Range("i2").Select 
ActiveCell.FormulaR1C1 = _ 
    "=IF(R[-1]C[-2]=""hermes"",HYPERLINK(""http://www.hermes-europe.co.uk/tracker.html?trackingNumber=""&R[-1]C[-1]&""&Postcode=""&R[-1]C[-4]&R[-1]C[-3]&""""))" 
    Range("I2").Select 
Selection.AutoFill Destination:=Range("i2:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 

Может быть, петли будут лучше?

Я не могу авторизовать только отфильтрованный выбор.

У меня есть около 20 значений в колонке G, а также различные данные в столбце H. В зависимости от того, что колонки G есть другая гиперссылка URL должен быть применен к колонку I.

EG.

Cell G2: City Link

Cell H2: 12345

Если в ячейке G2 = City Link, то колонка I2 = HYPERLINK ("http://www.packagetrackr.com/track/citylink/" & H2 & «)

Любые предложения будет фантастическим!

Answer 1

вы можете использовать для петли, чтобы это сделать.

---

 
    Option explicit 

    Dim oCell as range 

    For each ocell in range(***) 

    if ocell = "dpd" then ocell.offset(0,1) = "hyperlink" 
    if ocell = "City link" then ocell.offset(0,1) = "hyperlink" 
    if ocell = "hermes" then ocell.offset(0,1) = "hyperlink" 


    Next 

---

смещение число столбцов от вашего Orignal расположения Ocell.

Надеюсь, это поможет