link oluşturmak

[mersilen]

Selamlar
c1 hücresine farklı hücrelerdeki verileri birleştirerek link oluşturabilir miyiz?

 

[Ömer]

Merhaba,

=KÖPRÜ(E1&F1&G1;"AdresiAç")

Şeklinde kullanabilirsiniz.

.

 

[mersilen]

teşekkürler

 

[mersilen]

Tekrar selam

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, [c1:c1000]) Is Nothing Then Exit Sub
ThisWorkbook.FollowHyperlink Address:=Range(Target).Value
say = WorksheetFunction.Match(CDbl(Date), Rows(1), 0)

With Cells(Target.Row, say)
.Value = Format(Now, "hh")
.Interior.ColorIndex = 3
End With

End Sub

c5 e çiftklik yapınca e5 deki adresteki linlin açılması için
ThisWorkbook.FollowHyperlink Address:=Range(Target).Value
kısmını nasıl düzeltmek lazım

 

[Ömer]

Tekrar selam
c5 e çiftklik yapınca e5 deki adresteki linlin açılması için
ThisWorkbook.FollowHyperlink Address:=Range(Target).Value
kısmını nasıl düzeltmek lazım

ThisWorkbook.FollowHyperlink Target.Offset(0, 2).Value

Bu şekilde deneyiniz.

.

 

[mersilen]

İlginiz için teşekkür ederim Ömer bey
Bu sıralar hastanede işler yoğun olduğundan mesajınıza geri döngü yapamadım kusura bakmayın, sizler sayesinde bu oyunda işlemler 2-3 dk bitiyor,gerçi diyeceksiniz bu zamanda oyunun ne işi var diye ama bu sayede hem beyin cimnastiği, hem atraksiyon hemde excelimi geliştiriyorum
vermiş olduğunuz kodda hata oluşuyor
dosya masa üzerinde iken linke direk tıklayınca açılıyor ama double click ile çalışmıyor

ThisWorkbook.FollowHyperlink Target.Offset(0, 2).Value