Automatically adding row of data to alphabetised tab

[Worley_]

Hi folks

I am in a bit of a pickle; I am a 2007/11 user ordinarily but have to work with 2003 for this task and am stuck.

Does anyone know if it is possible to automatically add row of data to an alphabetised tab? I am hoping to use the form function to add new entries but there doesn’t seem to be any way to change where the data goes. If there has to be a spread sheet with everyone on (~2000 rows) and it can be copied and added to an alphabetised tab from there, this is also okay.

Or am I dreaming…?

Thanks in advance.

 

[DutchDiggy]

Personally I avoid alpabetised tabs. I'd rather use 1 sheet with a table that can be filtered alphabetically. Same use, one sheet. If you ever need functions to work with the data, it'll be hell to pull it out of 26 tabs...

 

[Worley_]

Thanks and I would usually agree about the tab thing, hence why I don't know how to facilitate it, but this is to help other users who are not experienced with computers to find people quickly and easily.

 

[DutchDiggy]

Okay, I've got something you could use.
One sheet named "Data", other sheets "A" to "Z" (26 tabs, 27 included "Data")

Top row of All tabs should have the Headers, f.i. : Surname, Name, Adress, Birthdate of whatsoever. I've made the macro to apply to 13 columns (until M) You can expand in the code if you need.

this is the macro-code:

Sub Sorteren()
Dim RangeAll As Range


Set RangeAll = ThisWorkbook.Sheets("Data").Range("A2", Cells(Rows.Count, 1).End(xlUp))
For Each k In RangeAll
    WSN = Left(k, 1)
    lrowWSN = ThisWorkbook.Sheets(WSN).Cells(Rows.Count, 1).End(xlUp).Row
    k.Resize(1, 13).Copy ThisWorkbook.Sheets(WSN).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    ThisWorkbook.Sheets(WSN).Range("A1:M" & lrowWSN + 1).Sort Key1:=Worksheets(WSN).Columns("A"), Order1:=xlAscending, Header:=xlYes
            
Next
RangeAll.EntireRow.Delete




End Sub

You can enter with a form on the "Data" sheet and afterwards by running the macro move the data to the corresponding tabs.