sum macro

  1. 4 bulan yang lalu

    Dear master....
    mohon dapat dibantu dikoreksi dimana script terlampir saya mau menggunakan fungsi sum di macro, dimana yang saya inginkan membuat sum pada posisi cursor activecell yang di sum adalah range row - 1 dari active cell sampai row sebelum formula sum pada row sebelumnya. sedangkan column nya sama dengan posisi activecell.
    Sub summ()
    Dim x As Variant
    Dim lrow As Long, valuesum As Variant
    Worksheets("Sheet1").Activate
    x = ActiveCell.Address
    With ActiveCell
    valuesum = "=SUM(" & .Cells(x.Row - 1, x.Column) & ":" & .Cells(x.Row - 10, x.Column) & ")" ' kemungkinan posisi salahnya
    .Formula = valuesum
    End With
    End Sub

    terima kasih

  2. manweljs_

    Mar 25 Terverifikasi + 8.798 Poin
    Di sunting 4 bulan yang lalu oleh manweljs_

    @nafis2006 ... saya mau menggunakan fungsi sum di macro, dimana yang saya inginkan membuat sum pada posisi cursor activecell yang di sum adalah range row - 1 dari active cell sampai row sebelum formula sum pada row sebelumnya. sedangkan column nya sama dengan posisi activecell....

    sebenarnya anda hanya perlu AutoSum :)

    autosum .gif

  3. betul mas @manweljs_ .....
    tetapi pas saya gunakan file yang row nya ada angka trus kosong dan selang seling dan row nya banyak fungsi autosum.... ngk bisa mas....

  4. manweljs_

    Mar 25 Terverifikasi + 8.798 Poin
    Di sunting 4 bulan yang lalu oleh manweljs_

    @nafis2006 tetapi pas saya gunakan file yang row nya ada angka trus kosong dan selang seling dan row nya banyak fungsi autosum.... ngk bisa mas....

    coba skrip berikut :

    Sub Summ()
    Dim x As Range
    Set x = ActiveCell
    c = x.Column
    
    i = x.Row
    For i = x.Row - 1 To 1 Step -1
        cek = Cells(i, c).Formula
        If InStr(cek, "=SUM") Then
            y = Cells(i + 1, c).Address
            Exit For
        Else
            y = Cells(1, c).Address
        End If
    Next
    x = "=Sum(" & x.Offset(-1, 0).Address & ":" & y & ")"
    x.Select
    End Sub
    

  5. mantap ....terima kasih banyak mas @manweljs_ ....
    script nya berfungsi.....

  6. maaf mas @manweljs_ ...
    kalau cell nya dirubah dari absolute ke relative apakah bisa mas.....

    terima kasih

  7. maaf mas @manweljs_ ...
    saya sudah bisa merubahnya....... terima kasih banyak atas ilmunya...

  8. manweljs_

    Mar 25 Terverifikasi + 8.798 Poin

    @nafis2006 ...saya sudah bisa merubahnya....... terima kasih banyak atas ilmunya...

    sama - sama :)

    oh iya, baris i = x.Row yang diatas For bisa dihapus aja, tadinya mau pakai j = x.row -1, jadi rencananya pada bagian For : For i = j To 1 Step -1. tapi gak jadi.. hahaha

 

atau Mendaftar untuk ikut berdiskusi!