Can't get Excel to consolidate

Mitchys

New Member
Joined
Oct 20, 2004
Messages
24
G'day,

Here is my code so far:
Code:
Private Sub CommandButton1_Click()
'   Goto the cell above where the data needs to be placed
    Application.Goto Reference:="start_consol"
'   Consolidate from the Budget worksheet
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Consolidate Sources:=Array("Budget!R5C11:R95C19") _
        , Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
When I click the command button in the worksheet, nothing happens (even though the hourglass appears for a fraction of a second). No error message is displayed either.

Is there something that I'm doing wrong?

Thanks,

Mitchys
 

Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).

NdNoviceHlp

Well-known Member
Joined
Nov 9, 2002
Messages
3,022
Don't know why but this works. Dave
Code:
Private Sub CommandButton1_Click()
'   Goto the cell above where the data needs to be placed
    Application.Goto Reference:="start_consol"
'   Consolidate from the Budget worksheet
    ActiveCell.Offset(1, 0) = vbNullString
    Application.CutCopyMode = False
    ActiveCell.Offset(1, 0).Consolidate Sources:=Array("Sheet1!R1C1:R1C4") _
        , Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
edit: change your range and sheet references back to what you had
 

Mitchys

New Member
Joined
Oct 20, 2004
Messages
24
G'day Dave,

I finally found out last night why it wasn't working, but forgot to reply back here.

In the past, whenever I have manually consolidated figures, I have usually performed it in a blank sheet. If I had to re-condolidate figures, I deleted the first series (i.e. to do it in the same worksheet). Here was the key that I had missed - my code was working fine, but Excel wouldn't consolidate in the range I wanted while there were cells > 0. So, I had to clear the cells first, then my code worked. Over yesterday I tweaked my code somewhat and have come up with a short procedure that works:
Code:
Private Sub CommandButton1_Click()
'   Ensure data on worksheet is cleared
    Range("consol_data").Clear
'   Consolidate from the Budget worksheet
    Application.CutCopyMode = False
    Worksheets("Lead Schedule").Range("staff").Consolidate Sources:=Array("Budget!R5C11:R95C20") _
        , Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
    Range("staff").Select
End Sub
I haven't yet tried your code, but will respond once I have.

Thanks for your reply,

Mitch
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,117
Messages
5,835,489
Members
430,358
Latest member
zzc1128

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top