If statements or conditional formatting

[Excel-Access]

Dear Community.

i am not sure if this can be done easily.

In column A I would like to enter either 1, 2 or 3 based on

If a cell in column B is green then the corresponding row column A will be 1

If a cell in column C is green then the corresponding row in column A will be 2

If a cell in column D is green then the corresponding row in column A will be 3

I have manually highlighted the green.

Please let me know if it can be done and how?

Thanks

[Fotis1991]

You have manually highlighted the green.

Will you always do this, or will you use a Conditional Formatting for this?

[Excel-Access]

The green will be entered manually.

[Fotis1991]

So, you can not do it using Formulas.

Maybe using VBA and i have no idea about this.

[lavi]

Hi,

Use below given code, this will worK..
For reference check attached document.

Sub Interiorcolor()

Dim intcolor As String
Dim i, j As Integer
Dim lastrow As Long

Application.ScreenUpdating = False

lastrow = Sheets("test").Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To lastrow

For j = 2 To 4
If Cells(i, j).Interior.ColorIndex = 15 Then
Cells(i, 1).Value = j - 1
End If
Next j
Next i

Application.ScreenUpdating = True
End Sub

Thanks,
Lokesh
http://www.Excelcrazy.com