• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Aktif Hücreye Tıkladığımda Web Tarayıcı açılsın.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
95
Excel V
Office 365 TR
Arkadaşlar Merhaba,

Ekteki örnekte belirttim. "I" Sütununda örneğin I2 ye tıkladığımda sabit web adresinin sonuna A2 kodu birleştirerek internet tarayıcısını açıp ilgili aderese gitmek istiyorum. Yardımcı olabililirseniz Sevinirim Şimdiden Teşekkürler
 

Ekli dosyalar

Çözüm
'Kontrol sayfasının kod modülüne aşağıdaki kodu yapıştırıp, I2 hücresini çift tıklayın
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$I$2" Then
ActiveWorkbook.FollowHyperlink Address:="https://workcube.deneme.com.tr/index.cfm?fuseaction=crm.popup_add_company_risk&consumer_id=" & Range("A2").Value, NewWindow:=True
End If
End Sub
'Kontrol sayfasının kod modülüne aşağıdaki kodu yapıştırıp, I2 hücresini çift tıklayın
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$I$2" Then
ActiveWorkbook.FollowHyperlink Address:="https://workcube.deneme.com.tr/index.cfm?fuseaction=crm.popup_add_company_risk&consumer_id=" & Range("A2").Value, NewWindow:=True
End If
End Sub
 
Çözüm
Deneyiniz. I sütunundaki hücrelere çift tıklayınca sayfayı açar. Adresi kendi gerçek adresinizle değiştiriniz.
 

Ekli dosyalar

Sayın ; himmgarip çok çok teşekkür ederim. elinize sağlık.
Sayın ; AliCimri çok çok teşekkür ederim. elinize sağlık.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst