multiple rows display

**polomacnenad** · 10-20-2011, 05:43 AM

Hi everyone,

I have one problem to solve.
I have numerical data in columns (one column is one subject) and those data are the test marks (0-5). I have 90 rows with those those marks. What I would like to do is to get numbers of every rows with same mark e.g. 3. It is important that I don't get row's number one by one. I need them in line (2, 3, 6, 9, 11, 15...)

Thank you in advance!

Nenad

**tom1977** · 10-20-2011, 05:56 AM

try this

Sub aaa()
Dim myrange As Range
Dim l As Integer
Dim k As Variant

l = Cells(Rows.Count, "a").End(xlUp).Row

Set myrange = Range("a1:b" & l)
For Each k In myrange
If k.Value = 3 Then
Range("c1") = Range("c1") & k.Row & ","
End If
Next
End Sub