Tried to put last row into the ranges

[Darren Smith]

Not sure why these ranges will not work with last rows added to them.

          Private Sub Add_Break_Lines_Click()

                
                Dim Com As ComboBox
                Dim ws As Worksheet
                Dim LastRow As Integer
   
                   
              
  
              
               
                Set ws = Application.Workbooks("Automated Cardworker.xlsm").Worksheets("Job Card Master")
                Set Com = Me.Add_Break_Lines
                LastRow = ws.Range("A" & Rows.Count).End(xlUp).row
               
               ws.Range("P13:P299").ClearContents

               
                With ws
               
               
              
                Select Case Com.Value
                    Case ("Break Lines 1 Page Job Card")
                        Color .Range("A13:Q & Lastrow")
           
                    Case ("Break Lines 2 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q & Lastrow")
              
                    Case ("Break Lines 3 Page Job Card")
                         Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q & Lastrow")
                       
                    Case ("Break Lines 4 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q183")
                        Color .Range("A188:Q & Lastrow")
           
                    Case ("Break Lines 5 Page Job Card")
                        Color .Range("A13:Q61")
                        Color .Range("A66:Q122")
                        Color .Range("A127:Q183")
                        Color .Range("A188:Q244")
                        Color .Range("A249:Q & Lastrow")
                End Select
               
      
            End With
End Sub

 

[Darren Smith]

It works this end ?

 

[EFANYoutube]

just a screen capture will do

 

[Darren Smith]

just a screen capture will do

This shows the lines are filling into the end of the sheet they need to stop when the last row is filled in. Example Row 51

 

[NoSparks]

Appears to me you would want LastRow to be from column C rather than column A

and the link to your workbook on dropbox is broken

 

[Darren Smith]

Please try the link below.
I`ve tried column c but it still does not work.

Mt

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[NoSparks]

It doesn't find the desired last row using column A because SUNDRIES and Job Card 0000A are both in column A.
It doesn't find the desired last row using column C because TOTAL BODY SHOP HOURS is in column C.
Move TOTAL BODY SHOP HOURS to column A and use horizontal alignment of 'Center across cells' to center it across columns A,B and C and your label will appear the same and using column C will determine lastrow to be 151

 

[Darren Smith]

Sorry yes, I meant to say with this that I have moved the text in column C to column A and that does solve that issue above.