Print labels for items received on receiving report

**snb** · 06-24-2011, 03:25 AM

You have to unzip both files in the same directory first.

**snb** · 06-24-2011, 04:08 AM

In the attachment a 'revised revision'

Unzip both files in the same directory: open the Excelfile.

**leaning** · 06-24-2011, 11:49 AM

All,

This code was working, but now it's not.

If there is an X (or anything) in cells A8:A19, then copy the row (or rows) (I really need to only copy Columns B:H and R:V) to the next available row on the sheet named "Labels".

Right now, it only copies the first X'ed row and nothing after. Not looping. Anyone see what is wrong?

Private Sub CommandButton1_Click()
Dim ce As Range
   For Each ce In Range("A8:A19" & Cells(Rows.Count, 1).End(xlUp).Row)
             If Not IsEmpty(ce) Then
                      Sheets("Labels").Unprotect "SECRET"
                      Sheets("Labels").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 22).Value = Range(ce, ce.Offset(0, 22)).Value
                      ce.ClearContents
                     Sheets("Labels").Select
                   Sheets("Labels").Protect "SECRET"
             End If
    Next ce
End Sub

Lost