View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Paste Special Macro Assistance needed

Nice to acknowledge where you got your
"I have the following macro"

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"akemeny" wrote in message
...
Currently I have the following Macro:

Sub getvalues()
lr = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
'MsgBox lr
Rows("2:" & lr).ClearContents
With Worksheets("Master")
slr = .Cells(Rows.Count, "c").End(xlUp).Row
'MsgBox slr
For i = 6 To slr
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
' If .Cells(i, "am") = upheld Then .Rows(i).Copy Rows(dlr)
If .Cells(i, "am") = upheld And IsDate(.Cells(i, "aj")) Then
.Rows(i).Copy Rows(dlr)
Next i
End With
End Sub

The way it currently pulls information is it looks at column AM for any
cells with "upheld". It then checks for a date in AJ. If both are met
then
it copies the row.

This works perfectly for certain aspects of my spreadsheets, but I need
two
things that I can't figure out. The first, how can I change that above
macro
so that it won't clear or delete any information after its been copied
over?
Second, how can I change the macro to paste only the values of the cells
that
its copying from?

Thanks in advance for any assistance.