Code to filter datas and copy on cells

[asyamonique]

Private Sub CommandButton1_Click()
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 .Text = Range("U1").Text Then
.Offset(, 1).Resize(, 5).Copy
Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
End Sub

Good Day,
How can I update that code if the Source Range changed from Column A to C and then will put related column datas as given below?

H: A
I: B
J: D
K: E

 

[Fluff]

Try

Private Sub CommandButton1_Click()
   Dim LR As Long, i As Long
   LR = Range("C" & Rows.Count).End(xlUp).Row
   For i = 1 To LR
      With Range("C" & i)
         If .Text = Range("U1").Text Then
            Range("H" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = .Offset(, -2).Resize(, 2)
            Range("J" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = .Offset(, 1).Resize(, 2)
         End If
      End With
   Next i
End Sub

 

[asyamonique]

Thanks but it did not Paste the values

 

[Fluff]

Run this

Sub chk2()
MsgBox Evaluate("countif(C:C,U1)")
End Sub

What does the msgbox say?

 

[asyamonique]

1

 

[Fluff]

But nothing is going into cols H:K, is that right?

 

[asyamonique]

yes nothing

 

[Fluff]

What if you change this line as shown

 If .[COLOR=#ff0000]Value[/COLOR]= Range("U1").[COLOR=#ff0000]Value [/COLOR]Then

 

[asyamonique]

none
Thanks anyway

 

[Fluff]

Apologies, try this

Private Sub CommandButton1_Click()
   Dim LR As Long, i As Long
   LR = Range("C" & Rows.Count).End(xlUp).Row
   For i = 1 To LR
      With Range("C" & i)
         If .Value = Range("H1").Value Then
            Range("H" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = .Offset(, -2).Resize(, 2)[COLOR=#ff0000].Value[/COLOR]
            Range("J" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = .Offset(, 1).Resize(, 2)[COLOR=#ff0000].Value[/COLOR]
         End If
      End With
   Next i
End Sub