Wednesday, February 23, 2011
Function To Sum specific fill or background colored cells in a range
Suppose you want to add cell values on the basis of the background or fill color.
Here is the fucntion.
Function sum_colored_values(x As Range, su As Range)
Dim Y As Range
Dim sm1 As Long
For Each Y In su
If Y.Interior.Color = x.Interior.Color Then
sm1 = sm1 + Y.Value
sum_colored_values = sm1
type like sum_colored_values(f9,$A$2:$A$23)
"$A$2:$A$23" - is a range in which you have to sum the cell values .
"f9" - is a cell having background or fill color
the function will return the sum of values in a range passed who are having the background color same as of "f9"
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...