Makro ile Chromede Toplu Link Açma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Kısa Açıklama

Makro ile Chromede Toplu Link Açma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 365
Excel Sürümü
32 Bit
Excel Dili
İngilizce
Merhaba elimdeki listede yaklaşık 7000 adet link var bunların her birini açıp tek tek içinde işlem yapmam gerekiyor. Fakat tek tek açmak yerine topluca linkler açılsın istiyorum. Aşağıdaki gibi bir örnek buldum fakat burada listedeki tüm linkleri açıyor bu da programın yavaşlamasına sebep oluyor. ben belli bir aralık değeri gireyim ve sadece o aralıktaki linkleri açsın istiyorum. Mümkün müdür? Link örneğinde, her 7 satırda tekrar ediyor linkler örnek olması için fazla link bulamadım çünkü
Sub Web_Sayfası_Aç1()
Dim i%
For i = 1 To Range("A4000").End(3).Row
If Cells(i, 1) <> "" Then
Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & Cells(i, 1) & "", 1

End If
Next i
i = emty
End Sub
 
Ekli dosyalar
@burcudere

Şu kodu deneyin.
-- Kodu çalıştırdığınızda karşınıza işlem yapılacak başlangıç ve bitiş satır numaralarını yazmanız istenecek.
-- Bu bilgiyi 8-17 gibi arasına TİRE koyarak yazıp işlemi onaylayın.
-- Belirtilen satır aralığındaki internet sayfaları açılacaktır.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)
 
Çözüm
Ben Makro bilmediğim için yukarıdaki kod içerisinde bir iki yeri değiştirirsem olur belki diye düşünmüştüm, baya ekstra işlem yapmışsınız. elinize, emeğinize sağlık. Tam olmuş teşekkür ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst