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...
Смотрите видео VBA to highlight active row or record of a table automatically. [HD] онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь LearnYouAndMe 05 Декабрь 2018, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 413 раз и оно понравилось 3 людям.