Can you help me understand this file, please?

[regisfreitas]

Friends, I need a system that generates labels with volume control, and I found this one that meets my needs, but then comes the problem... when I click on GENERATE LABELS (GERAR ETIQUETAS), it only generates the label for the 18th line, and I don't understand why. I want it to generate from any line I indicate. Maybe the answer lies in the PANEL (PAINEL) button, but when I click it, a popup appears saying REFERENCE ISN'T VALID and it doesn't go anywhere. Could someone please try to help me with this? Thank you very much.

teste-envio.xlsb

drive.google.com

 

[StephenCrump]

Welcome to the Forum!

It looks like the problem is with this loop. The values are being update for rows 8, 9, 10 ... 18, but the code isn't doing anything with them before the loop closes.

For I = 8 To UltimaLinha    'where UltimaLinha is 18 in this case
    If Plan1.Cells(I, 19) <> "" Then
        Plan5.Cells(Lin, 1) = Plan1.Cells(I, 1)
        Plan5.Cells(Lin, 2) = Plan1.Cells(I, 2)
        Plan5.Cells(Lin, 3) = Plan1.Cells(I, 3)
        Plan5.Cells(Lin, 4) = Plan1.Cells(I, 4)
        Plan5.Cells(Lin, 5) = Plan1.Cells(I, 5)
        Plan5.Cells(Lin, 6) = Plan1.Cells(I, 6)
        Plan5.Cells(Lin, 7) = Plan1.Cells(I, 7)
        Plan5.Cells(Lin, 8) = Plan1.Cells(I, 8)
        Plan5.Cells(Lin, 9) = Plan1.Cells(I, 12)
        Lin = Lin + 1
    End If
Next

I haven't tested it, but it looks like you need to extend the loop like this:

    '...
    
    For I = 8 To UltimaLinha    'where UltimaLinha is 18 in this case
        If Plan1.Cells(I, 19) <> "" Then
            Plan5.Cells(Lin, 1) = Plan1.Cells(I, 1)
            Plan5.Cells(Lin, 2) = Plan1.Cells(I, 2)
            Plan5.Cells(Lin, 3) = Plan1.Cells(I, 3)
            Plan5.Cells(Lin, 4) = Plan1.Cells(I, 4)
            Plan5.Cells(Lin, 5) = Plan1.Cells(I, 5)
            Plan5.Cells(Lin, 6) = Plan1.Cells(I, 6)
            Plan5.Cells(Lin, 7) = Plan1.Cells(I, 7)
            Plan5.Cells(Lin, 8) = Plan1.Cells(I, 8)
            Plan5.Cells(Lin, 9) = Plan1.Cells(I, 12)
            Lin = Lin + 1
        End If
    
        'All other code dealing with Sheets("PREETIQUETAS") and Sheets("LAYOUT")

    Next UltimaLinha
    
    Application.ScreenUpdating = True

End Sub