ExcelBanter - PasteSpecial problem

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - PasteSpecial problem (https://www.excelbanter.com/excel-programming/409188-pastespecial-problem.html)

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

PasteSpecial problem

First, this is a plain text newsgroup. Please don't post in HTML/RTF.

Second, maybe...

Sub ColetaDados()
Dim DestCell as range

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

with Worksheets("Plan1")
set destcell = .range("b3").end(xldown).offset(1,0)
end with

destcell.pastespecial paste:=xlpastevalues

Workbooks("download.asp").Close SaveChanges:=False
End Sub

Domingos Junqueira / RJ wrote:

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

--

Dave Peterson

PasteSpecial problem

Sorry for the html,

Dave, I want to paste the selected range in another workbook, so I close
'download.asp' before pasting it. Unfortunately this code failed, could you
still help me?

Tx

Domingos Junqueira

"Dave Peterson" escreveu na mensagem
...
First, this is a plain text newsgroup. Please don't post in HTML/RTF.

Second, maybe...

Sub ColetaDados()
Dim DestCell as range

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

with Worksheets("Plan1")
set destcell = .range("b3").end(xldown).offset(1,0)
end with

destcell.pastespecial paste:=xlpastevalues

Workbooks("download.asp").Close SaveChanges:=False
End Sub

================================================== ====
Domingos Junqueira / RJ wrote:

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

--

Dave Peterson

PasteSpecial problem

Change this line:

with Worksheets("Plan1")
to
with workbooks("whateverthenameishere.xls").Worksheets( "Plan1")

Domingos Junqueira / RJ wrote:

Sorry for the html,

Dave, I want to paste the selected range in another workbook, so I close
'download.asp' before pasting it. Unfortunately this code failed, could you
still help me?

Tx

Domingos Junqueira

"Dave Peterson" escreveu na mensagem
...
First, this is a plain text newsgroup. Please don't post in HTML/RTF.

Second, maybe...

Sub ColetaDados()
Dim DestCell as range

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

with Worksheets("Plan1")
set destcell = .range("b3").end(xldown).offset(1,0)
end with

destcell.pastespecial paste:=xlpastevalues

Workbooks("download.asp").Close SaveChanges:=False
End Sub

================================================== ====
Domingos Junqueira / RJ wrote:

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

--

Dave Peterson

--

Dave Peterson

PasteSpecial problem

Tx for the help Dave!

Domingos Junqueira