Print labels for items received on receiving report

**Mordred** · 06-23-2011, 05:19 PM

Hi snb, I've tried what you gave twice and both times it crashed excel. Plus, I was unable to exit the form (which was nicely laid out by the way). Mayhap it is because I didn't save and tried to run it from within the zip file.

**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