VBA to highlight active row or record of a table automatically. [HD]
=======Code Used===========
Option Explicit
Sub HighlightActiveRow()
''hightlight active row record of a table
Dim HeadRng As Range ''Table Heading range
''last row determining column must be continuously filled no empty value
Dim LstRwDeterClmn As Integer ''with respect to table not excel column number
Dim TblRng As Range ''table range without heading
Dim TblClmnCnt As Integer '' count of table heading or coulmns
Set HeadRng = Range("B2:H2")
TblClmnCnt = HeadRng.Columns.Count
LstRwDeterClmn = 1
Set TblRng = _
Range(HeadRng.Cells(1, 1).Offset(1), _
Cells(HeadRng(1, LstRwDeterClmn).End(xlDown).Row, HeadRng(1, TblClmnCnt).Column))
TblRng.Interior.Color = vbWhite
If Not Application.Intersect(ActiveCell, TblRng) Is Nothing Then
Cells(ActiveCell.Row, HeadRng.Cells(1, 1).Column).Resize(, TblClmnCnt).Interior.Color = vbGreen
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
HighlightActiveRow
End Sub
==============================
You can download file by clicking below link
https://drive.google.com/open?id=10ZA...
==============================
channel link / @learnyouandme
Click below link to subscribe my channel and stay tuned with latest uploads.
subscribe link / @learnyouandme
===========================
Websites
www.juggle.biz
=====================================================
You can also watch and learn below videos
-VBA to highlight same group cells (narrow down your range focus) P1 [HD] • VBA to auto highlight same group cell...
-VBA LOOP BASIC - PART1A
• VBA LOOP BASIC - PART-1A
-COLOR RELATED VBA - PART1
• Color Related VBA - Part 1
-COLOR RELATED VBA - PART 2 • Color Related VBA - Part 2
-COLOR VBA - PART 3
• Cell Blinking or flashing Effect in ...
-Offset property of range in VBA (Get or derive new range from a given range) • Offset property of range in Excel VBA...
Watch video VBA to highlight active row or record of a table automatically. [HD] online without registration, duration hours minute second in high quality. This video was added by user LearnYouAndMe 05 December 2018, don't forget to share it with your friends and acquaintances, it has been viewed on our site 413 once and liked it 3 people.