Macro RSA_CollectData

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_CollectData()
    
 'collects the sequences, residue labels and accessibility data into individual worksheets
        Sheets.Add
        ActiveSheet.Name = "Alig"
        Sheets.Add
        ActiveSheet.Name = "SEQ"
        Sheets.Add
        ActiveSheet.Name = "LABEL"
        Sheets.Add
        ActiveSheet.Name = "All Abs."
        Sheets.Add
        ActiveSheet.Name = "All Rel."
        Sheets.Add
        ActiveSheet.Name = "NonPol sc Abs."
        Sheets.Add
        ActiveSheet.Name = "NonPol sc Rel."
        Sheets.Add
        ActiveSheet.Name = "Pol sc Abs."
        Sheets.Add
        ActiveSheet.Name = "Pol sc Rel."
        Sheets.Add
        ActiveSheet.Name = "all sc Abs."
        Sheets.Add
        ActiveSheet.Name = "all sc Rel."
        Sheets.Add
        ActiveSheet.Name = "mc Abs."
        Sheets.Add
        ActiveSheet.Name = "mc Rel."
   
    For i = 1 T 2559 Step 1
        If IsEmpty(Sheets("Files").Cells(i, 1)) Then Exit For
    
            aaa = Sheets("Files").Cells(i, 1)
    
            Sheets(aaa).Select
            Columns(1).Select
            Selection.Copy
            Sheets("SEQ").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("SEQ").Cells(1, i) = aaa
                
            Sheets(aaa).Select
            Columns(3).Select
            Selection.Copy
            Sheets("Label").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("Label").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(4).Select
            Selection.Copy
            Sheets("All Abs.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("All Abs.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(5).Select
            Selection.Copy
            Sheets("All Rel.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("All Rel.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(6).Select
            Selection.Copy
            Sheets("NonPol sc Abs.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("NonPol sc Abs.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(7).Select
            Selection.Copy
            Sheets("NonPol sc Rel.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("NonPol sc Rel.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(8).Select
            Selection.Copy
            Sheets("Pol sc Abs.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("Pol sc Abs.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(9).Select
            Selection.Copy
            Sheets("Pol sc Rel.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("Pol sc Rel.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(10).Select
            Selection.Copy
            Sheets("all sc Abs.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("all sc Abs.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(11).Select
            Selection.Copy
            Sheets("all sc Rel.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("all sc Rel.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(12).Select
            Selection.Copy
            Sheets("mc Abs.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("mc Abs.").Cells(1, i) = aaa
                        
            Sheets(aaa).Select
            Columns(13).Select
            Selection.Copy
            Sheets("mc Rel.").Select
            Columns(i).Select
            ActiveSheet.Paste
            Sheets("mc Rel.").Cells(1, i) = aaa
    
    Next i
    
End Sub