Link sayfasına hesap kodu ilavesi

[igultekin2000]

İyi çalışmalar;
Muavin dökümünü ayrıştırarak cari isimlere göre link sayfasına cari isimleri listeleyerek ilgili carinin sayfasına link veriliyor. Form sitesinde hazırlanan güzel bir çalışma. Aynı isme sahip ancak farklı kodu olan carilerde kodları görmek işlemi pratikleştirecek. Link sayfası oluşturulurken carinin hemen solundaki hesap kodunu da carinin sonuna ila etsek işi oldukça pratikleştirecek. Bu şekilde bakiyesi olmayanları kontrol etmeyeceğim.
Link sayfasındaki cari hesabın sonuna solundaki hesap kodunu ilave etmek için makroyu nasıl düzenleyebiliriz. Teşekkürler.

Sub cariayir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Linkler")
son = s1.Cells(Rows.Count, "A").End(3).Row

a = s2.Cells(Rows.Count, "A").End(3).Row + 1
Application.ScreenUpdating = False
    For i = 2 To son
        If s1.Cells(i, "A") = "İLGİLİ HESAP" Then
            For j = i + 1 To son
                If s1.Cells(j, "C") = "T O P L A M" Then
                    Sheets.Add
                    s1.Range("A" & i - 1 & ":J" & j).Copy ActiveSheet.[A1]
                    [I2:J2].Merge
                    [I2] = "Linkler"
                    [I2].Hyperlinks.Add Anchor:=[I2], Address:="", SubAddress:= _
                        "Linkler!A1"
                    s2.Cells(a, "A") = a
                    s2.Cells(a, "B") = ActiveSheet.[E2]
                    s2.Cells(a, "B").Hyperlinks.Add Anchor:=s2.Cells(a, "B"), Address:="", SubAddress:= _
                        "'" & ActiveSheet.Name & "'!A1"
                    
                    a = a + 1
                    i = j
                    j = son
                End If
            Next
        End If
    Next
    s2.[1:2].EntireColumn.AutoFit
    s2.Activate
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı!", vbInformation
End Sub

 

[igultekin2000]

s2.Cells(a, "B") = ActiveSheet.[E2] satırını
s2.Cells(a, "B") = ActiveSheet.[E2&"-"&C2]
şeklinde düzenlediğimde istediğim oldu. Başka ihtiyaç duyan varsa diye paylaşmak istedim.