Solved

Square feet an hour calculator

Posted on 2013-10-24
5
977 Views
Last Modified: 2013-10-24
I didn't do very good in high school math! I would like to write a macro that I could enter the height and width of a sheet and the amount of time it took to print it and come up with the square feet an hour.

Example:

24" x 48" = 8 sqft
It took 5.5 mins to print
?= "how many square feet and hour that would equal" (around 88sqft an hour I think)

The 24 and 48 would be variable as would the time.

I hope that's clear enough
0
Comment
Question by:Dan Purcell
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 81

Expert Comment

by:byundt
ID: 39598758
Wouldn't you be happier with a formula?
=IF(COUNT(A2:C2)=3,(A2*B2/144)/(C2/60),"")

Cell A2 and B2 are the length and width
Cell C2 is the time in minutes

The formula calculates the square feet per hour.
SquareFtPerHour.xlsm
0
 
LVL 23

Expert Comment

by:NBVC
ID: 39598761
Say those values are respectively in A2, B2 and C2, then enter a formula in D2:

=A2*B2/144/C2*60

so you multiply the sides in inches, and divide by 144 to get square feet.  Then divide by time in minutes and multiply by 60 minutes/hour.
0
 
LVL 9

Expert Comment

by:jsdray
ID: 39598788
enter  height in a1
enter width in b1
enter time in c1

formula for square footage would be:
=a1*b1
formula for hours would be:
=c1/60

so to get amount per hour formula would be:
=(60/(C1/60))*(A1*B1)
0
 
LVL 81

Accepted Solution

by:
byundt earned 500 total points
ID: 39598793
Here is a macro as requested:
Sub SquareFtPerHour()
Dim dLength As Double, dWidth As Double, dTime As Double, dSquareFtPerHour As Double
On Error Resume Next
dLength = InputBox("Please enter the length of the sheet in inches")
dWidth = InputBox("Please enter the height of the sheet in inches")
dTime = InputBox("Please enter the time that it took to print in minutes")
On Error GoTo 0
If dLength * dWidth * dTime > 0 Then MsgBox (Format((dLength * dWidth / 144) / (dTime / 60), "#.0") & " square feet per hour")
End Sub

Open in new window

SquareFtPerHour.xlsm
0
 

Author Closing Comment

by:Dan Purcell
ID: 39598807
Wow!!
0

Featured Post

Enroll in June's Course of the Month

June's Course of the Month is now available! Every 10 seconds, a consumer gets hit with ransomware. Refresh your knowledge of ransomware best practices by enrolling in this month's complimentary course for Premium Members, Team Accounts, and Qualified Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Having trouble getting your hands on Dynamics 365 Field Service or Project Service trial? Worry No More!!!
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

705 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