Как я могу заставить это работать сейчас? Я пытаюсь получить значение из столбца Y (rng1), а также значение из столбца Z (rng2)
Dim xhr As Object, thisRequest As String, rng1 As Range, rng2 As Range
Set xhr = CreateObject("Microsoft.XMLHTTP")
With ThisWorkbook.Worksheets("Fulcrum Upload")
For Each rng1 In .Range("Y3:Y" & .Cells(.Rows.Count, "Y").End(xlUp).Row).SpecialCells(xlVisible)
For Each rng2 In .Range("Z3:Z" & .Cells(.Rows.Count, "Z").End(xlUp).Row).SpecialCells(xlVisible)
If Not IsEmpty(rng1) Then
With xhr
.Open "PUT", "https://api.fulcrumapp.com/api/v2/records/" + rng2 + ".json", False
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Content-type", "application/json"
.setRequestHeader "X-ApiToken", "11111111"
.send rng1.value
End With
End If
Next
End With
Я думаю, вы хотите использовать смещение для захвата соседнего значения и, следовательно, вам нужен только один цикл. И используйте & для продолжения строки.
With ThisWorkbook.Worksheets("Fulcrum Upload")
For Each rng1 In .Range("Y3:Y" & .Cells(.Rows.Count, "Y").End(xlUp).Row).SpecialCells(xlVisible)
If Not IsEmpty(rng1) Then
With xhr
.Open "PUT", "https://api.fulcrumapp.com/api/v2/records/" & rng1.Offset(, 1).Value & ".json", False
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Content-type", "application/json"
.setRequestHeader "X-ApiToken", "11111111"
.send rng1.Value
End With
End If
Next
End With
End Sub