E
EagleOne
2003/2007
This code works:
Dim SrchAcctRng as Range
SrchAcctRng.Select
SrchAcctRng.Copy
Selection.PasteSpecial xlPasteValues
Next code fails in range class
Dim SrchAcctRng as Range
SrchAcctRng.Copy
SrchAcctRng.PasteSpecial xlPasteValues
Note that SrchAcctRng is a filtered range as a result of:
Set SrchAcctRng = wks.Range(Cells(PrintRow + 1, PrintCol).Address, _
Cells(wks.Cells(Rows.Count, 1).End(xlUp).Row - 1, PrintCol)).SpecialCells(xlCellTypeVisible)
I do not usderstand why I need to use Selection.PasteSpecial xlPasteValues?
TIA EagleOne
This code works:
Dim SrchAcctRng as Range
SrchAcctRng.Select
SrchAcctRng.Copy
Selection.PasteSpecial xlPasteValues
Next code fails in range class
Dim SrchAcctRng as Range
SrchAcctRng.Copy
SrchAcctRng.PasteSpecial xlPasteValues
Note that SrchAcctRng is a filtered range as a result of:
Set SrchAcctRng = wks.Range(Cells(PrintRow + 1, PrintCol).Address, _
Cells(wks.Cells(Rows.Count, 1).End(xlUp).Row - 1, PrintCol)).SpecialCells(xlCellTypeVisible)
I do not usderstand why I need to use Selection.PasteSpecial xlPasteValues?
TIA EagleOne