coba juga, (mohon dites kecepatannya) Sub Sumi() 'anton suryadi, 27/Agt/2011 'mengisi cell dengan formula hanya pada baris yang kosong/ blank (Microsoft Office Excel 2007) Dim r As Range ActiveSheet.AutoFilterMode = False x = Cells(Rows.Count, 1).End(xlUp).Row Set r = Cells(1, 1).Resize(x, 1) With r .AutoFilter 1, "<>" .Offset(1, 2).Resize(x - 1, 1).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" End With ActiveSheet.AutoFilterMode = FalseEnd Sub
>semoga bermanfaat --- In [email protected], Novan Dwiascahyo <novan.dwiascahyo@...> wrote: > > Dear XL-mania, > > Mohon bantuannya memperbaiki formula macro yg menggunakan Do.. Loop, sehingga proses penghitungan data dapat berlangsung kontinyu hanya dengan sekali running macro dan baru akan berhenti setelah menghitung data yg paling bawah. > > Perintah yg saya gunakan adalah sbb: > > Sub sum() > ' sum > ' penjumlahan biasa > Do > If IsEmpty(ActiveCell) Then > If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then > ActiveCell.Value = "" > Else > ActiveCell.FormulaR1C1 = "=sum(RC[-1],RC[-2])" > End If > End If > ActiveCell.Offset(1, 0).Select > Loop Until IsEmpty(ActiveCell.Offset(-1, -1)) > End Sub > > Kasus lengkapnya mohon disimak file terlampir. Thanks berat. > > Note: Ini postingan ke-2 (dgn sedikit edit) karena postingan yg pertama sepertinya tidak sampai dengan slamet. > > Salam, > ND > > > ______________________________________________________________________ > This email has been scanned by the MessageLabs Email Security System. > For more information please visit http://www.messagelabs.com/email > ______________________________________________________________________ >
