Dear ND,
Prosedur berikut tanpa proses loop.
Public Sub PasangSum()
Dim lRow As Long
Dim rngData As Range
'tentukan jumlah baris data dan set area kerja
lRow = Evaluate("=max(a:a)") * 1.2 + 1
Set rngData = Range("a1").Offset(1, 2).Resize(lRow, 1)
With rngData
'pasang formula
.Formula = "=Sum(a2:b2)"
'bersihkan baris kosong (dibantu autofilter)
ActiveSheet.AutoFilterMode = False
.CurrentRegion.AutoFilter 1, "="
.SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.AutoFilterMode = False
End With
End Sub
Regards.
Kid.
2011/8/25 Novan Dwiascahyo <[email protected]>
> **
>
>
> 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
> ______________________________________________________________________
>
>
>
