Copy from worksheet to end of list on second worksheet

**redkilner** · 08-07-2013, 12:51 PM

I would like to be able to copy a list of information I exported from a database into my worksheet I have developed to analyze the information. I already have a list of data in the worksheet but would like to add the new information to it. I need to be able to copy from the exported csv file and paste it to the end of the data that is already in my worksheet. Here is the code I have developed so far. Instead of copying A2:T1500 I would like to be able to copy "All data" and instead of pasting to B58 I'd like to paste to "first empty row".

Sub ImportCSV()

    Dim fileName As Variant
    
    fileName = Application.GetOpenFilename(FileFilter:="CSV files, *.csv")
    If fileName <> False Then
        Workbooks.Open fileName
        Range("A2:T1500").Copy ThisWorkbook.ActiveSheet.Range("B58")
        ActiveWorkbook.Close SaveChanges:=False
    End If

End Sub

**tigeravatar** · 08-07-2013, 12:55 PM

redkilner,

Here's one way....

Sub ImportCSV()
    
    On Error Resume Next
    With Workbooks.Open(Application.GetOpenFilename("CSV files, *.csv"))
        .Sheets(1).UsedRange.Offset(1).Copy ThisWorkbook.ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1)
        .Close False
    End With
    On Error GoTo 0
    
End Sub

**redkilner** · 08-07-2013, 01:25 PM

Works great! Thanks!

**tigeravatar** · 08-07-2013, 01:31 PM

You're very welcome

If that takes care of your need, please mark this thread as solved.
How to mark a thread Solved
New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:
Go to the first post
Click edit
Click Go Advanced
Just below the word "Title" you will see a dropdown with the words "No prefix"
Change to "Solved"
Click Save

Copy from worksheet to end of list on second worksheet

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Copy from worksheet to end of list on second worksheet

Re: Copy from worksheet to end of list on second worksheet

Re: Copy from worksheet to end of list on second worksheet

Re: Copy from worksheet to end of list on second worksheet

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Copy data from a worksheet and paste to worksheet with a similar worksheet name

Copy data from a worksheet and paste to worksheet with a similar worksheet name

Copy List of Userform Data to Worksheet

Drop Down List to Copy Entire Contents of Worksheet into Master Worksheet

alphabetic list - copy each letter to different worksheet

Bookmarks

Bookmarks

Posting Permissions