Hi Ramesh
Try below code. File containing this code is also attached with this email
reply.
Sub Ramesh()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i, k As Integer
Cells(1, 1).Select
For k = 1 To 256
ActiveCell.EntireColumn.Select
i = Application.WorksheetFunction.
Hi Dev
Thank you very much.
Regards
Ramesh
On Fri, May 29, 2009 at 11:35 AM, Dev wrote:
>
>
> Ramesh - There are multiple ways to accomplish this. But since your
> request is to just sum the numbers for the given column, here is the
> snippet which is not production ready.
>
> Dim oRange as R
Ramesh - There are multiple ways to accomplish this. But since your
request is to just sum the numbers for the given column, here is the
snippet which is not production ready.
Dim oRange as Range
Dim iTotal as Double
iTotal = 0
For Each oRange In Application.Range ("A1:A10")
iTotal = iTotal
The attached workbook will display the sum of column A in a message box
whenever there is a change in column A.
Norman
On Fri, May 29, 2009 at 10:47 AM, Ramesh Katta wrote:
>
> Hi Gurus,
>
> I am Ramesh, new to vba programs. I need a macro to calculate sum for
> range of column. The should be
