Hyperlink.Add A1 hücre değerini vermek

[SSEN]

Merhaba

yapmaya çalıştığım "veli@hotmail.com" yerine A1 hücresindeki değeri alması

konu hakkında yardımcı olurmuusunuz


ActiveCell.FormulaR1C1 = "veli@hotmail.com"

 

[hımmmmmmmm]

slm

ne dediğini anlamadım ama şöyle bir açıklama yapayım...

ActiveCell.FormulaR1C1 burada zaten a1 hücresini temsil eder...
yani mail a1 hücresinde yazılı ise ActiveCell.FormulaR1C1 zaten o hücredir

bir mail adresini a1 hücresine vermek istersen bu atamalar doğru olur
ActiveCell.FormulaR1C1 = "veli@hotmail.com"
[a1]="veli@hotmail.com"
cells(1,"a")="veli@hotmail.com"
range("a1")="veli@hotmail.com"
cells(1,1)="veli@hotmail.com"
'---------------------------------------------
burada mail adresi farklı bir yerden alınıpda a1 hücresine verilmek istenirse..
onu bir değişkene verip atama yapılabilir...

MAIL=veli@hotmail.com"

ActiveCell.FormulaR1C1 = MAIL
[a1]=MAIL
cells(1,"a")=MAIL
range("a1")=MAIL
cells(1,1)=MAIL
'----------------------------------------------
tam tersini ele alalım... mail adresini a1 hücresinden almak istiyorsan..
onu bir değişkene vermek gerek...
MAIL=veli@hotmail.com"

MAIL=ActiveCell.FormulaR1C1
MAIL=[a1]
MAIL=cells(1,"a")
MAIL=range("a1")
MAIL=cells(1,1)
'----------------------------------------------
yok eğer farklı bir şey düşünüyodu isen bunları unt...

 

[mersilen]

Merhaba
sanırım bu link sizin sorunu çözer

http://www.excel.web.tr/f48/doubleclickle-hucredeki-link-ile-web-sayfasy-acmak-t104026.html

Application.ThisWorkbook.FollowHyperlink Address:="kor\" & Cells(Target.Row, "D").Value & ".html"

yada

Application.ThisWorkbook.FollowHyperlink Address:=Range("A1").Value

 

[SSEN]

aslında tam olarak yapmak istediğim şu

başka bir sayfadan düşey ara ile ana sayfaya mail adresi ve başka bilgiler geliyor mail gönder butonuna basıldığında outlok açılıp düşey ara ile gelen mail adreslerin outlook'a otomatik girilmesini istiyorum. makro ve köprü yardımıyla bir şeyler yapmaya çalştım sistem ilk yapılan köprüyü history alıyor ve sonrakileri yapmıyor


Sub mail()
'
' mail Makro
'

'
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "veli@hotmail.com;zeki@gmail.com"
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub