fill in cells according to selected optionbutton

Hi

I have the cells fill in with color for Production,Planned Stop and Internal for Machine Stoppage......

1. How can the code be changed so that when Machine Stoppage is used it fills in the cells (eg XFLOW A Sheet) with color depending on which is selected between Internal or External...i can get it to fill in for Internal but not External

2. When Daily Total is selected (commandbutton) it also colors the rows where all Sum Totals are ... can the rows which have any Totals and Grand Totals entered have NO color in these rows

Thanks

PP

Bump

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK75iCEaGN
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK7XF33njy
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCSgpAqA1
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCy--3x8E
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwNaJiNATXshvJ0Zz94AaABAg. 9iEktVkTAHk9iF9_pdshr6
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iFAZq-JEZ-
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgxV2r7KQnuAyZVLHH54AaABAg. 9iDVgy6wzct9iFBxma9zXI
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwnYuSngiuYaUhEMWN4AaABAg. 9iDQN7TORHv9iFGQQ5z_3f
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwJ3yzdk_EE98dndmt4AaABAg. 9iDLC2uEPRW9iFGvgk11nH
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgyDWAVqCa4yMot463x4AaABAg. 9iH3wvUZj3n9iHnpOxOeXa
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwvLFdMEAba5rLHIz94AaABAg. 9iGReNGzP4v9iHoeaCpTG8
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iHpsWCdJ5I
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Code:

---

            With .Range("B" & Rows.Count).End(xlUp)
                .Offset(, 1).Resize(, 16).Interior.ColorIndex = 34
                .Offset(, IIf(OptionButton4, 8, 13)).Resize(, 5).Interior.ColorIndex = xlNone
            End With

---

Code:

---

Sub SubTotalize()
 
    With Sheets("XFLOW A")
      .Unprotect Password:="abc"
      .Range("B7:Q" & .Cells(Rows.Count, 2).End(xlUp).Row).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 7, 12, 16), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        With .Range("B" & Rows.Count).End(xlUp)
            .Offset(-1, 1).Resize(2, 16).Interior.ColorIndex = xlNone
        End With
      .Protect UserInterfaceOnly:=True, Password:="abc"
    End With
   
End Sub

---

Thanks Bakerman

I am confident this is the last part and the workbook is completed

If i run this code below with no entries in the data sheet it brings up an error...can something be added in the code so that if no data is on the sheet it brings up a message "no data to sum" .. this will stop the error

Code:

---



Sub SubTotalize()
 
    With Sheets("XFLOW A")
      .Unprotect Password:="abc"
      .Range("B7:Q" & .Cells(Rows.Count, 2).End(xlUp).Row).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 7, 12, 16), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        With .Range("B" & Rows.Count).End(xlUp)
            .Offset(-1, 1).Resize(2, 16).Interior.ColorIndex = xlNone
        End With
      .Protect UserInterfaceOnly:=True, Password:="abc"
    End With
   
End Sub

---

Another

On the data sheet XFLOW A for 13/9/2013 & 14/9/2013 for Total the rows are blue....can all rows with either Total or Grand Total have no color

Thanks again

Put this on top off SubTotalize.

Code:

---

If Sheets("XFLOW A").Range("B6").CurrentRegion.Rows.Count = 2 Then Exit Sub

---

Thanks bakerman

Can this one be fixed...if so this is finished

On the data sheet XFLOW A for 13/9/2013 & 14/9/2013 for Total the rows are blue....can all rows with either Total or Grand Total have no color

Thanks again