Snasui Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("KKN").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Worstcell").Select
    Range("B6").Select
    ActiveSheet.Paste
    Range("B6").Select
    Selection.End(xlToRight).Select
    Range("CA6").Select
    Sheets("KKNCSSR").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Selection.Copy
    Sheets("Worstcell").Select
    ActiveSheet.Paste
    Range("CA6").Select
    Selection.End(xlDown).Select
    Range("CA12050").Select
    Selection.End(xlToLeft).Select
    Range("B12050").Select
    Sheets("NKR").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Selection.Copy
    Sheets("Worstcell").Select
    ActiveSheet.Paste
    Range("B12050").Select
    Selection.End(xlToRight).Select
    Range("CA12050").Select
    Sheets("NKRCSSR").Select
    Range("E11:F11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Selection.Copy
    Sheets("Worstcell").Select
    ActiveSheet.Paste
    Range("CA12049").Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Range("A6").Select
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveCell.FormulaR1C1 = "=MID(RC5,7,8)&MID(RC[4],FIND("","",RC5)-1,1)"
    Range("A6").Select
    Selection.AutoFill Destination:=Range("A6:A55039")
    Range("A6:A55039").Select
    Range("C6").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2],Cluster!R[-4]C[-2]:R[8015]C[2],5,FALSE)"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Cluster!R2C1:R8021C5,5,FALSE)"
    Range("C6").Select
    Selection.AutoFill Destination:=Range("C6:C55039")
    Range("C6:C55039").Select
    Range("C1").Select
    Selection.End(xlToLeft).Select
    Rows("5:5").Select
    Selection.AutoFilter
    Range("A3").Select
    Selection.End(xlUp).Select
    MsgBox "Check Rankking Worst Cell Now"
    
End Sub

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B7").Select
    Sheets("KKN").Select
    Range("A9:A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Total").Select
    ActiveSheet.Paste
    Sheets("KKN").Select
    Selection(1).Select
    Sheets("Total").Select
    Range("G7").Select
    Sheets("KKNCSSR").Select
    Range("E9:F9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Total").Select
    ActiveSheet.Paste
    Sheets("KKNCSSR").Select
    Selection(1).Select
    Sheets("Total").Select
    Range("F7").Select
   'Other code
End Sub