Makro ile Köprü oluşturma-2

[ayagiz44]

Ekteki dosyamda formu açtıktan sonra
sayfa aç kaydet butonu yeni sayfa açıp sayfa adı veriyor
isteğim ANASAYFA A3 ten itibaren açılan her sayfada sıralı köprü oluştursun

http://s5.dosya.tc/server4/bwua8e/ICRA_CALISMA.rar.html
Yardımlarınızı bekliyorum.

 

[YUSUF44]

SAYFA AÇ KAYDET düğmesinin kodunu aşağıdaki gibi değiştirebilirsiniz:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
    Say = Worksheets.Count
    For X = Say To Say
    Sheets("Örnek").Select
    Sheets("Örnek").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Name = Format(X, "0000")
    ActiveSheet.[AA1].Select
        Selection.NumberFormat = "@"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveSheet.[AA1] = ActiveSheet.Name
    Next
    Sheets("ANASAYFA").Select
    [B][COLOR="Red"]Cells(Sheets.Count - 1, "A").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Sheets(Sheets.Count).Name & "'!A1"[/COLOR][/B]
    Application.ScreenUpdating = True
    
    Application.Wait Now + TimeSerial(0, 0, 1)
    Unload Me
End Sub

 

[ayagiz44]

yusuf44

Hemşehrim eyvallah