would like to creat a relatively easy macro in excell

Posted on 2013-12-31
Last Modified: 2014-01-29
i have 5 columns of numbers listed in excell

would like to create a macro that gets the count of numbers in the first column

the remaining columns, i would like to calculate the average of each column

tried to record a macro to do this many times and it didnt work. One of the problems it wouldnt work was because the number of column entries will vary from spreadsheet to spreadsheet. The macro I created kept the column count the same.

If this doesnt explain the problem well enough, i can send a file
Question by:radrick60
1 Comment

Accepted Solution

dustock earned 500 total points
ID: 39748594
With the description you gave I tried to come up with a solution.  It may not be the best way to do it, but it seemed to work for my testing.

You didn't say what you wanted to do with the count and the averages so I just set this to put that data on the last row of each line with bold text and a pink cell color with your values

Go to the Developer Tab and click Visual Basic, double click "ThisWorkbook" and past the following code.  Then try to run the "Calculate" macro and see if you get the desired results.

Also in the future, please add Microsoft Excel to the Topics portion so that the Excel Experts can assist.

Dim cAverage As Double

Sub Calculate()
  'LastRow for column A
  ALastRow = Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row
  Dim rRng As Range
  'If you have a header row change to A1 to A2
  Set rRng = Range("A1:A" & ALastRow)
  Sheets(1).Cells(ALastRow + 1, "A").Value = ALastRow
  'Set font to bold
  Sheets(1).Cells(ALastRow + 1, "A").Font.Bold = True
  'Set cell color
  Sheets(1).Cells(ALastRow + 1, "A").Interior.ColorIndex = 22
  'For Columns B to E
  For i = 2 To 5
  'Last Row for column i
    LastRow = Sheets(1).Cells(Sheets(1).Rows.Count, i).End(xlUp).Row
        CellAverage (Sheets(1).Range(Cells(1, i), Cells(LastRow, i)))
        Sheets(1).Cells(LastRow + 1, i).Value = cAverage
        'Set font to bold
        Sheets(1).Cells(LastRow + 1, i).Font.Bold = True
        'Set cell color
        Sheets(1).Cells(LastRow + 1, i).Interior.ColorIndex = 22
    Next i
End Sub

Sub CellAverage(rng As Range)
    cAverage = 0
    cAverage = Application.WorksheetFunction.Average(rng)
End Sub

Open in new window


Featured Post

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
encrypted folder 7 63
How to remove unwanted words? 34 48
Pay to 支付宝 12 55
How to stop a browser from opening when uninstalling an application 6 37
In this article, I will show you HOW TO: Perform a Physical to Virtual (P2V) Conversion the easy way from a computer backup (image).
Learn how to PXE Boot both BIOS & UEFI machines with DHCP Policies and Custom Vendor Classes
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In this Micro Tutorial viewers will learn how to use Boot Corrector from Paragon Rescue Kit Free to identify and fix the boot problems of Windows 7/8/2012R2 etc. As an example is used Windows 2012R2 which lost its active partition flag (often happen…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question