rangeh

Hello everyone!!! I use a vba code that formats a certain column in my file Sub coloraki() Dim lr As Long, i As Long lr = Range("B" & Rows.Count).End(xlUp).Row For i = 1 To lr If Range("H" & i) < 0 Then Range("B" & i).Interior.ColorIndex = 40 If Range("H" & i) >...

Good morning I am trying to highlight cells with data in non contiguous columns. Below is the code I have started with, not sure what I am doing incorrectly. Thank for any help. Sub HighlightCellwithData2() Dim i As Long, lr As Long lr = Range("H" & Rows.Count).End(xlUp).Row...

OK so here is the VBA I am using. its supposed to delete the row with the work Multi_Skill if the row below it has a blank cell in column A and a specific text in column H. the dang thing isn't working. What have I done wrong? Sub fixBlankname() Sheets("Data").Activate For My_ROWS = 1 To...

Hello all This line of code finds the last row and works up for my formula Works great but I want this to start from H18 not H Can anyone please advise on how to change this LR = Range("H" & Rows.count).End(xlUp).Row

I am attempting to get this to loop down through the rest of cells in columns H and I. Any help appreciated. Sub RangeLoop()' Range("H2").Select Do Until IsEmpty(ActiveCell) If Range("H & NextRow") = "Certified Bilingual" And Range("I & NextRow") = "English"...