Re: Labels

Sorry, I didn't read your first post carefully enough:-)

C.Resize(1,3).Copy .....

Regards,
Per

<dario90@xxxxxxxxx> skrev i meddelelsen news:65d86555-4c13-404c-8dac-c0034e6bae14@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
On 13 Sie, 10:28, "Per Jessen" <per.jes...@xxxxxxx> wrote:
Try this:

Sub CommandButton1_Click()
lr = Cells(Rows.Count, "c").End(xlUp).Row
For Each C In Range("C1:C" & lr)
If C.Value <> "" Then
C.Resize(1, 2).Copy Sheets("Sheet2").Range("E3")
Sheets("sheet2").PrintOut
End If
Next C
End Sub

Regards,
Per

<dari...@xxxxxxxxx> skrev i meddelelsennews:09b193b2-62d7-4d87-954c-2f86207174f3@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

>I have sth like this from sb very helpful but need to copy also values
> from column D as a item description and set number of labels copies
> even to value in column E for each record ( sheet1 is a base, sheet2
> is pattern of label):

> Sub CommandButton1_Click()
> lr=cells(rows.count,"c").end(xlup).row
> for each c in range("C1:C" & lr)
> If C.Value <>"" Then
> c.Copy Sheets("Sheet2").range("E3")
> sheets("sheet2").PrintOut
> End If
> Next C
> End sub

> Can anybody help me with this?

ok, it works. Thank's. But what with number of copies- how can i
specify it in connection with value in each record so it will be equal
to amount of item pallets?

.