Çözüldü Makroyu tüm sayfalara çalıştırma

[ozuberk]

Merhaba üstatlar aşağıdaki kodu Ana Sayfa hariç tüm sayfalara uygulamak istiyorum. Ayrıca kodun sonunda yer alan kod hata veriyor.


Sub Deneme()

Dim myShape As Shape
Set myDocument = Worksheets("Sayfa1")
Set myShape = myDocument.Shapes.AddShape(msoShapeRoundedRectangle, 800, 20, 90, 30)

With myShape
.TextFrame.Characters.Text = "Ana Sayfa"
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
End With

ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="Sayfa2"
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu deneyiniz.

Sub Test()
    Dim syf As Worksheet
    Dim myShape As Shape
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name <> "Ana Sayfa" Then
            Set myShape = syf.Shapes.AddShape(msoShapeRoundedRectangle, 800, 20, 90, 30)
            
            With myShape
                .TextFrame.Characters.Text = "Ana Sayfa"
                .TextFrame2.VerticalAnchor = msoAnchorMiddle
                .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
            End With
            ActiveSheet.Hyperlinks.Add Anchor:=myShape, Address:="", SubAddress:="'Ana Sayfa'!A1"
        End If
    Next
End Sub

 

[ozuberk]

Merhaba üstdad elinize sağlık kod düzgün çalışıyor.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.