Shift Cursor And Colorindex

KELOMPOK 2
KELAS : X TKJ 3 2016/2017
ANGGOTA :
323. MUHAMMAD NURUL ASLAM
332. REZA ARIS PRATAMA
333. SAMSUL HADITYA IBRAHIM

If ActiveCell.Column > 1 And ActiveCell.Row > 1 Then

ActiveCell.Offset(0, -1).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Column

Else

If ActiveCell.Row > 1 Then

ActiveCell.Offset(-1, 0).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Row

Else

ActiveCell.Offset(0, 1).Select

ActiveCell.Interior.ColorIndex = ActiveCell.Column

End If

End If