Wednesday, 24 February 2016

[Solved] How do I create a macro that pulls data from multiple workbooks into a single workbook?

How do I create a macro that pulls data from multiple workbooks into a single workbook?

Basically, I am not familiar with writing 'macros' but I think I could figure it out with a little help.  I am not a programmer and do not know any programming languages...
A must:
I have 34 workbooks on a network that I need to pull all the data from once a week to create a master sheet, which will then be sorted and grouped based on a unique number identifier.
A dream:
I want to do a row group based on the unique identifier...
I want to (total, average, etc.) based on certain columns for the different groups, sub groups, and master.
I want it to look presentable to management...  The clincher right!
Oh, great forum I rub you as Alladin rubbed the lamp!

Keys to the Problem How do I create a macro that pulls data from multiple workbooks into a single workbook?

Download Error Fixer for Free Now

A light, steam, fume, a dark glorious voice said: "You have only one wish per thread!", steam, darkness, a light and some signs one the floor:

Sub CopyAllFiles()
  Dim FileName As String
  'Get first file
  FileName = Dir("G:\temp\*.xls")
  'do while files found
  Do While Len(FileName) > 0
    CopyOneFile FileName
    'Get next file in the directory
    FileName = Dir
End Sub
Sub CopyOneFile(ByVal FileName As String)
  Dim WB As Workbook
  Dim Dest As Range, Source As Range
  'Find the last cell in this sheet
  Set Dest = Cells.SpecialCells(xlCellTypeLastCell)
  'Next row, first column
  Set Dest = Dest.Offset(1, 1 - Dest.Column)
  'Open the file (Note: The workbook and sheet becomes active!)
  Set WB = Workbooks.Open("G:\Temp\sorteo.xls")
  'Get the data range
  Set Source = Range(Range("A1"), Cells.SpecialCells(xlCellTypeLastCell))
  'Copy it
  Source.Copy Dest
  'Close the workbook
  WB.Close False
End Sub

Make Sure that your System 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 update where necessary before continuing.

Another Safe way to Repair the Problem: How do I create a macro that pulls data from multiple workbooks into a single workbook?:



How to Fix How do I create a macro that pulls data from multiple workbooks into a single workbook? with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer.  Open it, and it will scan your computer. The junk files will be shown in the list.

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

3. The Fixing part is done, the speed of your computer will be much higher than before and the errors have been fixed.

Related: Black hole Gap in Task Bar Windows 8 1 Pro asus drivers Getting Error code 0x80070015 when doing backup in Windows 7 asus mainboard driver download Metro Apps Still Not Lauching After April 8 Windows 8 1 Update asus motherboard drivers Silverlight Updates causing Windows 7 32bit system to hang at desktop asus support Starting in Oct 2012 My computer started shuting down at radom times I sometimes get a error box saying Microsoft Windows is not responding asus com System Restore vs Windows Backup asus drivers Windows Unexpected Shutdowns Need Help asus support Steps to One-Click Download and Update Asus Touchpad Drivers on Your Computer,Icon Deleted Nd Required,Computer After Infected By Fake Antivirus,Resource (web Proxy) Is Online But Isn't Responding To Connection Attempts,Using Drop.down Box In Word,Win 7 X64 32gb SDHC ReadyBoost Issue
Read More: [Solution] How do I add a min & max value to a formula withi,Host Process stopped working. Vista based system,How to Resolve - Unable to boot past Welcome screen - Error ,system interrupts [Solved],ms money uk version Tech Support,Application Does Not Start in Windows 7,NTLDR is Missing. Press CTR + ALT + DEL to restart?,Apps keep crashing every time I click on the tile, what's wrong?,Why is windows experience index for graphics score is less than gaming graphics score?,MSE keeps detecting and quarantining trojan js/medfos.b, how to remove it permanently?


Post a Comment

Sample Text

Copyright © How to Fix Dll Not Found Error? | Powered by Blogger Design by ronangelo | Blogger Theme by