Hai Gustari,
Coba prosedur berikut :
Public Sub ngeSum()
Dim rng As Range
Dim lLastRow As Long
Set rng = Range("k4").CurrentRegion
lLastRow = rng.Rows.Count + rng.Resize(1, 1).Row - 1
With Range("k4:k" & lLastRow)
.Formula = "=Sum(h4:j4)"
ActiveSheet.Calculate
.Value = .Value
End With
End Sub
Wassalam,
Kid.
2012/8/4 gus tari <[email protected]>
> **
>
>
> Dear para pakar XL mania
>
> Saya mempunyai coding makro (terlampir) yang semakin lemot bila memori
> semakin banyak (karena Sheet setiap hari bertambah).
> Mohon pencerahan dari pakar semua.
> Terimakasih.
>
> Salam
> Gustari
>
>
>
