Macro PDB_GapFromLbl

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub PDB_GapFromLbl()

'Gaps the sequence, labels, chain and insertion code worksheets as defined by the residue label

    For i = 3 To 255 Step 1                                       'for all sequences in the alignment
        If IsEmpty(Sheets("Seq").Cells(1, i)) Then Exit For       'alignment finished
    
        For j = 255 To 3 Step -1                                  'for all positiona in the sequence
            If IsEmpty(Sheets("Label").Cells(j, i)) Then
                    Worksheets("Label").Cells(j, i) = "."
                    Worksheets("Seq").Cells(j, i) = "."
                    Worksheets("Chain").Cells(j, i) = "."
                    Worksheets("Insert").Cells(j, i) = "."

            Else
                
                    aaa = Worksheets("Label").Cells(j, i) + 2
                    If Not (aaa = j) Then
                    Worksheets("Label").Cells(aaa, i) = Worksheets("Label").Cells(j, i)
                    Worksheets("Label").Cells(j, i) = "."
                    Worksheets("Seq").Cells(aaa, i) = Worksheets("Seq").Cells(j, i)
                    Worksheets("Seq").Cells(j, i) = "."
                    Worksheets("Chain").Cells(aaa, i) = Worksheets("Chain").Cells(j, i)
                    Worksheets("Chain").Cells(j, i) = "."
                    Worksheets("Insert").Cells(aaa, i) = Worksheets("Insert").Cells(j, i)
                    Worksheets("Insert").Cells(j, i) = "."
                End If
            End If
        Next j
        
    Next i
    
End Sub