Remote Desktop Hücre içinde link vermek.

[trerbol]

Merhaba ;

Hücreye yazdığım ip adresine tıklayınca mstsc.exe nasıl çalıştıra bilirim.
Örnek : A1 hücresinde 10.29.145.1 yazıyor bunun üzerine tıklayınca direk remote desktop açılması için.

Teşekküler.

 

[Korhan Ayhan]

İyi geceler,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın. İlgili hücrede çift tıklayıp deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Baglan = Shell("mstsc.exe", vbNormalFocus)
End Sub

 

[trerbol]

İyi Geceler;

Hızlı cevap için teşekkürler.Kodu Excel içinde A sayfasına uyguladım ancak hangi hücreye çift tıklasam ilgili uygulama açılıyor.Bunu sütun bazında kısa bilirmiyiz.Ayrıca uygulama açılınca ip adresini direk Remote dektop içinde gösterme şansımız varmıdır.Yada daha ileri gidip connect demeden hücredeki ip adresine tıklayınca direk ilgili ip adresindeki server bağlantı kurmasını sağlaya bilirmiyiz.

 

[Korhan Ayhan]

Günaydın,

Aşağıdaki kodu deneyiniz. Kod A1:A100 aralığında çalışır. Siz dilediğiniz gibi değiştirirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Baglan
    If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Cancel = True
    Baglan = Shell("mstsc.exe", vbNormalFocus)
    Application.Wait Now + TimeValue("00:00:03")
    SendKeys Target
    SendKeys "~"
End Sub

 

[trerbol]

Remote desktop ve Excel

İyi akşamlar;

Korhan Bey;

Bilgi için Teşekkürler denedim istediğim sütünda istediğim hücre aralığında tıklayınca açılıyor.

Konu ile ilgili son sorum olsun

Uygulama açılınca yazan ip adresine direk baglantıya geçme yolu varmıdır.

 

[trerbol]

Merhaba;

son sorumun cevabını buldum paylaşmak istedim belirttiğiniz kodu hücre bazında kısarsak ve exe nin sonuna -v yazıp hücrede bulunan ip adresini yazdığımızda tıklayınca otomatik baglantı sağlıyor revize edilen kodu paylaşıyorum.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Baglan
If Intersect(Target, Range("D11")) Is Nothing Then Exit Sub
Cancel = True
Baglan = Shell("mstsc.exe -v 10.29.145.1", vbNormalFocus)
Application.Wait Now + TimeValue("00:00:03")
SendKeys Target
SendKeys "~"
End Sub

 

[Korhan Ayhan]

Merhaba,

Eğer tkladığınız hücrede IP adresi varsa beni önerdiğim koda ekleme yapmadan çalışması gerekiyordu. Çünkü denemelerimde ben bu şekilde sonuç aldım.

Sizin verdiğiniz yöntemde direk bağlanma olayı aktif oluyor. Onuda aşağıdaki şekilde düzenlemeniz yeterli olacaktır.

Bu kod ile aktif hücredeki IP adresine bağlant kurulmaktadır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Baglan
    If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Cancel = True
    Baglan = Shell("mstsc.exe -v " & Target, vbNormalFocus)
End Sub