Solved

Command button code

Posted on 2011-03-09
5
280 Views
Last Modified: 2012-05-11
Please can you help, I am hoping to do away with the formulas held within E9:E917 from Sheet3 "Location.

I was hoping to use a command button that could calculate the occurrence of the listed codes (C9:C917) on sheet1 H14:H873

It would then display these in descending order.

The difficulty is that the formulas currently filter the data by the listed dates in F2:F3 sheet3 and matches this to the dates listed in B14:B873 sheet1.





help.xls
0
Comment
Question by:Gazza83
  • 3
  • 2
5 Comments
 
LVL 39

Expert Comment

by:nutsch
Comment Utility
Here, this code will put in the formula, then copy /paste values it so the formula disappears when you're not updating:

Sub Macro2()
'
With Sheets("Location").Range("E9:E917")
    .FormulaR1C1 = _
        "=SUMPRODUCT((data!R14C2:R20000C2+0>=R2C6)*(data!R14C2:R20000C2+0<=R3C6)*(data!R14C8:R20000C8=RC3))"
    .Value = .Value
End With
End Sub

Open in new window


Thomas
0
 

Author Comment

by:Gazza83
Comment Utility
Thanks Thomas, this seems perfect! I've run the code and it took little to no processing time; whereas the old way was taken ages.

Is there a way I could sort the range highest-Lowest, maybe I could use another command button?
0
 
LVL 39

Accepted Solution

by:
nutsch earned 500 total points
Comment Utility
Something like this?

Sub Macro2()

With Sheets("Location").Range("E9:E917")
    .FormulaR1C1 = _
        "=SUMPRODUCT((data!R14C2:R20000C2+0>=R2C6)*(data!R14C2:R20000C2+0<=R3C6)*(data!R14C8:R20000C8=RC3))"
    .Value = .Value
End With

With Sheets("Location").Range("C9:E917")
    .Sort Key1:=Range("E9"), Order1:=xlDescending
End With

End Sub

Open in new window


Thomas
0
 

Author Closing Comment

by:Gazza83
Comment Utility
Thanks Thomas!
0
 
LVL 39

Expert Comment

by:nutsch
Comment Utility
Glad to help. Thanks for the grade.

Thomas
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Suggested Solutions

This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now