Excel Tutorials | Macros Code

Sub highlightValue() Dim myStr As String Dim myRg As range Dim myTxt As String Dim myCell As range Dim myChar As String Dim I As

Sub highlightAlternateRows() Dim rng As Range For Each rng In Selection.Rows If rng.Row Mod 2 = 1 Then rng.Style = “20% -Accent1” rng.Value = rng

Sub highlightErrors() Dim rng As Range Dim i As Integer For Each rng In ActiveSheet.UsedRange If WorksheetFunction.IsError(rng) Then i = i + 1 rng.Style =

Sub HighlightMisspelledCells() Dim rng As Range For Each rng In ActiveSheet.UsedRange If Not Application.CheckSpelling(word:=rng.Text) Then rng.Style = “Bad” End If Next rng End Sub If

Sub highlightSpecificValues() Dim rng As range Dim i As Integer Dim c As Variant c = InputBox(“Enter Value To Highlight”) For Each rng In ActiveSheet.UsedRange

Sub blankWithSpace() Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng.Value = ” ” Then rng.Style = “Note” End If Next rng End

Sub HighlightRanges() Dim RangeName As Name Dim HighlightRange As Range On Error Resume Next For Each RangeName In ActiveWorkbook.Names Set HighlightRange = RangeName.RefersToRange HighlightRange.Interior.ColorIndex =

Sub highlightMaxValue() Dim rng As Range For Each rng In Selection If rng = WorksheetFunction.Max(Selection) Then rng.Style = “Good” End If Next rng End Sub

Sub Highlight_Min_Value() Dim rng As Range For Each rng In Selection If rng = WorksheetFunction.Min(Selection) Then rng.Style = “Good” End If Next rng End Sub

Sub highlightUniqueValues() Dim rng As Range Set rng = Selection rng.FormatConditions.Delete Dim uv As UniqueValues Set uv = rng.FormatConditions.AddUniqueValues uv.DupeUnique = xlUnique uv.Interior.Color = vbGreen

Sub columnDifference() Range(“H7:H8,I7:I8”).Select Selection.ColumnDifferences(ActiveCell).Select Selection.Style= “Bad” End Sub Using this code you can highlight the difference between two columns (corresponding cells).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strRange As String strRange = Target.Cells.Address & “,” & _ Target.Cells.EntireColumn.Address & “,” & _