Macro PDB_reLlb

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub PDB_reLbl()

'relabels a series of PDB files according to the information given in the Chain, Label and Insert worksheets

    For i = 1 To 250 Step 1
        If IsEmpty(Sheets("Files").Cells(i, 1)) Then Exit For
            FName = Sheets("Files").Cells(i, 1)

        k = 2
        For j = 1 To 32768                                              'all lines
             If (IsEmpty(Sheets(FName).Cells(j, 1))) Then Exit For      'end of pdb file
             
                If Sheets(FName).Cells(j, 4) Like "N" Then
YYY:
                    k = k + 1
                    If ((Sheets("Seq").Cells(k, i + 3) Like ".") And (k < 32768)) Then GoTo YYY
                    End If
                        Sheets(FName).Cells(j, 8) = Sheets("Chain").Cells(k, i + 3)
                        Sheets(FName).Cells(j, 9) = Sheets("Label").Cells(k, i + 3)
                        Sheets(FName).Cells(j, 10) = Sheets("Insert").Cells(k, i + 3)
        Next j
    Next i

End Sub