macro2.bas

Introduction: 1. Macro1: AddFailureModeCol is used to the test report generated from GNPO Rpt Tools

   
   
   
   '*******************************************
   '*                     NTF                 *
   '*                                         *
   '*******************************************
                        ElseIf x(k) = "NTF" Then
                                    Sheets("DPHU").Select
                                        Range("C54").Select
                                        ActiveCell.Offset((r1 + r2 + r3 + r4 + r5 + r6), 0).Select
                                        Application.CutCopyMode = False
                                        Selection.EntireRow.Insert
                                    
                                     '*********************************
                                     ''''''copy the data from summary to dphu sheet
                                    Sheets("Summary").Select
                                    Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("A" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    
                                    '**********************************************
                                    Range("C54").Select                          '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select  '*
                                    '**********************************************
                                   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    
                                    
                                    Sheets("Summary").Select
                                       Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("B" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                            
                                    '*********************************************
                                    Range("D54").Select                         '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select '*
                                    '*********************************************
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    
                                     Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("C" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    '********************************************
                                    Range("F54").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select '*
                                        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.NumberFormat = "0"
        
        Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("F" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    '********************************************
                                    Range("G54").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select '*
                                        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.NumberFormat = "0"
                                
                                    
                                   
                                    Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("E" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    '******************************************
                                    Range("H54").Select                      '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select '*
                              Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    '***************
                                    Sheets("Summary").Select
                                       Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("H" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    Range("I54").Select
                                    ActiveCell.Offset(r6 + r5 + r1 + r2 + r3 + r4, 0).Select
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    
                                    Sheets("Summary").Select
                                       Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("J" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    Range("L54").Select
                                    ActiveCell.Offset(r6 + r5 + r1 + r2 + r3 + r4, 0).Select
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                '***************
                                   
                                    Sheets("Summary").Select
                                       Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("I" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    Range("K54").Select
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                   
 '************************************************************
 'find out the test station
 '************************************************************
                        Sheets("Summary").Select
                        Range("A1").Select
                        ActiveCell.Offset(w, 0).Activate
                               Selection.End(xlUp).Select
                               T = ActiveCell.Value
                               Sheets("DPHU").Select
                                     Range("E54").Select
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6, 0).Select
                                    ActiveCell.FormulaR1C1 = Get_Word(T, "First")
                                   
'***********************************************************
                                   
                                    r7 = r7 + 1
   
   
   
   '*******************************************
   '*                     TBA                 *
   '*                                         *
   '*******************************************
                        ElseIf x(k) = "TBA" Then
                                    Sheets("DPHU").Select
                                        Range("C57").Select
                                        ActiveCell.Offset((r1 + r2 + r3 + r4 + r5 + r6 + r7), 0).Select
                                        Application.CutCopyMode = False
                                        Selection.EntireRow.Insert
                                    
                                     '*********************************
                                     ''''''copy the data from summary to dphu sheet
                                    Sheets("Summary").Select
                                    Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("A" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    
                                    '**********************************************
                                    Range("C57").Select                          '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 0).Select '*
                                    '**********************************************
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    
                                    Sheets("Summary").Select
                                       Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("B" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                            
                                    '*********************************************
                                    Range("D57").Select                         '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 0).Select '*
                                    '*********************************************
                                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                    
                                    
                                     Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("C" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    '********************************************
                                    Range("F57").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 0).Select '*
                                        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.NumberFormat = "0"
        
        ''''''''''''''''''''''''''
                                    Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("F" & ActiveCell.Row).Select
                                    Selection.Copy
                                    Sheets("DPHU").Select
                                    '********************************************
                                    Range("G57").Select                        '*
                                    ActiveCell.Offset(r1 + r2 + r3 + r4 + r5 + r6 + r7, 0).Select '*
                                        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Selection.NumberFormat = "0"

                                
                                    
                                   
                                    Sheets("Summary").Select
                                        Range("A1").Select
                                    ActiveCell.Offset(w, 11).Activate
                                    Range("E" & ActiveCell.Row).Select
                                    Selection.Copy