makroyla chrome açma

[burcin_end_muh]

Merhabalar,

makroyla chrome açtıktan sonra adres çubuğuna yazılacak değeri hücreden alsın istiyorum.

Private Sub CommandButton1_Click()

Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe ", vbMaximizedFocus

End Sub

Teşekkürler

 

[muygun]

Merhaba;

http://www.excel.web.tr/f48/makro-ile-toplu-link-acma-t147346.html

Linkteki Ömer bey'in 4 nolu mesajındaki kodları deneyin.
İyi çalışmalar.

 

[burcin_end_muh]

Merhaba;

http://www.excel.web.tr/f48/makro-ile-toplu-link-acma-t147346.html

Linkteki Ömer bey'in 4 nolu mesajındaki kodları deneyin.
İyi çalışmalar.

çok teşekkürler.

 

[levo26]

Merhaba,

Aşağıdaki kodu denermisiniz.. A sütununa yazdığınız adresleri açar...

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

End If
Next i
i = emty
End Sub

 

[burcin_end_muh]

Merhaba,

Aşağıdaki kodu denermisiniz.. A sütununa yazdığınız adresleri açar...

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

End If
Next i
i = emty
End Sub

çok teşekkürler

 

[levo26]

Rica ederim..