Excel Forum

Code: Select all

Sub SAVE()
'
' Macro2 Macro
'

'
    'Range("K2").Select
    'ActiveCell.FormulaR1C1 = "=PartNOname"
    Range("K2").FormulaR1C1 = "=PartNOname"
    
    'Range("L2").Select
    'ActiveCell.FormulaR1C1 = "=NOW()"
    Range("L2").FormulaR1C1 = "=NOW()"
    
    Range("K2:L2").Copy
    
    'Selection.Copy
    Range("K2:L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
    Range("K2:L2").Copy
    
    
    Sheets("Detail").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        ActiveCell.Offset(0, -1).Select
        
        
    'Range("A3").Select
    'Range("B1").Select
    'Selection.End(xlDown).Select
    'ActiveCell.Offset(1, 0).Select
    
    'Application.CutCopyMode = False
    
    
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C=""No"",1,R[-1]C+1)"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Application.CutCopyMode = False
    
    
    'Range("B1").Select
    'Selection.End(xlDown).Select



'
' Macro5 Macro
'

'
    Range("A1:C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
    Sheets("Scan").Select
    Range("C1").Select
    ActiveWorkbook.SAVE
    Range("C1").Select
    
End Sub