Copy and Paste certain values

[Plastik808]

Hi,

As you will probably gather from my simple questiom, I am new to VBA and am trying to copy certain values (less than 5) in a certain range to another column in the worksheet. Column A has a list of different numbers and i am trying to copy on those numbers less than 5 and place them in C

Private Sub CommandButton1_Click()
Dim example As Integer, i As Integer
example = 0
For i = 1 To 99
If Cells(i, 1).Value <5 Then Copy
Next i
Range("C1").Value.Paste

End Sub


What am i doing wrong please?


Thanks

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim example As Integer, i As Integer
example = 0
For i = 1 To 99
    If Cells(i, 1).Value < 5 Then Cells(i, 1).Copy Destination:=Range("C" & Rows.Count).End(xlUp).Offset(1)
Next i
End Sub

 

[lenze]

Try this

Sub Test()
Dim LR As Long
Dim LR2 As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LR
If Cells(i, 1) < 5 Then
   LR2 = Cells(Rows.Count, 3).End(xlUp).Row
   Cells(i, 1).Copy Cells(LR2 + 1, 3)
End If
Next i
End Sub

lenze

 

[Plastik808]

Cool thanks very much