Take all the values with a specific text in the next cell?

[Uumas]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Original[/TD]
[TD]Type[/TD]
[TD]Result[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]67[/TD]
[TD]a[/TD]
[TD]98[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]98[/TD]
[TD]a[/TD]
[TD]87[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]238[/TD]
[TD]b[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]9[/TD]
[TD]a[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]98[/TD]
[TD]c[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]45[/TD]
[TD]b[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]87[/TD]
[TD]c[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]9[/TD]
[TD]a[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I want to have only values of type c end up in the results column. I know I could simply use an if statement, but that'd leave empty cells where it isn't type c and I don't want that. How should I do this?

 

[My Aswer Is This]

Here is a Vba solution:

Sub Look_For_C()
'Modified  10/5/2018  7:48:35 PM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Dim x As Long
Dim r As Range
x = 2
    For Each r In Range("B2:B" & Lastrow)
        If r.Value = "c" Then Cells(x, "C").Value = r.Offset(, -1).Value: x = x + 1
    Next
Application.ScreenUpdating = True
End Sub

 

[Peter_SSs]

Formula options. Note that I have changed your sample data slightly.

If you don't care what order the results come in, C2 copied down.
If you want to preserve the original order, D2.

Excel Workbook
	A	B	C	D
1	Original	Type	Result
2	67	c	98	67
3	98	a	87	98
4	238	b	67	87
5	9	a
6	98	c
7	45	b
8	87	c
9	9	a
Type c