You also have red cells in row 20. Do you want to check only column L for red cells? Could column L have more than one red cell? The file you posted doesn't include your userform. Please post a copy of your file which includes the userform and any macros you are currently using.
We need to know which column(s) the red cell will be in. We also need to know which riser to look at. Please explain in detail.
Code for UserForm2
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim rng As Range, lRow As Long, lCol As Long
lCol = Sheets("1-2").Cells(9, Columns.Count).End(xlToLeft).Column
lRow = Sheets("1-2").Range("A" & Rows.Count).End(xlUp).Row
Const Alpha As Double = 0.000009
'ComboBox1.AddItem "DLE"
'ComboBox1.AddItem "DLE-ERV"
'ComboBox1.AddItem "DSC"
'ComboBox1.AddItem "DSC-ERV"
HeatSup = ActiveSheet.Range("S10").Value
HeatRet = ActiveSheet.Range("S11").Value
CoolSup = ActiveSheet.Range("S6").Value
CoolRet = ActiveSheet.Range("S7").Value
For Each rng In Sheets("1-2").Range("A10").Resize(lRow - 11, lCol - 1)
If rng.Interior.ColorIndex = 3 Then
FirstAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Exit For
End If
Next rng
Application.ScreenUpdating = True
End SubYou are very welcome. 
You are very welcome.
Mumps it would be great for meif you could explain me how that code works, because i have to do the same thing for 5 different colors
Thankyou
What are the 5 colors and which textbox do you want populated for each color? Can you attach a copy of your file that contains all the colors. Include the userform and macros.
Try:
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim rng As Range, lRow As Long, lCol As Long
lCol = Sheets("1-2").Cells(9, Columns.Count).End(xlToLeft).Column
lRow = Sheets("1-2").Range("A" & Rows.Count).End(xlUp).Row
Const Alpha As Double = 0.000009
'ComboBox1.AddItem "DLE"
'ComboBox1.AddItem "DLE-ERV"
'ComboBox1.AddItem "DSC"
'ComboBox1.AddItem "DSC-ERV"
HeatSup = ActiveSheet.Range("S10").Value
HeatRet = ActiveSheet.Range("S11").Value
CoolSup = ActiveSheet.Range("S6").Value
CoolRet = ActiveSheet.Range("S7").Value
For Each rng In Sheets("1-2").Range("A10").Resize(lRow - 11, lCol - 1)
Select Case rng.Interior.Color
Case RGB(255, 0, 0)
FirstAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(0, 255, 0)
SecondAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(0, 0, 255)
ThirdAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(255, 0, 255)
FourthAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(255, 255, 0)
FifthAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(155, 155, 155)
SixthAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
Case RGB(255, 165, 0)
SeventhAnchor.Value = Mid(Range("A" & rng.Row), 2, 99999)
End Select
Next rng
Application.ScreenUpdating = True
End SubMy pleasure.
My pleasure.
can you help me one last time please?
It's hard to work with pictures. Please attach a file that includes all your sheets, userforms and macros. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).
First of all, I didn't realize that you were working with two files, one containing the macro and the other the data. The original macro I suggested won't work properly because it refers to the workbook containing the macro, not the data workbook. So unless you have changed the macro, it won't work as written. Secondly, do you want the identification of the 4 columns and the further calculations to be done when you click the "Calculate" button on the userform? Also, what further calculations do you want to do?
Don’t have an account yet? Register yourself now and be a part of our community!