Değişken atama

[airborne]

s.a.

Aşağıdaki kodda Shell (chromePath & " -url excel.web.tr") excel.web.tr yerine sayfa1, a1 hücresindeki linki değişken olarak nasıl atayabilirim.

Sub excelwebtr()
Dim chromePath As String
  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
  Shell (chromePath & " -url excel.web.tr")
End Sub

Selametle...................................................................

 

[Korhan Ayhan]

Merhaba,

Böyle deneyiniz..

Shell (chromePath & " -" & Sheets("Sayfa1").Range("A1").Value)

 

[airborne]

s.a.

Teşekkür ederim üstad.

Selametle..................