Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
ws.Cells(iRow, 1).PasteSpecial Paste:=xlPasteValues
-- Regards, Nigel "Jennifer" wrote in message ... 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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
copy / paste as values | New Users to Excel | |||
Copy and paste up to values in last row | Excel Discussion (Misc queries) | |||
Copy/Paste Values Only | Excel Programming | |||
Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
How do i compare values from two sheet and copy & paste if values match? | Excel Programming |