Press Alt + F11 in excel to open the Visual basic Editor
Paste the following code in the editor.
Sub FixCrDrCells()
Dim Cell As Range
For Each Cell In Intersect(Range("A:A,Z:Z"), ActiveSheet.UsedRange)
If Right(Cell.Text, 2) = "Cr" Then Cell.Value = -Cell.Value
Next
Intersect(Range("A:A,Z:Z"), ActiveSheet.UsedRange).NumberFormat = "0.00"
End Sub
Press F5 to run the code. Now all Cr values will become –ve.
--
You received this message because you are subscribed to the Google Groups "NashiCAs" group.
To unsubscribe from this group and stop receiving emails from it, send an email to nashicas+u...@googlegroups.com.
To post to this group, send email to nash...@googlegroups.com.
Visit this group at http://groups.google.com/group/nashicas.
For more options, visit https://groups.google.com/d/optout.