Macro STR_GapFromLbl

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Str_GapFromLabel()

            'Gaps the sequence, labels, and x,y and z coordinate worksheets as defined by the residue label
    For i = 1 To 255 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("X").Cells(j, i) = ""
                Sheets("Y").Cells(j, i) = ""
                Sheets("Z").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("X").Cells(N, i) = Sheets("X").Cells(j, i)
                Sheets("Y").Cells(N, i) = Sheets("Y").Cells(j, i)
                Sheets("Z").Cells(N, i) = Sheets("Z").Cells(j, i)
                
                        If Not (N = j) Then
                        
                Sheets("SEQ").Cells(j, i) = ""
                Sheets("Label").Cells(j, i) = ""
                Sheets("X").Cells(j, i) = ""
                Sheets("Y").Cells(j, i) = ""
                Sheets("Z").Cells(j, i) = ""
                    
                End If
            End If
        Next j
    Next i

    End Sub