Thread
:
Check if all values in a column is identical
View Single Post
#
4
Posted to microsoft.public.excel.programming
Mr. Smith[_4_]
external usenet poster
Posts: 4
Check if all values in a column is identical
Nice twist Cordially!
Thanks!
Mr. Smith
"papou" wrote in message
...
Hello Mr. Smith
Here's a suggestion (dunno if its smarter!)
Amend with the relevant range reference:
'if identical values found exit the sub
If Evaluate("COUNTIF(A2:A76,A2)=COUNTA(A2:A76)") Then Exit Sub
HTH
Cordially
Pascal
"Mr. Smith" a écrit dans le message de news:
...
Hi.
(VBA scripting in Excel 2003)
Case:
If all values in column A are identical, Then
No need to activate SUBTOTAL on the data.
Else
Activate SUBTOTALS.
End if
What would be a "slick" way of checking column A for changing values? The
smartes way I can think of is something like this
chkstr = Range("A2")
For i = 3 to LastRowOfData 'Data starts in row 2, row 1 contains heading
If Cells("A"&i) < chkstr Then
GoTo: InsertSubtotals
Next i
'Not even sure if it would work.....
Kind regards
Mr. Smith
Reply With Quote
Mr. Smith[_4_]
View Public Profile
Find all posts by Mr. Smith[_4_]