rangecellsi

Hi all! Im having some issues with my code below. It works fine on majority of rows, but towards the end, it's having some issues. What my code does is this: - if values of cells (i,j) and cells (i+r,j), basically 1 cell and the cell below it are the same, then they merge and other columns...

Trying to find the text "XLD XLD" and format row accordingly, not having much luck, appreciate the assistance. Dim i As Long For i = Lastrow To 1 Step -1 If Cells(i, 1) = “XLD” Then '‘ You can change this text Range(Cells(i, 2), Cells(i, 5)).FontStyle = "Bold"...

I have this code; For i = 2 To LastRow If Cells(i, "D").Value = "" Then Range(Cells(i, "B"), Cells(i, "C")).ClearContents End If Next i What is the fastest way to get this done? Thanks!

Can someone explain why the second If (Nested) is causing a mismatch 13 error, and how to fix ? Thank You jamada Dim LastRow As Long Dim i As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row For i = LastRow To 2 Step -1 If Cells(i, 2).Value > 0 Then Range(Cells(i, 8)...

Hi, the first IF works very well thanks to the contributors/helpers on this board. Question though, id like to delete a row if certain cells contain a certain color (RGB120,20,50). However not working well for me, any suggestions please? For i = LastRow To 2 Step -1 If Cells(i, 2).Value >...