Makro çalıştırdığımda formül bozuluyor

[typhoon58]

Merhabalar,
Linkini paylaştığım dosyada normalde oluşturulan yeni sayfadaki verilen yazılan form ile otomatik olarak özet sayfasına işlenmekteydi, fakat köprü oluşturmak için eklediğim makro bu formülü devre dışı bıraktı. Ayrıca köprü ekleme sırasında boş hücreler de A1 yazıyor değer olmayan hücrelerin boş olmasını nasıl sağlayabilirim. Boyumdan büyük bir işe girdim araştıra araştıra anca bu kadar oldu yardım edebilecek biri varsa ilgilenebilir mi ? Teşekkürler şimdiden.

Bağlantı Linki: https://nofile.org/v/9c61c2

 

[Muzaffer Ali]

MErhaba.
Module4 deki kodları silin aşağıdakileri kopyalayın.

Sub CreateHyperlinks()
    Dim mySheet As String
    Dim myRange As Range
    Dim celll As Range
    Set myRange = Range("B13:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    For Each celll In myRange
        ActiveSheet.Hyperlinks.Add Anchor:=celll, Address:="", SubAddress:="'" & celll & "'!A1"
    Next
End Sub

Anasayfada yazan A1 yazılarını silin sonra kodu çalıştırın.

 

[typhoon58]

MErhaba.
Module4 deki kodları silin aşağıdakileri kopyalayın.

Sub CreateHyperlinks()
    Dim mySheet As String
    Dim myRange As Range
    Dim celll As Range
    Set myRange = Range("B13:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    For Each celll In myRange
        ActiveSheet.Hyperlinks.Add Anchor:=celll, Address:="", SubAddress:="'" & celll & "'!A1"
    Next
End Sub

Anasayfada yazan A1 yazılarını silin sonra kodu çalıştırın.

Çok teşekkür ederim problem çözüldü emeğinize sağlık