Çağrılan hücrelerde mailto: çalışmıyor.

[OturanBoga1]

Merhabalar,

sizlere cok kolay gelebilecek acemice bir sorum var bana yardımcı olabilirseniz sevinirim.


Normalde herhangi bir hücreye herhangi bir mail adresi yazdıgımda excel bu adresi algılıyor ve üstüne tıklayınca otomatik olarak outlook acıp kime kısmını dolduruyor.

Eğer o hücredeki bilgiyi başka bir yerden cağırmışsam düz yazı olarak algılıyor ve link gibi gösteremiyor.

Manuel olarak kendim köprü oluşturursam o hücreye cagırdıgım tüm mailler icin aynı mail adresini görüyor.

Bu sorunu aşmam için bana yardımcı olursanız sevinirim.


Örnek bir dosya ekleyerek sorunumu anlatmaya calıstım.

 

[ozgretmen]

Dosyayı inceler misin ?

 

[OturanBoga1]

Dosyayı inceler misin ?

Sanırım problemi cözdük cok tesekkür ederim yardımınız icin.

 

[ozgretmen]

Sanırım problemi cözdük cok tesekkür ederim yardımınız icin.

Rica ederim.İyi çalışmalar...

 

[OturanBoga1]

Yeni bir örnek tablo ekliyorum ben biraz karıstırdım sanırım


müsadenizle bir soru daha sormak istiyorum,

acılır menüyle yapmak şartmı zira bizim şirkette herkes ezbere kodlarla çalışır açılır menüden secmek yerine direk kutuya girmek cok daha pratik olur bizim icin.

 

[ozgretmen]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
On Error Resume Next
satir = ActiveCell.Row
sütun = ActiveCell.Column
BUL = Range("L1:L" & [L65536].End(3).Row).Find([C4].Value, LookIn:=xlValues, LookAt:=xlWhole).Row
[C5].Value = Cells(BUL, "M").Value
[C6].Value = Cells(BUL, "N").Value
[C7].Value = Cells(BUL, "O").Value
[C8].Value = Cells(BUL, "P").Value
[C9].Value = Cells(BUL, "Q").Value
[C10].Value = Cells(BUL, "R").Value
[C11].Value = Cells(BUL, "T").Value
[C12].Value = Cells(BUL, "U").Value
Range("C11").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & [C11].Text, TextToDisplay:=[C11].Text
Range("C12").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & [C12].Text, TextToDisplay:=[C12].Text
End Sub

 

[OturanBoga1]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
On Error Resume Next
satir = ActiveCell.Row
sütun = ActiveCell.Column
BUL = Range("L1:L" & [L65536].End(3).Row).Find([C4].Value, LookIn:=xlValues, LookAt:=xlWhole).Row
[C5].Value = Cells(BUL, "M").Value
[C6].Value = Cells(BUL, "N").Value
[C7].Value = Cells(BUL, "O").Value
[C8].Value = Cells(BUL, "P").Value
[C9].Value = Cells(BUL, "Q").Value
[C10].Value = Cells(BUL, "R").Value
[C11].Value = Cells(BUL, "T").Value
[C12].Value = Cells(BUL, "U").Value
Range("C11").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & [C11].Text, TextToDisplay:=[C11].Text
Range("C12").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & [C12].Text, TextToDisplay:=[C12].Text
End Sub

mantığı şimdi biraz daha iyi anladım cok cok tesekkür ederim desteğiniz için.

 

[ozgretmen]

mantığı şimdi biraz daha iyi anladım cok cok tesekkür ederim desteğiniz için.

Rica ederim.İyi çalışmalar...