Köprü bağlanmıs bir otomatik sekle makro atamak

[Eser Gökay]

arkadaslar herkese merhaba...

100'den fazla sayfası olan bir calisma kitabının her sayfasında ok seklinde bir otomatik sekil var. ve bu ok kopru ile anasayfaya gitmeye yarıyordu. calisma kitabındaki bu anasayfaya gereksinim kalmayınca kaldırdım. otomatik sekiller yerinde duruyor. haliyle kopruleri de calismiyor. bir defa da bu kopruleri kaldırıp yerine butun bu oklara xxx macrosunu atama gibi bir sansım var mıdır???

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KÖPRÜLERİ_KALDIR_MAKRO_ATA()
    On Error Resume Next
    For X = 1 To Sheets.Count
    Sheets(X).Select
    ActiveSheet.Shapes("AutoShape 1").Select
    Selection.ShapeRange.Item(1).Hyperlink.Delete
    Selection.OnAction = "ATAMAK İSTEDİĞİNİZ MAKRONUN ADI"
    Range("A1").Select
    Next
End Sub

 

[Eser Gökay]

Sayın COST_CONTROL ne kadar makbule gectigini anlatamam. cok tesekkur ediyorum. ellerinize saglik...