Consolidate

Jirik61 · #1 06-28-2012, 08:21 AM

I used a procedure to consolidate data from other excel files in the same directory. It ran under Excel2003, but in 2007 it does not - the command selection.consolidate ends with Run-time error '1004'. I spent hours to find any hint, but found nothing. Do you have any experience?

Jirik

Code:

Sub Konsolidace()
Sheets("Výsledovka").Select
ActiveSheet.Unprotect
Cesta = Application.Workbooks(ActiveWorkbook.Name).Path
Obd = Range("a1")
Range("e13").Select
Selection.Consolidate Sources:=Array( _
  Cesta + "\[F12_K00_Regiony.xlsm]Výsledovka!R13C5:R119C18", _
  Cesta + "\[F12-105151.xlsx]Výsledovka!R13C5:R119C18", _
  Cesta + "\[F12-120100.xlsx]Výsledovka!R13C5:R119C18", _
  Cesta + "\[F12_K_HQ.xlsm]Výsledovka!R13C5:R119C18"), _
  Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
Range("e164").Select
Selection.Consolidate Sources:=Array( _
  Cesta + "\[F12_K00_Regiony.xlsm]Výsledovka!R164C5:R164C18", _
  Cesta + "\[F12-105151.xlsx]Výsledovka!R164C5:R164C18", _
  Cesta + "\[F12-120100.xlsx]Výsledovka!R164C5:R164C18", _
  Cesta + "\[F12_K_HQ.xlsm]Výsledovka!R164C5:R164C18"), _
  Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
ActiveSheet.Protect
 
Range("a1").Select
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there a portable version of MS Project 2007?	pstein	Project	1	03-26-2012 07:37 AM
Word 2010: new document opens as 2007 version	DigiCat	Word	0	02-29-2012 11:51 AM
This macros are not working in office english version 2007	hans	Excel Programming	4	12-10-2011 07:03 AM
problem opening document in word 2007 version	Lavanya	Word	1	05-28-2010 03:40 AM
Which Version of Office 2007 to Buy?	FauxAsian	Office	1	03-25-2010 09:10 PM