MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub Colour_Specific_Rows() Dim rng As Range Dim Rw As Range Dim LastCol As Long Dim lastRow As Long Dim ans LastCol = Cells(1, Columns.count).End(xlToLeft).Column lastRow = Cells(Rows.count, 1).End(xlUp).Row Set rng = Range("A1", Cells(lastRow, LastCol)) For Each Rw In rng.Rows ans = Application.CountIf(Rw, "*_1.jpg*") If ans > 0 Then Rw.Interior.Color = RGB(242, 220, 219) End If Next Rw End Sub
|Remove duplicates using cell values VBA||2||28|
|Excel Formula to split product code||5||13|
|Formatting Undefined Number of Worksheets in a Workbook with VBA Macro||14||34|
|I need VBA script to modify excel sheet to break up serial numbers in one cell to many rows based on model type.||16||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!