I have a formula set up to where when information is added into column 19 on INput page it adds the information into line 36 on Hours. i set certain data to stay in line 35 and tried to get it to delete the data when a line is removed or added and keep the data in line 35. However, that part of the code is interefering with the data being autopopulated into lin 36. I have tried to set it to autopoluating into line 37 or 38 and it still did not help. the first code is the original where it auto added information and the secdon code is what i have now adding (keep the data in line 35 and auto delete when a row is added or deleted. I cant figure out how to make them work together. Ive added mini charts so if you need to work within the workbook to help.
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge <> 1 Then Exit Sub
Application.ScreenUpdating = False
If Target.Column = 16 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(6).Delete
Else
.Rows(6).Insert
.Range("A6") = Target.Value
End If
End With
ElseIf Target.Column = 19 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(36).Delete
Else
.Rows(36).Insert
.Range("A36") = Target.Value
End If
End With
ElseIf Target.Column = 22 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(64).Delete
Else
.Rows(64).Insert
.Range("A64") = Target.Value
End If
End With
ElseIf Target.Column = 25 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(93).Delete
Else
.Rows(93).Insert
.Range("A93") = Target.Value
End If
End With
End If
Application.ScreenUpdating = True
End Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge <> 1 Then Exit Sub
Application.ScreenUpdating = False
If Target.Column = 16 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(6).Delete
Else
.Rows(6).Insert
.Range("A6") = Target.Value
End If
End With
ElseIf Target.Column = 19 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(36).Delete
Else
.Rows(36).Insert
.Range("A36") = Target.Value
End If
End With
ElseIf Target.Column = 22 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(64).Delete
Else
.Rows(64).Insert
.Range("A64") = Target.Value
End If
End With
ElseIf Target.Column = 25 Then
With Sheets("Hours")
If Target.Value = "" Then
.Rows(93).Delete
Else
.Rows(93).Insert
.Range("A93") = Target.Value
End If
End With
End If
' Ensure data stays in line 35
With Sheets("Hours")
If .Rows(35).EntireRow.Hidden = False Then
.Rows(36).EntireRow.Delete
.Range("I35:N35").ClearContents
.Range("I35").Value = "Straight Total"
.Range("J35").Value = "OT Total"
.Range("K35").Value = "Straight $"
.Range("L35").Value = "OT $"
.Range("M35").Value = "Weekly Total"
.Range("N35").Value = "Total"
End If
End With
Application.ScreenUpdating = True
End Sub
Kane Macro copy 2.xlsm | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
O | P | R | S | U | V | X | Y | ||||||
2 | Week 1 | Week 2 | Week 3 | Week 4 | |||||||||
3 | Employee | Employee Name | Employee name | Employee name | Employee name | ||||||||
4 | 1 | Stump, James | Clement, Vincent | ||||||||||
5 | 2 | Stump, James | Clement, Vincent | ||||||||||
6 | 3 | McCain, Austin | |||||||||||
7 | 4 | ||||||||||||
8 | 5 | ||||||||||||
9 | 6 | ||||||||||||
10 | 7 | ||||||||||||
11 | 8 | ||||||||||||
12 | 9 | ||||||||||||
13 | 10 | ||||||||||||
14 | 11 | ||||||||||||
15 | 12 | ||||||||||||
16 | 13 | ||||||||||||
17 | 14 | ||||||||||||
18 | 15 | ||||||||||||
19 | 16 | ||||||||||||
20 | 17 | ||||||||||||
21 | 18 | ||||||||||||
22 | 19 | ||||||||||||
23 | 20 | ||||||||||||
Project Input page |
Cells with Data Validation | ||
---|---|---|
Cell | Allow | Criteria |
Y4:Y23 | List | =Database!$A$2:$A$10 |
S4:S21 | List | =Database!$A$2:$A$10 |
V4:V23 | List | =Database!$A$2:$A$10 |
P4:P21 | List | =Database!$A$2:$A$10 |
Kane Macro copy 2.xlsm | ||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | J | K | L | M | N | P | Q | R | S | T | ||||
1 | ||||||||||||||||||||||
2 | ||||||||||||||||||||||
3 | ||||||||||||||||||||||
4 | 14-Jan | 15-Jan | 16-Jan | 17-Jan | 18-Jan | 19-Jan | 20-Jan | Straight Total | OT Total | Straight $ | OT $ | Weekly Total | Total | Straight $ | OT $ | Weekly Total | ||||||
5 | ||||||||||||||||||||||
6 | Stump, James | 0 | 0 | 0 | 0 | 0 | 0 | |||||||||||||||
7 | Daggy, Dillain | 0 | 0 | 0 | 0 | 0 | 0 | |||||||||||||||
8 | Clement, Vincent | 0 | 0 | 0 | 0 | 0 | 0 | |||||||||||||||
9 | Clement, Vincent | 0 | 0 | 0 | 0 | 0 | 0 | |||||||||||||||
10 | ||||||||||||||||||||||
11 | Totals | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ||||||||
12 | ||||||||||||||||||||||
13 | ||||||||||||||||||||||
14 | ||||||||||||||||||||||
15 | ||||||||||||||||||||||
16 | ||||||||||||||||||||||
17 | ||||||||||||||||||||||
18 | ||||||||||||||||||||||
19 | ||||||||||||||||||||||
20 | ||||||||||||||||||||||
21 | ||||||||||||||||||||||
22 | ||||||||||||||||||||||
23 | ||||||||||||||||||||||
24 | ||||||||||||||||||||||
25 | ||||||||||||||||||||||
26 | ||||||||||||||||||||||
27 | ||||||||||||||||||||||
28 | ||||||||||||||||||||||
29 | ||||||||||||||||||||||
30 | ||||||||||||||||||||||
31 | ||||||||||||||||||||||
32 | ||||||||||||||||||||||
33 | ||||||||||||||||||||||
34 | ||||||||||||||||||||||
35 | Straight Total | OT Total | Straight $ | OT $ | Weekly Total | Total | ||||||||||||||||
36 | 0 | 0 | #VALUE! | #VALUE! | #VALUE! | 0 | ||||||||||||||||
37 | ||||||||||||||||||||||
38 | ||||||||||||||||||||||
39 | ||||||||||||||||||||||
40 | ||||||||||||||||||||||
41 | ||||||||||||||||||||||
42 | ||||||||||||||||||||||
43 | ||||||||||||||||||||||
44 | ||||||||||||||||||||||
45 | ||||||||||||||||||||||
46 | ||||||||||||||||||||||
47 | ||||||||||||||||||||||
48 | ||||||||||||||||||||||
49 | ||||||||||||||||||||||
Hours |
Cell Formulas | ||
---|---|---|
Range | Formula | |
I6:I9,I36 | I6 | =IF(N6>40,40,N6) |
J6:J9,J36 | J6 | =IF(N6>40,N6-40,0) |
K6:K9,K36 | K6 | =I6*O6 |
L6:L9,L36 | L6 | =(O6*1.5)*J6 |
M6:M9,M36 | M6 | =SUM(K6:L6) |
N6:N9,N36,N11 | N6 | =SUM(B6:H6) |
B11:M11 | B11 | =SUM(B5:B10) |