Makro ile Chromede Toplu Link Açma

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

burcudere

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
117
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

Çözüm
@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:
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
@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:
İndirmek 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...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt