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

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