Command button failure

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Why does the following fail @ Range("D2").Select

Rum-time error '1004"
Application-defined or object-defined error

If I run the exact same code in a Macro it works fine

Private Sub CommandButton1_Click()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:="TempData.xls"
Windows("testbook.XLS").Activate
Range("D2:D7").Select
Selection.Copy
Windows("TempData.XLS").Activate
Range("D2").Select
ActiveSheet.Paste

End Sub
 
Hello!

I change one row, and it works me!

Workbooks("TempData.XLS").Sheets(1).Range("D2").Select

Regards Kari J Keinonen
 
When I replace "Windows("TempData.XLS").Activate" with

Workbooks("TempData.XLS").Sheets(1).Range("D2").Select

I get a 1004 "Select method of Range class failed" at this new line

oldjay
 
Yeps!

That is my code. I hope that helps you!

'********************************************************'
Private Sub CommandButton1_Click()
Dim Filename As String
Dim TestWB As Workbook

Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="TempData.xls"
Windows("TestWB.XLS").Activate
Range("D2:D7").Select
Selection.Copy
Windows("TempData.XLS").Activate
' that is fix row
Workbooks("TempData.XLS").Sheets(1).Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
'********************************************************'
 
Cool!!
Works great
Thanks
oldjay


Kari J Keinonen said:
Yeps!

That is my code. I hope that helps you!

'********************************************************'
Private Sub CommandButton1_Click()
Dim Filename As String
Dim TestWB As Workbook

Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="TempData.xls"
Windows("TestWB.XLS").Activate
Range("D2:D7").Select
Selection.Copy
Windows("TempData.XLS").Activate
' that is fix row
Workbooks("TempData.XLS").Sheets(1).Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
'********************************************************'
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Format problem 10
Copy Data from Closed File to Existing File 0
Macro to save a workbook 1
Using a string variable to change a file name 2
Loop to End 0
Run macro from active workbook whose name keeps changing 20
comman button macro can't open worksheet 1
Run-time error '1004' 12

Back
Top