How to combine if formulas with visual basics?

Hi guys,

I have an excel sheet that have a large set of datas. In these datas in one column most of the datas are indicated as green but some of them are red. I can pick the red ones by using filter option but I also wanted to show the red cell values in one cell. For example, Cell1;Cell2;Cell3 like this (the ; should be between them). I try to use macros but that is not the program that I have full knowledge about it. So i can not solve the issue.

How can I solve this?

Thanks

( Like this
IF
A(i)= red

Then
B(i)=A(i)
end if
)

Originally Posted by Bernie Deitrick

Lucky for you I do know VBA

Try this macro - select the cell for the list when prompted and, since the code depends on the correct 'red', choose a cell with that red when prompted. And I wasn't sure if you wanted the values or the addresses: read the comments to decide. Note that the macro is looking in column A for the color of the cells...

Sub TestMacro()
    Dim r As Long
    Dim c As Range
    Dim t As Range
    
    Set t = Application.InputBox("Select the cell for the list", Type:=8)

    t.ClearContents
    
    Set c = Application.InputBox("Select a cell with red fill", Type:=8)

    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(r, 1).DisplayFormat.Interior.Color = c.DisplayFormat.Interior.Color Then
            'Comment out the next line if you want to list the addresses of the cells
            t.Value = t.Value & Cells(r, 1).Value & ";"
            'Uncomment the next line this to list the addresses instead of the values of the cells
            't.Value = t.Value & Cells(r, 1).Address & ";"
        End If
    Next r
    
    t.Value = Left(t.Value, Len(t.Value) - 1)
    
End Sub

Thank you for your answer firstly unfortunately I have no idea about the visual so i just try this code so i don't know how to modify it.

I will choose one column these columns have datas in text. I want to the program choose red coloured text among the green ones and wright them in ONE cell. When I try this code it erases the data