Paste Values

[Esrei]

I have tried almost every thing but can not get this macro to paste values.
please help. Where can I read more about methods, and properties.

Thank you

Sub Button2_click()
Dim NewRow As Integer
NewRow = Worksheets("Form").Range("O1").Value + 1
If Worksheets("Form").Range("O2").Value <> 0 Then
MsgBox "There are errors. No data has been added!", vbOKOnly, "MeadInkent"
Exit Sub
End If
Worksheets("form").Range("A10:A40").Copy Worksheets("data").Cells(NewRow, 1)

End Sub

[jindon]

Change

Please Login or Register  to view this content.

[Esrei]

Thanks a lot I tried that but can not understand why it didn't work, the
error was expected end of statement. But now it works.

"jindon" wrote:

>
> Change
>
>
> Code:
> --------------------
>
> Worksheets("Form").Range("A10:A140").Copy
> Worksheets("data").Cells(NewRow, 1).PasteSpecial xlPasteValues
> --------------------
>
>
> --
> jindon
> ------------------------------------------------------------------------
> jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
> View this thread: http://www.excelforum.com/showthread...hreadid=551302
>
>