Makro ile linkleri çekmek

[xadm103]

A1=https://www.google.com/
A2=https://www.yandex.com/
A3=https://www.yahoo.com/
olacak şekilde aşağıdaki webservice makrosuyla alt alta veri almaya çalışıyorum fakat linklerden sadece birinin verisini çekebiliyorum.
üçünü de nasıl çekebilirim?

Sub Macro_Web()
Dim CELLS As Variant
CELLS = [A1:A3]

For Each CELLS In Selection

On Error Resume Next

[B1:B3] = Windows.Application.WorksheetFunction.WebService(CELLS.Value)
Next

End Sub

 

[Korhan Ayhan]

Döngünüzde hatalar var.

Kullandığınız fonksiyonun çalıştığını varsaydım. Deneme yapmadım.

Option Explicit

Sub Macro_Web()
    Dim Rng As Range
    
    On Error Resume Next
    
    For Each Rng In Range("A1:A3")
        Rng.Offset(, 1) = Windows.Application.WorksheetFunction.WebService(Rng.Value)
    Next
End Sub

 

[esen47]

Merhaba @Korhan Ayhan bey,
Rng.Offset(, 1) = Windows.Application.WorksheetFunction.WebService(Rng.Value)
satırında hata veriyor. Rng.Offset(1,1) i vs denediğimde de tekrar hata alıyorum...
takıldım kaldım şimdiden teşekkürler

 

[Korhan Ayhan]

Soruyu başka bir üyemiz sormuştu...

Ben fonksiyonun çalıştığını varsayarak cevap verdim. Sadece yazılan döngüyü düzeltmek adına yanıt verdim.

 

[Korhan Ayhan]

Şimdi denedim..

Çalışmayan linkler hataya sebep oluyor. Bu sebeple koda On Error Resume Next satırını ekleyip güncelledim.