MTS to MP4 Conversion : [Anwsered] copying from an excel to other excel with multiple tabs

Friday, September 23, 2016

[Anwsered] copying from an excel to other excel with multiple tabs

copying from an excel to other excel with multiple tabs

there are two excel files, info.xls(one sheet with company, employeeid are columns) and company.xls has four sheets with columns such as company, location, phone, I need to copy the "company" column from info.xls and paste to all four sheets on company.xls
->company field.

below is the macro code working for copy from info.xls ->sheet 1 to company.xls ->sheet 1 :

Sub Macro1()
'
' Macro1 Macro
' Macro1
'

'
Range("A2:C7").Select
Selection.Copy
Windows("Company.xls").Activate
Range("A2:C7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Save
Windows("Info.xls").Activate
ActiveWorkbook.Save
End Sub

above code is working fine from info.xls.sheet 1 to company.xls.sheet 1, how can i populate the copied rows to company.xls.sheet 2, company.xls.sheet 3, company.xls.sheet4 as well??

Anwsers to the Problem copying from an excel to other excel with multiple tabs

Download Error Fixer for Free Now

Try this version:

Sub Macro1()
    Dim wbkS As Workbook
    Dim wbkT As Workbook
    Dim wshT As Worksheet
    Dim strFile As String
    Set wbkS = ActiveWorkbook
    On Error Resume Next
    Set wbkT = Workbooks("Company.xls")
    On Error GoTo 0
    If wbkT Is Nothing Then
        With Application.FileDialog(1) ' msoFileDialogOpen
            .InitialFileName = "Company.xls"
            If .Show Then
                strFile = .SelectedItems(1)
            Else
                Exit Sub
            End If
        End With
        Set wbkT = Workbooks.Open(strFile)
    End If
    For Each wshT In wbkT.Worksheets
        wbkS.Worksheets(1).Range("A2:B7").Copy _
            Destination:=wshT.Range("A2")
        wbkS.Worksheets(1).Range("C2:C7").Copy _
            Destination:=wshT.Range("G2")
        wbkS.Worksheets(1).Range("D2:F7").Copy _
            Destination:=wshT.Range("I2")
        Next wshT
    Application.CutCopyMode = False
    wbkT.Save
    wbkS.Activate
End Sub

Make Sure that your Hardware Meets the System Requirements

Microsoft Windows Requirements :

1 gigahertz (GHz) or faster 32-bit (x86) or 64-bit (x64) processor
1 gigabyte (GB) RAM (32-bit) or 2 GB RAM (64-bit)
16 GB available hard disk space (32-bit) or 20 GB (64-bit)

You need to double-check your computer's hardware configuration against the following Microsoft requirements. If your PC hardware is not up to par, then make sure you upgrade where necessary before continuing.

Recommended Method to Fix the Problem: copying from an excel to other excel with multiple tabs:

How to Fix copying from an excel to other excel with multiple tabs with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer. Open it, and it will scan your computer. The errors will be shown in the scan result.

2. After the scan is done, you can see the errors and problems which need to be fixed.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in this software. Like dll downloading, windows updating and print spooler error repair.