Merhaba;
Arkadaşlar boş bir excel sayfası a sütununa her sabah girişini yaptığım web sayfalarını A kolonunda a1,a2,a3...hücrelerine yazıyor ve aşağıdaki makro ile yan yana yazdığım sayfaları açıyordum.
Chrome yerine Opera kullanacağım. Kodu nasıl düzenlerim.
Sub Web_Sayfası_Aç1()
Dim i%
For i = 1 To Range("A65536").End(3).Row
If Cells(i, 1) <> "" Then
Shell "C:\Program Files\Google\Chrome\Application\chrome.exe " & Cells(i, 1) & "", 1
' Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Cells(i, 1) & "", 1
End If
Next i
i = emty
End Sub
Arkadaşlar boş bir excel sayfası a sütununa her sabah girişini yaptığım web sayfalarını A kolonunda a1,a2,a3...hücrelerine yazıyor ve aşağıdaki makro ile yan yana yazdığım sayfaları açıyordum.
Chrome yerine Opera kullanacağım. Kodu nasıl düzenlerim.
Sub Web_Sayfası_Aç1()
Dim i%
For i = 1 To Range("A65536").End(3).Row
If Cells(i, 1) <> "" Then
Shell "C:\Program Files\Google\Chrome\Application\chrome.exe " & Cells(i, 1) & "", 1
' Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Cells(i, 1) & "", 1
End If
Next i
i = emty
End Sub