ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   set up a macro in Excel to color cells when clicked (https://www.excelbanter.com/excel-worksheet-functions/46006-set-up-macro-excel-color-cells-when-clicked.html)

Rebecca Shearer

set up a macro in Excel to color cells when clicked
 
I would liketo create a spreasheet that will highlight the value in the first
column if there ia value in another column of the same row.

Bob Phillips

Sub Test
Dim iLastRow As Long
Dim i As Long

For i = 1 To UsedRange.Rows.Count
If Application.Count(Range("B" & i).Resize(,255)) 0 Then
Cells(i,"A").Interior.Colorindex = 36
End If
Next i

End Sub

--
HTH

Bob Phillips

"Rebecca Shearer" <Rebecca wrote in
message ...
I would liketo create a spreasheet that will highlight the value in the

first
column if there ia value in another column of the same row.




Rebecca Shearer

Could you give me a little more instructions with this Macro? Where am I
suppose to insert the lines to be used?

Thanks.
rebecca

"Bob Phillips" wrote:

Sub Test
Dim iLastRow As Long
Dim i As Long

For i = 1 To UsedRange.Rows.Count
If Application.Count(Range("B" & i).Resize(,255)) 0 Then
Cells(i,"A").Interior.Colorindex = 36
End If
Next i

End Sub

--
HTH

Bob Phillips

"Rebecca Shearer" <Rebecca wrote in
message ...
I would liketo create a spreasheet that will highlight the value in the

first
column if there ia value in another column of the same row.





Bob Phillips

Hi Rebecca,

Thinking about this, I now think it is better to use conditional formatting.

Select A1 through to An for all relevant rows

Menu FormatConditional Formatting
Change Condition 1 to Formula Is
Add this formula =COUNTA(B1:IV1)0
Click Format
Select the pattern tab
Choose an acceptable highlight colour
OK
OK

Should now work okay

--
HTH

Bob Phillips

"Rebecca Shearer" wrote in
message ...
Could you give me a little more instructions with this Macro? Where am I
suppose to insert the lines to be used?

Thanks.
rebecca

"Bob Phillips" wrote:

Sub Test
Dim iLastRow As Long
Dim i As Long

For i = 1 To UsedRange.Rows.Count
If Application.Count(Range("B" & i).Resize(,255)) 0 Then
Cells(i,"A").Interior.Colorindex = 36
End If
Next i

End Sub

--
HTH

Bob Phillips

"Rebecca Shearer" <Rebecca wrote in
message ...
I would liketo create a spreasheet that will highlight the value in

the
first
column if there ia value in another column of the same row.








All times are GMT +1. The time now is 02:31 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com