Döngü haline getirebilir misiniz?

[farukiskender]

Siteden fiyat bilgisini almak istiyorum ancak bunu sadece 1 blok için yapıyor (a1'e) ve fiyatıda b1 e yazıyor. Ancak bunu a2 a3 a4 lere de uygulamasını istiyorum nasıl yapabilirim ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("Name").Row And _
Target.Column = Range("Name").Column Then
Dim IE As New InternetExplorer
IE.Visible = False
IE.Navigate "https://opskins.com/?loc=shop_search&app=578080_2&sort=lh&search_item=" & Range("Name").Value

  Do
  DoEvents
  Loop Until IE.readyState = READYSTATE_COMPLETE
  Dim Doc As HTMLDocument
  Set Doc = IE.document
  Dim sDD As String
  sDD = Trim(Doc.getElementsByClassName("item-amount")(0).innertext)
  IE.Quit
  Dim aDD As Variant
  aDD = Split(sDD, ",")
  Range("Fiyat").Value = aDD(0)
  

End If
End Sub

 

[farukiskender]

Yardım edebilecek yok mu ya rica ediyorum en küçük düzeltecek şey bile olabilir

 

[askm]

Aşağıdaki şekilde denerseniz A1 den A10 a kadar döngü kurar. Sonucu B sütununa yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("Name").Row And _
Target.Column = Range("Name").Column Then
Dim IE As New InternetExplorer
IE.Visible = False
for i=1 to 10
IE.Navigate "https://opskins.com/?loc=shop_search&app=578080_2&sort=lh&search_item=" & Range("A" & i).Value

  Do
  DoEvents
  Loop Until IE.readyState = READYSTATE_COMPLETE
  Dim Doc As HTMLDocument
  Set Doc = IE.document
  Dim sDD As String
  sDD = Trim(Doc.getElementsByClassName("item-amount")(0).innertext)
  IE.Quit
  Dim aDD As Variant
  aDD = Split(sDD, ",")
  Range("B"&i).Value = aDD(0)
next i
End If
End Sub