sticklefifer fucked around with this message at 01:08 on Dec 1, 2015

EL BROMANCE fucked around with this message at 17:32 on Dec 2, 2015

Turkeybone fucked around with this message at 01:22 on Jan 13, 2016

Busy Bee fucked around with this message at 21:49 on Feb 19, 2016

ShimaTetsuo fucked around with this message at 23:59 on Feb 19, 2016

Sub CopyData()
Dim wb1 As Workbook
Dim wb2 As Workbook

'Set workbooks
Set wb1 = Workbooks.Open("c:\Path\of\your\file.xlsx")
Set wb2 = Workbooks.Open("c:\Path\of\your\file1.xlsx")

'Copy data from wb1 sheet 1 to sheet 1 in wb2
With wb1.Sheets(1)
.UsedRange.Copy wb2.Sheets(1).range("A1").end(xldown).offset(1,0)
End With

End Sub

Private Sub CopySheetsButton_Click()
    Dim filename As Variant
    Dim wb As Workbook
    Dim lastUsedRow As Range
    
On Error GoTo ErrMsg

    Application.ScreenUpdating = False

    Set thisSheet = ThisWorkbook.ActiveSheet
    
    For i = 0 To FilesListBox.ListCount - 1
        filename = FilesListBox.List(i, 0)
        'Open the spreadsheet in ReadOnly mode
        Set wb = Application.Workbooks.Open(filename, ReadOnly:=True)
        
        'Copy each sheet from the opened spreadsheet
        For Each Sheet In wb.Sheets
            Sheet.Copy After:=ThisWorkbook.ActiveSheet
        Next Sheet
    Next i
    
    ThisWorkbook.Save
    Set wb = Nothing
    
    #If Mac Then
        'Do nothing. Closing workbooks fails on Mac for some reason
    #Else
        'Close the workbooks except this one
        Dim file As String
        For i = 0 To FilesListBox.ListCount - 1
            file = FilesListBox.List(i, 0)
            file = Right(file, Len(file) - InStrRev(file, Application.PathSeparator, , 1))
            Workbooks(file).Close SaveChanges:=False
        Next i
    #End If
    
    Application.ScreenUpdating = True
    Unload Me
ErrMsg:
    If Err.Number <> 0 Then
        MsgBox "There was an error. Please try again. [" & Err.Description & "]"
    End If
End Sub

SymmetryrtemmyS fucked around with this message at 23:40 on Feb 29, 2016

'Copy data from wb1 sheet 1 to sheet 1 in wb2
With wb1.Sheets(1)
.UsedRange.Copy wb2.Sheets(1).range("A1").end(xldown).offset(1,0)
End With

'Copy data from wb1 sheet 1 to sheet 1 in wb2
wb1.Sheets(1).UsedRange.Copy wb2.Sheets(1).range("A1").end(xldown).offset(1,0)

Dim ufoDatePicker As ufDatePicker

    Set ufoDatePicker = New ufDatePicker 'this runs the "UserForm_Initialize()" code block
    
    ufoDatePicker.Show 'shows form and switches control over to form
    
    'goes off and runs the UserForm code, returning here when it hits a "me.hide"
    
    Unload ufoDatePicker 'deletes UserForm Object from memory

Sub CopyData()

Dim lngSourceRow As Long
Dim lngDestRow As Long

Dim wbDest As Workbook
Dim wbSource1 As Workbook
Dim wbSource2 As Workbook
Dim wbSource3 As Workbook

    'Set workbooks
    Set wbDest = Workbooks.Open("c:\Path\of\your\file1.xlsx")
    Set wbSource1 = Workbooks.Open("c:\Path\of\your\file2.xlsx")
    Set wbSource2 = Workbooks.Open("c:\Path\of\your\file3.xlsx")
    Set wbSource3 = Workbooks.Open("c:\Path\of\your\file4.xlsx")
    
    'Copy first sheet (INCLUDE HEADERS)
    lngDestRow = 1
    lngSourceRow = wbSource1.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    wbSource1.Worksheets(1).Range("A1:G" & lngSourceRow).Copy Destination:=wbDest.Worksheets(1).Range("A1")
    
    'Copy Second sheet (NO Headers)
    lngDestRow = lngDestRow + lngSourceRow
    lngSourceRow = wbSource2.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    wbSource2.Worksheets(1).Range("A2:G" & lngSourceRow).Copy Destination:=wbDest.Worksheets(1).Range("A" & lngDestRow)
    
    'Copy third sheet (NO Headers)
    lngDestRow = lngDestRow + lngSourceRow
    lngSourceRow = wbSource3.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    wbSource3.Worksheets(1).Range("A2:G" & lngSourceRow).Copy Destination:=wbDest.Worksheets(1).Range("A" & lngDestRow)
    

End Sub

Squashy Nipples fucked around with this message at 22:53 on Mar 1, 2016

ShimaTetsuo fucked around with this message at 01:54 on Mar 2, 2016