PASTE FUNCTION IN MACRO

[JOSTERBAUER]

Does anyone know why this paste function will not work.

Sub ADD()
Workbooks.Open Filename:= _
"C:\PDF FILES\INVOICE TRACKER\Invoice tracker.Xls"
Sheets("2005 INVOICES").Select
Columns("A").Find(ActiveCell.Value).Select
Selection.Copy
ActiveWorkbook.Save
ActiveWindow.Close
Range("F1").Select
ActiveSheet.Paste



End Sub

 

[Cbrine]

This should fix you up.

Sub ADD()
Dim PS as worksheet, SS as worksheet

Workbooks.Open Filename:= _
"C:\PDF FILES\INVOICE TRACKER\Invoice tracker.Xls"

set ss=Activesheet
Workbooks.add
set PS = activesheet
ss.activate

Sheets("2005 INVOICES").Select
Columns("A").Find(ActiveCell.Value).Select

Selection.Copy Ps.range("F1")
ActiveWorkbook.close true
End Sub

HTH
Cal

 

[JOSTERBAUER]

this function works great, but it puts the data into a new book instead of the invoice sheet that I want to put it into

 

[Cbrine]

Sub ADD() 
Dim PS as worksheet, SS as worksheet, wb as workbook

Workbooks.Open Filename:= _ 
"C:\PDF FILES\INVOICE TRACKER\Invoice tracker.Xls" 
set ss=Activesheet 
set wb = workbooks("Invoice.xls")
wb.activate
set ps = wb.sheets("Invoice")
ss.activate 
Sheets("2005 INVOICES").Select 
Columns("A").Find(ActiveCell.Value).Select 

Selection.Copy Ps.range("F1") 
ActiveWorkbook.close true 
End Sub

These two lines will need to be updated with your values.

set wb = workbooks("Invoice.xls")
set ps = wb.sheets("Invoice")

Cal

 

[JOSTERBAUER]

Thanks that worked great. I forgot to change the 2 lines. I saw that just after I sent that to you. Thanks again for the great information

 

[Cbrine]

JOSTERBAUER,
In repsonse to your PM. I don't see anything in the code that would cause the Win XP to select the wrong cell in the find function. I run with XL2003, and have never really worked with XP, although I can't see the find function finding the cell under the the criteria cell versus the correct cell. Anyone out there aware of any issues with the XP .Find function?

Cal