vb help

[steve2115]

Need help modifying the below code to add any new files imported to the bottom of my master sheet (Ariba Invoices). Currently when I import a new file it overwrites. I need it to find the last row on Ariba Invoices master sheet and add the new data.

Any help greatly appreciated.

Sub Button1_Click()
Dim OpenFileName As String
 Dim wb As Workbook
 'Select and Open workbook
 OpenFileName = Application.GetOpenFilename("Ariba Invoices,*.csv")
 If OpenFileName = "False" Then Exit Sub
 Set wb = Workbooks.Open(OpenFileName)
 'Get data EXAMPLE
 ThisWorkbook.Sheets("Ariba Invoices").Range("A:T").Value = wb.Sheets(1).Range("A:T").Value
 MsgBox ("Import Complete")
wb.Close
      
End Sub

 

[Fluff]

Untested, but try

Sub Button1_Click()
   Dim OpenFileName As String
   Dim wb As Workbook
   Dim Rng As Range
   
   'Select and Open workbook
   OpenFileName = Application.GetOpenFilename("Ariba Invoices,*.csv")
   If OpenFileName = "False" Then Exit Sub
   Set wb = Workbooks.Open(OpenFileName)
   'Get data EXAMPLE
   Set Rng = wb.Sheets(1).UsedRange
   ThisWorkbook.Sheets("Ariba Invoices").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Rng.Rows, Rng.Columns).Value = Rng.Value
   MsgBox ("Import Complete")
   wb.Close
        
End Sub

 

[steve2115]

Thanks for the quick reply. Just tested and received the following

Run-time error '1004':
Application-defined or object defined error

When debugging it's pointing to

[ ThisWorkbook.Sheets("Ariba Invoices").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Rng.Rows, Rng.Columns).Value = Rng.Value/CODE]

 

[Fluff]

That line should be

   ThisWorkbook.Sheets("Ariba Invoices").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Rng.Rows.Count, Rng.Columns.Count).Value = Rng.Value

 

[steve2115]

Perfect! That worked. Thanks for the quick turnaround.

 

[Fluff]

Glad to help & thanks for the feedback