Kodu İstenilen sayfada çalıştırma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; aşağıdaki kodu

Sub TOPLA()

SonSat = Cells(Rows.Count, "B").End(xlUp).Row

Range("AR" & SonSat + 1) = Application.WorksheetFunction.Sum(Range("AR7:AR" & SonSat))
Range("AR" & SonSat + 1).HorizontalAlignment = xlCenter
Range("AS" & SonSat + 1) = Application.WorksheetFunction.Sum(Range("AS7:AS" & SonSat))
Range("AS" & SonSat + 1).NumberFormat = "#,##0.00"
Range("AS" & SonSat + 1).HorizontalAlignment = xlRight
Range("AS" & SonSat + 1).IndentLevel = 1

End Sub

İstediğim sayfada nasıl çalıştırırım yani Ben BORDRO sayfasında iken bu kodu çalıştırınca PUANTAJ sayfasında toplama işlemi yapsın.
Range önüne Sheets ("PUANTAJ").

 

[Muzaffer Ali]

Merhaba.
Zaten cevabı da vermişsiniz.

Range önüne Sheets ("PUANTAJ").

Yani aşağıdaki gibi.

Sheets ("PUANTAJ").Range("AR" & SonSat + 1) = Application.WorksheetFunction.Sum(Range("AR7:AR" & SonSat))

Artı olarak cells önüne de eklemelisini.

SonSat = Sheets ("PUANTAJ").Cells(Rows.Count, "B").End(xlUp).Row

 

[Korhan Ayhan]

Cevabıda son satırda vermişsiniz.

Cells ve Range kelimelerinin başına aşağıdaki bilgiyi ekleyiniz.

Sheets("PUANTAJ").

 

[Hacı Bayram ÖZKAN]

Sayın hocalarım teşekkürler. Ben sadece ilk baştaki cells önüne eklememişim çok teşekkürler

 

[Hacı Bayram ÖZKAN]

Sayın hocam dediklerinizi yaptım ama yinede çalışmadı dosyayı ekledim bakar mısınız? Teşekkürler.

 

[Muzaffer Ali]

Sağdaki rangelerin başına eklememişsiniz.
Aşağıdaki gibi with ile de yapılabilir.
Dikkat edin her range ve cells önünde nokta olmalı.
Aşağıdaki kodu kullanın.

Sub TOPLA()
    With Sheets("PUANTAJ")
        son = .Cells(Rows.Count, "B").End(xlUp).Row
        .Range("AR" & son + 1) = Application.WorksheetFunction.Sum(.Range("AR7:AR" & son))
        .Range("AR" & son + 1).HorizontalAlignment = xlCenter
        .Range("AS" & son + 1) = Application.WorksheetFunction.Sum(.Range("AS7:AS" & son))
        .Range("AS" & son + 1).NumberFormat = "#,##0.00"
        .Range("AS" & son + 1).HorizontalAlignment = xlRight
        .Range("AS" & son + 1).IndentLevel = 1
    End With
End Sub

 

[Hacı Bayram ÖZKAN]

Evet hocam oldu elinize sağlık teşekkür ederim. Dua ile kalın İyi geceler.