How do i write in a paste special code for only the values? Thank you my dear
gurus.

Sub Post()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Database")
' find first empty row in database
'iRow = ws.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Worksheets("Filter").Range("FilterDatabase").Copy ws.Cells(iRow, 1)
end sub
--
Thank you,

Jennifer

ws.Cells(iRow, 1).PasteSpecial Paste:=xlPasteValues

--

Regards,
Nigel
(E-Mail Removed)



"Jennifer" <(E-Mail Removed)> wrote in message
news:B2B0A625-B80F-4C9A-925E-(E-Mail Removed)...
> How do i write in a paste special code for only the values? Thank you my
> dear
> gurus.
>
> Sub Post()
> Dim iRow As Long
> Dim ws As Worksheet
> Set ws = Worksheets("Database")
> ' find first empty row in database
> 'iRow = ws.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row
> iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
> Worksheets("Filter").Range("FilterDatabase").Copy ws.Cells(iRow, 1)
> end sub
> --
> Thank you,
>
> Jennifer

Commented out is what you were looking for. I prefer to just specify that the
target range value equals the source range value instead. Also note that I
just add 1 to the result of End(xlUp) instead of using Offset. A tad simpler.


Sub Post()
Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Database")
iRow = ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
ws.Cells(iRow, 1).Value = _
Worksheets("Filter").Range("FilterDatabase").Value
'Worksheets("Filter").Range("FilterDatabase").Copy
'ws.Cells(iRow, 1).PasteSpecial xlPasteValues
Set ws = Nothing: Set ws2 = Nothing
End Sub

Greg