Consolidate

macropod · #2 07-03-2012, 04:42 AM

hi Jirik,

Are you sure the source files are where they should be? Do they have the correct names and extensions? Have the source files been converted to the xls(x/m) formats?

FWIW, I believe your code could be made simpler and more efficient:

Code:

Sub Konsolidace()
Dim Cesta As String
Cesta = ThisWorkbook.Path
With Sheets("Výsledovka")
  .Unprotect
  .Range("E13").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").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
  .Protect
End With
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