Thread
:
Paste Special Macro Assistance needed
View Single Post
#
6
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
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.
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett