• 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.

    Giriş yap veya Şimdi kayıt ol

Çö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

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
A
'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
Tarihe göre sırala Oylara göre sırala
'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
 
Olumlu oy 1 Negatif oyla
Çö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

Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst