creating a running total

Excel Facts

Show numbers in thousands?
Use a custom number format of #,##0,K. Each comma after the final 0 will divide the displayed number by another thousand

Giggzz

Well-known Member
Part 2
Sheet8
Payroll WBV4.5 Master.xls
ABCDEFGHIJKLMNOPQ
2Date:10/22/05WEEK#:2Name:Rios, AndreRios, RubinRyder, ShawnRuiz, Jason
3INSTALLPULLR & RREPAIRFORMANHELPERFORMANHELPER
4PRODUCTSQTYF/PayH/PayQTYF/PayH/PayQTYF/PayH/PayQTYF/PayH/PayTOTALTOTALTOTALTOTAL
56' CL/PL1,000\$0.11\$0.09\$0.06\$0.05\$0.17\$0.14\$0.06\$0.05\$55.00\$45.00\$55.00\$45.00
66' WINDSCREEN*\$0.11\$0.09\$0.06\$0.05\$0.17\$0.14\$0.06\$0.05\$0.00\$0.00\$0.00\$0.00
PAY CALCULATOR

Code:
Private Sub commandbutton2_click()
Dim c1 As Range, c2 As Range, wk As String, x As Integer
wk = "WEEK " & Worksheets(1).Range("K2")
For x = 14 To 17
Set c1 = Worksheets(wk).Range("C5:I5").Find(Worksheets(1).Range("G2"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False)
Set c2 = Worksheets(wk).Range("B6:B55").Find(What:=Worksheets(1).Cells(2, x), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False)
ActiveSheet.Unprotect "national"
If c1 Is Nothing Or c2 Is Nothing Then
MsgBox "No Match"
Else
If Worksheets("PAY CALCULATOR").Cells(2, x)<> "" Then
If Worksheets(wk).Cells(c2.Row, c1.Column)<> "" Then
ans = MsgBox("You are about to overwrite a current total! Proceed?", vbYesNo, "Confirmation")
If ans = vbNo Then Exit Sub
End If
Worksheets(wk).Cells(c2.Row, c1.Column) = Worksheets(1).Cells(59, x)
End If
End If
Next x

Range("b5:b57,e5:e15,e17:e19,e22:e23,e29:e37,E39:E43,e52:e55,H5:h15,h17:h19,H22:h23,h29:h37,h39:h43,h54,k5:k15,K17:k19,k22:k23,K29:k37,k39:K43,n58,o58,p58,q58,N2,O2,P2,Q2").ClearContents
Range("N2").Select
ActiveSheet.Protect "national"
End Sub

Good evening all.... need some help.... trying to track how much a certain product is installed and pulled with my installers.
I want to track the quantities in B5, E5, and H5 on sheet1. B5 = Installed, E5 = Pulled, H5 = 1/2 installed and 1/2 pulled.

Quanities would be tracked by name and kept on sheet8 in columns I and J. Each time qty's are inputed on sheet1 they need to be added to any existing quanties already in columns I and J associated with the persons name. Trying to add the code to the code I have already posted, to run on the command button listed. Hope this makes sense

Replies
16
Views
438
Replies
0
Views
168
Replies
2
Views
493
Replies
4
Views
387
Replies
6
Views
239

1,196,027
Messages
6,012,954
Members
441,740
Latest member
abaz21

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.

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

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