DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ekli dosyayı görüntüle linkler.xlsMerhaba,
Sorunuzu küçük bir örnek dosya ile desteklermisiniz.
Sub WebAc()
Dim i As Long
On Error Resume Next
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
ActiveWorkbook.FollowHyperlink Address:=Cells(i, "A")
Next i
End Sub