Active cell Selection

'Menyorot baris dan kolom pada cell aktif dengan warna
Sub activecell_seleksi
 Dim RngRow          As Range
    Dim RngCol          As Range
    Dim RngFinal        As Range
    Dim Row             As Long
    Dim Col             As Long
   
    Cells.Interior.ColorIndex = xlNone
    'Range(ActiveCell, ActiveCell.End(xlDown)).Select
   
    'Row = Target.Row
    Row = Target.Row
    Col = Target.Column
   
    Set RngRow = Range("A" & Row, Target.End(xlToRight))
    Set RngCol = Range(Cells(1, Col), Target)
    Set RngFinal = Union(RngRow, RngCol)
   
    RngFinal.Interior.ColorIndex = 6

End Sub

Browse More Articles

Tweet

Written by fitri

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.