Fill data in label format (Run time Error 1004)

[marreco]

Hi.

By running a code, an error, can anyone help me fix this error appears?

Thanks

[Olly]

You have mistyped your named range "SETIQUETAa9", which applies to teste!$T$16. It should be "SETIQUETA9" for your loop of i values to reference it correctly. You are also missing a named range "SETIQUETA55" (should this point at teste!$Z$124 ?)

I'm also not convinced that this range is correctly defined:

Set rng = Sheet5.Range("AF3", Sheet5.Range("N65536").End(xlUp))

Which seems to be causing your loop to exceed the number of named ranges...

I'm afraid I don't understand your requirement well enough to advise what you actually want that range to be!

[marreco]

Hi.
I'm trying to populate the table (AF3: AH7) within the tags ("Empresa")

Thanks

[marreco]

Hi i'm solved!

Sub Look()
    Dim sQde
    Dim sCod
    Dim i As Long
    Dim x As Long
    Dim rng, sEtiqueta As Range
    Dim sQdeTT As Double

    Set rng = Sheet5.Range("AF3", Sheet5.Range("AF65536").End(xlUp))
    
    x = 1
    
    For Each sCod In rng
        
        sQde = sCod(1, 5).Value
        
        sQdeTT = sQdeTT + sQde
        
        For i = x To sQdeTT
          Range("sEtiqueta" & i).Value = sCod
          Range("sEtiqueta" & i).Offset(1, 0).Value = sCod(1, 3).Value
            
            x = x + 1
            
        Next i
    
    Next sCod
    
End Sub

Thanks

[Olly]

Glad you figured it out. Thanks for letting us know.

Hope you fixed those named range issues, too

[marreco]

Hi. Olly

thanks for the tips

[Olly]

Hi. Olly

thanks for the tips

My pleasure, glad it was some help Thanks for the feedback.