VBA macro code needed to highlight rows in a table given a specfic text in one column

Hi everyone, I'm new here.

I work with excel everyday, but sadly I dont know that much about VBA coding

Current I'm working with data in a table that looks like this:

A B C D E F G H I J
1
2
3
4
5


Column H has some text in it. The text that the code needs to look for is either "NET" or "RET". Based on which text string is in each row of column H it needs to then highlight that entire row inside the table with a given color. (at this point the color can be anything).

So essentially the code needs to check each row of column H inside the table for the text "NET" or "RET" and if found needs to color that row with a given color.


Thanks all. I tried earlier to do this with conditional formatting but I couldnt find any way to make it happen - but it may be possible using that method too?

Cheers,
Eventful

Or if you want macro.

Please Login or Register  to view this content.

Thanks guys. I went with the vb code. worked well.

Last question, is it possible to assign shortcut keys into the code so that I can copy paste the cb code across multiple documents, then just quickly hit a shortcut ket instead of going through the macro menu?

Cheers

Select the macro from View-->Macros-->View Macros
In the Macro dialog box, click on HiliRow and click on options
Enter your key (Combination of Ctrl and/or Shift and any other key is possible) (Make sure you are not using any keys used by Excel by default)

Select the macro from View-->Macros-->View Macros
In the Macro dialog box, click on HiliRow and click on options
Enter your key (Combination of Ctrl and/or Shift and any other key is possible) (Make sure you are not using any keys used by Excel by default)

I came across this and can probably use it, but need some additional clarification. When you put ''Select which cells you want the macro to run" Can you please clarify format? I have 7 worksheets that contain the same information, but for different people.

Kre30a: You will have to run macro for each sheet. In each sheet, select all the cells that you want the macro to check for the words and run the macro.

Okay Here is the VBA based on what you stated:

Sub HiLiRow()
For Each cl In Selection("A1:W1434")
If cl.Value = "711-Billable" Then
cl.EntireRow.Interior.Color = RGB(255, 0, 0)
End If
Next cl
End Sub


I run this as a Macro and get the error "Type Mismatch"

Hi,

You just need to select the cells before running the macro. No need to enter the Range next to selection.
For Each cl In Selection
That's all, no need of ("A1:...

Got it, I'm a dope!

Fine. Next time on wards, if you have a query, please start a new thread instead of hijacking other's threads. If you feel this is relevant for your thread, you can paste a link to this thread in your post.