Hi experts out there.
Help me plssss...
I need to simplify the codes below because i know if I still continue with these, the procedure are going to be large.
The problem is I just dun know how to put the cut, copy and paste things into formula.
Appreciate your help.
Thanks. Zurina
KL, Malaysia.
Sub UIC()
'
' UIC Macro
'
' Keyboard Shortcut: Ctrl+o
Select Case Sheets("Fs").Range("A9").Value
'A-MYR
Case 1
Sheets("UIC").Select
Range("C10:L10").Select
Selection.Copy
Range("C11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C10:L10").Select
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Case 2
Sheets("UIC").Select
Range("C11:L11").Select
Selection.Copy
Range("C12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C11:L11").Select
Selection.Copy
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Case 3
Sheets("UIC").Select
Range("C12:L12").Select
Selection.Copy
Range("C13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C12:L12").Select
Selection.Copy
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Help me plssss...
I need to simplify the codes below because i know if I still continue with these, the procedure are going to be large.
The problem is I just dun know how to put the cut, copy and paste things into formula.
Appreciate your help.
Thanks. Zurina
KL, Malaysia.
Sub UIC()
'
' UIC Macro
'
' Keyboard Shortcut: Ctrl+o
Select Case Sheets("Fs").Range("A9").Value
'A-MYR
Case 1
Sheets("UIC").Select
Range("C10:L10").Select
Selection.Copy
Range("C11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C10:L10").Select
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Case 2
Sheets("UIC").Select
Range("C11:L11").Select
Selection.Copy
Range("C12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C11:L11").Select
Selection.Copy
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Case 3
Sheets("UIC").Select
Range("C12:L12").Select
Selection.Copy
Range("C13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C12:L12").Select
Selection.Copy
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False