Hiperlink problemi

[lucifer61]

Öncelikle kolay gelsin herkese benim sorunum bir excel dosyasında mesela 200 tane farklı farklı link verilmiş kutucuk var.Şimdi ben hepsinin linklerine dokunmadan sadece isimlerini değiştirmek istiyorum.Hepsinin isminide aynı yapmak istiyorum.Bana bu konuda yardımcı olabilecek olan varsa şimdiden teşekkür ederim.Cevaplarınızı bekliyorum.Excel 2007 ingilizce kullanıyorum.Yada bir formül kullanarak bi işi yapabilirmiyiz acaba mesela d sutünunun da bulunan bütün kutuların ismi x bişey olsun ama linkler bozulmadan tabi.

 

[Kemal Demir]

Öncelikle foruma hoşgeldiniz.

Sorunuzun cevabının netliği ve kısa sürede dönüşü olması açısından sorunuzu örnek dosya ile destekleyiniz.

On Error Resume next
Dim say As Integer
say = ActiveSheet.Shapes.Count
For x = 1 To say
    ActiveSheet.Shapes(x).Select
    [b]'Objenın üzerine text yazar[/b]
    Selection.Characters.Text = x & " " & "numara"
   [b]'Objenın üzerine yazılan text'i kalın yapar[/b]
    With Selection.Characters.Font
        .Bold = True
    End With
    [b]'Objenın Screen textini yazar[/b]
    Selection.ShapeRange.Item(1).Hyperlink.ScreenTip = "İstediğini Yazx"
Next

On Error resume Next

Yukarıdaki hata kodunu yazıyorum.Objede link yok ise kod aksayabilir.

 

[lucifer61]

Öncelikle hoşbulduk foruma ama excel kodları konusunda biraz yeniyim tam olarak yukarıda yazan kodları nereye girmem gerekiyo acaba

 

[Kemal Demir]

Excel'inizde ,

Alt+F11 tuslarına basarak Vba editorunu açmalısınız.Sonrasında "Insert>Module" kısmına basarak yeni bir modul açmalısınız.Açtıgınız Module aşagıdaki verileri kopyalayınız.

Sub ObjelereYaz()
On Error Resume next
Dim say As Integer
say = ActiveSheet.Shapes.Count
For x = 1 To say
    ActiveSheet.Shapes(x).Select
    'Objenın üzerine text yazar
    Selection.Characters.Text = x & " " & "numara"
   'Objenın üzerine yazılan text'i kalın yapar
    With Selection.Characters.Font
        .Bold = True
    End With
    'Objenın Screen textini yazar
    Selection.ShapeRange.Item(1).Hyperlink.ScreenTip = "İstediğini Yazx"
Next
End Sub

Umarım anlatabilmişimdir.

 

[lucifer61]

teşekkür ederim kemal bey deniycem

Dediğinizi yaptım code sheet 1 ekranına girdim ama daha sonra ne yapmam lazım istediğim şeyi yapmak için normal excel ekranın da formulas ekranında code ekranına mı girmem gerekiyor yazdığınız kodu.

 

[lucifer61]

Ya denedim ama olmuyo malesef yardım olabilecek olan varsa sevinirim makrolar etkin halde ama yukarıdaki kodu girmeme rağmen bir şey değişmiyor