Anonomise data
Hi Wizard,
Try:
'=============
Public Sub Tester001()
Dim Rng As Range
Dim rCell As Range
Dim LRow As Long
LRow = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A2:A" & LRow)
For Each rCell In Rng.Cells
With rCell
If Not IsEmpty(.Value) Then
If IsDate(.Value) Then
.Value = DateSerial(Year(.Value), 4, 1)
End If
End If
End With
Next rCell
End Sub
'<<=============
---
Regards,
Norman
"Wicked Wizard" wrote in message
...
I have a spreadsheet in XL2000 containing some data extracted from a DB. I
need to make the data anonymous so I can use it for training purposes. In
the date of birth column I want to change the dates so that
anyday/anymonth/1975 becomes 01/04/1975, anyday/anymonth/1976 becomes
01/05/1975, and so on.
My initial idea was a case statement applied to every cell in the column -
but I can't make it work.
Any assistance would be gratefully received.
WW
|