new row with data from criteria
Try this, Rafael,
Option Explicit
Sub ChooseEyeColor()
Dim i As Integer
Dim combo, name As String
i = 1
Do While Range("A" & i) < ""
If Range("B" & i) = "blue" Then
name = Range("A" & i)
combo = combo & name & ", "
End If
i = i + 1
Loop
Range("A4") = combo
End Sub
"rafael" wrote:
imagine i have two rows: name and color:
mary blue
ken brown
will blue
what i want is having, in another row, just the names that have blue eyes,
like
mary
will
thank you
|