1. Change this line:
If sh.Name <> "Complete data" Then
to this:
If sh.Name <> "Complete data" _
And sh.Name <> "Overview" _
And sh.Name <> "Workings" Then
This will ignore the Overview and Workings sheet when distributing the data.
2. Change this line:
Set IDNum = sh.Range("A:A").Find(what:=Target.Offset(0, -5).Value)
to this:
Set IDNum = sh.Range("A:A").Find(what:=Target.Offset(0, -3).Value)
and the error will not appear.
3. You can do this by ascertaining the last row and using that to specify the range to sort. Post the code you have to sort the data and I'll amend it to do what you need. I don't seem to be able to find it in the attached workbook.
4. You mean you want it to increment the number in column A each time you add a new line? What code do you have attached to that button? I cannot find this in the attachment either.
BSB
Bookmarks