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

 

[EFANYoutube]

Hi
Is it possible that your A column doesn't have any data?
The code looks good

Excel Fun

 

[Darren Smith]

No there is data in the A column

 

[EFANYoutube]

So the code that you have to find the last row uses column A returns 1. Change it to a row that has data so that it will return the last row

LastRow = ws.Range("A" & Rows.Count).End(xlUp).row

 

[Darren Smith]

I tried this but still no luck

[B] LastRow = ws.Range("A13" & Rows.Count).End(xlUp).row[/B]

 

[EFANYoutube]

Maybe we just need to see a screenshot of your spreadsheet to see whats happening

 

[Darren Smith]

Could i send you the workbook via dropbox?

 

[EFANYoutube]

Sure, post the link here tho ok

 

[Darren Smith]

Here you go

Automated Cardworker.xlsm (dropbox.com)

 

[EFANYoutube]

your link is broken