View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Domingos Junqueira / RJ Domingos Junqueira / RJ is offline
external usenet poster
 
Posts: 3
Default PasteSpecial problem

Excel 2003 under XP

I'm having problem with the code below, I want to use "Selection.PasteSpecial Paste:=xlPasteValues..." but the VBA doesn't accept it.
I want just the values to be paste and NO format.

Tx for any help!




--------------------------------------------------------------------------------

Sub ColetaDados()
Windows("download.asp").Visible = True
Range("I70").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
If ActiveWindow.RangeSelection.Address = "$A$5:$I$8" Then
Range("A8:I8").Select
End If
Selection.Copy
Workbooks("download.asp").Close SaveChanges:=False
Worksheets("Plan1").Range("B3").Select
Selection.End(xlDown).Select
SendKeys String:="{DOWN}", Wait:=True

'The problem is here.

ActiveSheet.Paste

Selection.Interior.ColorIndex = xlNone
ActiveWindow.ScrollRow = 34
Range("L34").Select
End Sub