Macro RSA_GapFromLbl

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_GapFromLbl()
       
    'Gaps the sequence, labels, and accessibility worksheets as defined by the residue label

    For i = 1 To 256 Step 1
        If IsEmpty(Sheets("Files").Cells(i, 1)) Then Exit For
    
        For j = 160 To 3 Step -1  'works only for single domains
           If (IsEmpty(Sheets("Label").Cells(j, i)) Or Not (IsNumeric(Sheets("Label").Cells(j, i)))) Then
                    'remove additional summary info at the end of the file
                Sheets("SEQ").Cells(j, i) = ""
                Sheets("Label").Cells(j, i) = ""
                Sheets("All Abs.").Cells(j, i) = ""
                Sheets("All Rel.").Cells(j, i) = ""
                Sheets("NonPol sc Abs.").Cells(j, i) = ""
                Sheets("NonPol sc Rel.").Cells(j, i) = ""
                Sheets("Pol sc Abs.").Cells(j, i) = ""
                Sheets("Pol sc Rel.").Cells(j, i) = ""
                Sheets("all sc Abs.").Cells(j, i) = ""
                Sheets("all sc Rel.").Cells(j, i) = ""
                Sheets("mc Abs.").Cells(j, i) = ""
                Sheets("mc Rel.").Cells(j, i) = ""

           Else: N = Sheets("Label").Cells(j, i) + 3
                
                Sheets("SEQ").Cells(N, i) = Sheets("SEQ").Cells(j, i)
                Sheets("Label").Cells(N, i) = Sheets("Label").Cells(j, i)
                Sheets("All Abs.").Cells(N, i) = Sheets("All Abs.").Cells(j, i)
                Sheets("All Rel.").Cells(N, i) = Sheets("All Rel.").Cells(j, i)
                Sheets("NonPol sc Abs.").Cells(N, i) = Sheets("NonPol sc Abs.").Cells(j, i)
                Sheets("NonPol sc Rel.").Cells(N, i) = Sheets("NonPol sc Rel.").Cells(j, i)
                Sheets("Pol sc Abs.").Cells(N, i) = Sheets("Pol sc Abs.").Cells(j, i)
                Sheets("Pol sc Rel.").Cells(N, i) = Sheets("Pol sc Rel.").Cells(j, i)
                Sheets("all sc Abs.").Cells(N, i) = Sheets("all sc Abs.").Cells(j, i)
                Sheets("all sc Rel.").Cells(N, i) = Sheets("all sc Rel.").Cells(j, i)
                Sheets("mc Abs.").Cells(N, i) = Sheets("mc Abs.").Cells(j, i)
                Sheets("mc Rel.").Cells(N, i) = Sheets("mc Rel.").Cells(j, i)
                
                        If Not (N = j) Then
                        
                Sheets("SEQ").Cells(j, i) = ""
                Sheets("Label").Cells(j, i) = ""
                Sheets("All Abs.").Cells(j, i) = ""
                Sheets("All Rel.").Cells(j, i) = ""
                Sheets("NonPol sc Abs.").Cells(j, i) = ""
                Sheets("NonPol sc Rel.").Cells(j, i) = ""
                Sheets("Pol sc Abs.").Cells(j, i) = ""
                Sheets("Pol sc Rel.").Cells(j, i) = ""
                Sheets("all sc Abs.").Cells(j, i) = ""
                Sheets("all sc Rel.").Cells(j, i) = ""
                Sheets("mc Abs.").Cells(j, i) = ""
                Sheets("mc Rel.").Cells(j, i) = ""
                    
                End If
            End If
        Next j
    Next i
    
End Sub