Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
count of changed data
Hello,
I am using a macro to lower case selected areas. How can I correctly print the number of cells changed, rather than visited? Sub lowerme() Dim cell As Object Dim count As Integer count = 0 For Each cell In Selection count = count + 1 cell.Value = LCase(cell.Value) Next cell MsgBox count & " Cells Changed " End Sub TIA Ton |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
count of changed data
This worked for me:
If cell.Value < LCase(cell.Value) Then count = count + 1 Of course, you need this before you change a cell. Hth, Merjet |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
count of changed data
"ton de w" wrote: Hello, I am using a macro to lower case selected areas. How can I correctly print the number of cells changed, rather than visited? Sub lowerme() Dim cell As Object Dim count As Integer count = 0 changed = 0 For Each cell In Selection oldvalue = cell.Value count = count + 1 cell.Value = LCase(cell.Value) if oldvalue < cell.value then changed = changed + 1 end if Next cell MsgBox count & Changed End Sub TIA Ton |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Count on cell for each time it is changed | Excel Discussion (Misc queries) | |||
I need to keep a count of the times a cell is changed | Excel Discussion (Misc queries) | |||
How to count the number of cell changed since yesterday? | Excel Programming | |||
Charts not recognizing source data if original linked data is changed. | Charts and Charting in Excel | |||
Count How Many Times A Cell's Value Has Been Changed | Excel Programming |