find match values and copy

[asyamonique]

Good Day,
I have a datas on the columns ("A1:C1500)
I want to populate those values into columns (H:J)
which matching the cell ("M1") value , with column ("C") values all the way down..
Many Thanks

 

[asyamonique]

Perhaps like this

Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If .Value = ComboBox1.Value Then
.Offset(, 1).Resize(, 4).Copy
Range("AE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
 
Range("AE" & Rows.Count).End(xlUp).Offset(2).Value = " "
If ComboBox2.Value = "" Then Exit Sub
Dim LMR As Long, ip As Long
LMR = Range("A" & Rows.Count).End(xlUp).Row
For ip = 1 To LMR
With Range("A" & ip)
If .Value = ComboBox2.Value Then
.Offset(, 1).Resize(, 4).Copy
Range("AE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next ip

Thanks for helping.
Cheers

 

[asyamonique]

Perhaps like this

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("C" & i)
        If .Value = Range("M1").Value Then
            .Offset(, -2).Resize(, 3).Copy
            Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
        End If
    End With
Next i
Range("H" & Rows.Count).End(xlUp).Offset(1).Value = " "
End Sub

Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If .Value = ComboBox1.Value Then
.Offset(, 1).Resize(, 26).Copy
Range("AE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
 
Range("AE" & Rows.Count).End(xlUp).Offset(2).Value = " "
[COLOR=black]If ComboBox2.Value = "" Then Exit Sub[/COLOR]
[COLOR=black]
[/COLOR]Dim LMR As Long, ip As Long
LMR = Range("A" & Rows.Count).End(xlUp).Row
For ip = 1 To LMR
With Range("A" & ip)
If .Value = ComboBox2.Value Then
.Offset(, 1).Resize(, 26).Copy
Range("AE" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next ip

Range("AE" & Rows.Count).End(xlUp).Offset(2).Value = " "

Vog, after the above code is there any possibilty to take the sub totals into the next row?
Thanks