Cómo hacer etiquetas con Excel?

Hola Griego, alguna vez tuve que hacer algo similar y lo hice con Word. Hice
una fusión entre los datos de excel y combinar correspondencia con word, la
verdad me dio el apaño. De todas formas alguno de nuestros sabios excelianos
te aportará algo menos engorroso.

Saludos

"GRIEGO59" escribió en el mensaje de
noticias news:

Alguien puede decirme como se pueden hacer etiquetas en Excel?

Cuando digo “etiquetas” me refiero a pequeñas fichas, cortoncitos,
tarjetitas que se pegan a los productos para la venta para identificarlos
y
que contienen información básica del producto como descripción, color,
precio, código, referencia, etc. En mi caso de una hoja o cartulina tamaño
carta, obtengo 25 etiquetas de igual tamaño (5 hileras de 5 etiquetas cada
una)

Actualmente imprimo las etiquetas de 25 en 25 a medida que se van
comprando
los productos.

Normalmente cuando los productos van a ser etiquetados, los productos se
organizan físicamente en el almacén en el mismo orden que se muestran en
la
hoja “compras” por lo que las etiquetas deben imprimirse en forma
secuencial,
es decir que deben imprimirse en el mismo orden que aparecen los productos
comprados en la hoja “compras”

Actualmente las hago así:
Tengo la hoja “compras” con los títulos de columnas desde las celdas a1
hasta m1:

Idcompra
Código del producto,
Feha de compra,
Número de factura de compra,
Cantidad comprada,
Costo unitario,
Precio de venta,
Total compra,
Proveedor,
Descripción,
Color,
Marca,
Talla;

Donde:
Id Compra es un código único e irrepetible por cada producto comprado;
Código del producto es un código que se repite tantas veces como se compra
un producto;
Total compra es una fórmula;
Descripción, Color, Marca, Talla vienen de la hoja “productos” con la
fórmula “VBuscar”

y Tengo la hoja “etiquetas” con 26 filas con los títulos de columna desde
las celdas b1 hasta h1 que muestran las 25 etiquetas que se van a
imprimir:
Id compra
Precio de venta,
Código del producto,
Descripción,
Color,
Marca,
Proveedor

Donde:
Id Compra lo copio y pego manualmente tantas veces como cantidad comprada
muestre la hoja “compras”; el resto de las columnas vienen de la hoja
“compras” con la fórmula “VBuscar”
En la fila 28 comienzan las etiquetas las cuales están vinculadas con cada
una de las 25 filas.

El problema es que cuando voy a imprimir cada hoja o cartulina de 25
etiquetas, debo indicar manualmente en las primeras 25 filas las productos
que deseo que tengan etiqueta y como esto depende del orden de los
productos
en la hoja “compras” y de la cantidad de productos comprados que muestra
la
columna “cantidad comprada” de la hoja “compras” me equivoco mucho y
siempre
imprimo más o menos etiquetas que productos comprados y si me distraigo un
poco, a veces me salto algún producto o repito algún producto y esto me
trae
problemas para etiquetar : (

No sé, pienso que podría haber una forma de indicarle a Excel que tome
directamente la información de la hoja “compras” escribiendo el “Id
Compras”
desde donde Excel debe comenzar a imprimir las etiquetas y que Excel
imprima
una etiqueta por cada producto comprado o por ejemplo decirle a Excel que
imprima todas las etiquetas de los productos comprados en alguna fecha
determinada tal vez es más fácil.

Otro problema es que cuando deseo cambiar el tamaño de las etiquetas y por
consiguiente la cantidad de etiquetas por hoja, debo cuadrar manualmente y
hacer varias pruebas hasta que se ajusten al tamaño del papel. Me
preguntaba
si Excel tiene algo previsto para esto.

Gracias por la ayuda.

Griego59

hola, Darío !

... como se pueden hacer etiquetas en Excel? (...)

1) para esta parte (al final) de tu consulta...
"> ... cuando deseo cambiar el tamano de las etiquetas y por consiguiente la cantidad de etiquetas por hoja"
"> debo cuadrar manualmente y hacer varias pruebas hasta que se ajusten al tamano del papel."
"> Me preguntaba si Excel tiene algo previsto para esto."

-> (me temo que) no podras escapar de la necesidad de hacer ajustes "a prueba y error" :-((

2) en cuento al resto de tu consulta (perdon si la omito, pero creo que tome y) los detalles importantes son:

a) imprimes en papel de etiquetas (engomadas) de 25 x 25

b) en la hoja "etiquetas" tienes:
-> a partir de la fila 28 tienes el formado que "encuadra" los datos a las etiquetas
-> en [B1:H1] los titulos de los datos que se van a cada etiqueta
(Id compra, Precio de venta, Codigo del producto, Descripcion, Color, Marca, Proveedor)
-> en [B2:B26] necesitas poner la "IdCompra" de cada producto tantas veces como su cantidad comprada
con la consiguiente necesidad de ajustar a las 25 etiquetas del papel engomado y las que falten... "a la siguiente"

c) en la hoja "compras" tienes:
-> en [A1:M1] los diversos titulos de los articulos comprados (de donde)...
-> la "IdCompra" esta en la columna A (y es la que se debe pasar a etiquetas tantas veces como)...
-> la columna E contiene el dato de la cantidad comprada de cada producto

si "voy bien" (hasta aqui)... prueba con una macro (que deberas ejecutar desde la hoja "etiquetas) +/- como la siguiente:
haz unas pruebas "cortas" (asi va preparada) y cuando estes satisfecho (si fuera el caso)...
-> sustituyes los MsgBox (lineas 12 y 28) por tus instrucciones de impresion
(asumiendo que el area de impresion es a partir de la fila 28) -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Etiquetas_en_25()
Dim Fila_Id As Integer, Cant_Id As Integer, Actual As Byte, _
Libres As Byte, Fila_Etiq As Byte, Id_Falta As Integer
Range("b2:b26").ClearContents
With Worksheets("compras")
For Fila_Id = 2 To 3 ' .Range("a65536").End(xlUp).Row
Cant_Id = .Range("e" & Fila_Id)
Actual = 0
Do
Libres = 25 - Evaluate("counta(b2:b26)")
If Libres = 0 Then
MsgBox "Etiquetas completas !!!"
Range("b2:b26").ClearContents
End If
Libres = 25 - Evaluate("counta(b2:b26)")
Fila_Etiq = 2 + 25 - Libres
Id_Falta = Cant_Id - Actual
Select Case Id_Falta
Case Is <= Libres
Range("b" & Fila_Etiq).Resize(Id_Falta) = .Range("a" & Fila_Id)
Actual = Actual + Id_Falta
Case Else
Range("b" & Fila_Etiq).Resize(Libres) = .Range("a" & Fila_Id)
Actual = Actual + Libres
End Select
Loop Until Actual = Cant_Id
Next
If Evaluate("counta(b2:b26)") Then MsgBox "Ultimo bloque de etiquetas !!!"
End With
End Sub

Sin duda el metodo de combinar correspondencia es el mas adecuado aunque si,
nada sencillo de hacer, pero no imposible, y una vez configurado la primera
vez, las siguientes son pan comido, si te interesa contactame a


"Héctor Miguel" escribió:

hola, Darío !

> ... como se pueden hacer etiquetas en Excel? (...)

1) para esta parte (al final) de tu consulta...
"> ... cuando deseo cambiar el tamano de las etiquetas y por consiguiente la cantidad de etiquetas por hoja"
"> debo cuadrar manualmente y hacer varias pruebas hasta que se ajusten al tamano del papel."
"> Me preguntaba si Excel tiene algo previsto para esto."

-> (me temo que) no podras escapar de la necesidad de hacer ajustes "a prueba y error" :-((

2) en cuento al resto de tu consulta (perdon si la omito, pero creo que tome y) los detalles importantes son:

a) imprimes en papel de etiquetas (engomadas) de 25 x 25

b) en la hoja "etiquetas" tienes:
-> a partir de la fila 28 tienes el formado que "encuadra" los datos a las etiquetas
-> en [B1:H1] los titulos de los datos que se van a cada etiqueta
(Id compra, Precio de venta, Codigo del producto, Descripcion, Color, Marca, Proveedor)
-> en [B2:B26] necesitas poner la "IdCompra" de cada producto tantas veces como su cantidad comprada
con la consiguiente necesidad de ajustar a las 25 etiquetas del papel engomado y las que falten... "a la siguiente"

c) en la hoja "compras" tienes:
-> en [A1:M1] los diversos titulos de los articulos comprados (de donde)...
-> la "IdCompra" esta en la columna A (y es la que se debe pasar a etiquetas tantas veces como)...
-> la columna E contiene el dato de la cantidad comprada de cada producto

si "voy bien" (hasta aqui)... prueba con una macro (que deberas ejecutar desde la hoja "etiquetas) +/- como la siguiente:
haz unas pruebas "cortas" (asi va preparada) y cuando estes satisfecho (si fuera el caso)...
-> sustituyes los MsgBox (lineas 12 y 28) por tus instrucciones de impresion
(asumiendo que el area de impresion es a partir de la fila 28) -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Etiquetas_en_25()
Dim Fila_Id As Integer, Cant_Id As Integer, Actual As Byte, _
Libres As Byte, Fila_Etiq As Byte, Id_Falta As Integer
Range("b2:b26").ClearContents
With Worksheets("compras")
For Fila_Id = 2 To 3 ' .Range("a65536").End(xlUp).Row
Cant_Id = .Range("e" & Fila_Id)
Actual = 0
Do
Libres = 25 - Evaluate("counta(b2:b26)")
If Libres = 0 Then
MsgBox "Etiquetas completas !!!"
Range("b2:b26").ClearContents
End If
Libres = 25 - Evaluate("counta(b2:b26)")
Fila_Etiq = 2 + 25 - Libres
Id_Falta = Cant_Id - Actual
Select Case Id_Falta
Case Is <= Libres
Range("b" & Fila_Etiq).Resize(Id_Falta) = .Range("a" & Fila_Id)
Actual = Actual + Id_Falta
Case Else
Range("b" & Fila_Etiq).Resize(Libres) = .Range("a" & Fila_Id)
Actual = Actual + Libres
End Select
Loop Until Actual = Cant_Id
Next
If Evaluate("counta(b2:b26)") Then MsgBox "Ultimo bloque de etiquetas !!!"
End With
End Sub

hola, Davo(...) !

Sin duda el metodo de combinar correspondencia es el mas adecuado aunque si
nada sencillo de hacer, pero no imposible, y una vez configurado la primera vez
las siguientes son pan comido, si te interesa contactame a ...

1) creo que te perdiste la interpretacion de esta parte de la consulta original...
"El problema es que cuando voy a imprimir cada hoja o cartulina de 25 etiquetas"
"debo indicar manualmente en las primeras 25 filas las productos que deseo que tengan etiqueta"
"y como esto depende del orden de los productos en la hoja compras"
"y de la cantidad de productos comprados que muestra la columna cantidad comprada de la hoja compras ..."

2) despues de lo anterior...
me gustaria si comentas el "como" hacer una combinacion de correspondencia (en word)
que repita n_etiquetas de un mismo campo combinado
cuidando que el formato no exceda de las 25 etiquetas disponibles en el papel (engomado ?)
y continue hasta agotar los registros (IdCompra) del origen de la combinacion de correspondencia -???-

(repito): creo que solo te hace falta analizar con mas detenimiento el objetivo final de quien consulta -?-

saludos,
hector.

hola chicos,



disculpad que me meta, pero el tema me interesa bastante, aunque he de reconocer que no he llegado a meterle mano nunca



realmente la consulta es principalmente para Hector, a raíz de algunos de sus comentarios [y de cara a descartar
volverme loco en el intento]

2) después de lo anterior... me gustaría si comentas el "como" hacer una combinación de correspondencia (en Word) que
repita n_etiquetas de un mismo campo combinado cuidando que el formato no exceda de las 25 etiquetas disponibles en el
papel (engomado ?) y continue hasta agotar los registros (IdCompra) del origen de la combinación de
rrespondencia -??

hola Hector, a la espera de desguazar tu codigo para entenderlo, permíteme que te haga algunas consultas sobre lo
puntualizado por ti en este ultimo mensaje. Sobre todo para, si no es posible, olvidarme de ello.



el tema de la impresión de etiquetas de productos en base al stock/pedido/etc reflejado en un campo de una tabla fue
(junto a los formateos y gestión de inventarios [lo mismo hasta te acuerdas de mi 1er. mensaje por estos pagos]) uno de
los motivos iniciales de mi actual adicción a vba.



pero me temo que mi incapacidad de centrarme en algo hasta el final y/o por mucho tiempo me ha hecho tenerlo +/-
olvidado, a pesar de que posiblemente seria de las pocas cosas que actualmente me serian de utilidad [materialmente
hablando] en lo que a VBA se refiere (aunque he de confesar que también ha influido en mi 'relajacion' la adquisición de
una etiquetadota con software propio, aunque horrible y limitado/limitante hasta la exasperación)



bueno todo este rollo es porque este hilo me ha hecho pensar en retomar el tema, pero la vía por la que siempre había
pensado que quizás podría haber alguna posibilidad (aparte de algo parecido <remotamente pero en la misma tónica> a tu
propuesta ), era precisamente la 'combinacion' de tablas y 'combinar correspondencia'.



al ver tu respuesta empiezo a pensar que no debe de ser tan fácil. Antes de tener la etiquetadora solía hacer las
etiquetas por dos vías (tres con la del boli.je, je..),



(NOTA: en mi caso suelo trabajar con etiquetas de 4 o 5 cm x 2 cm como mucho, e incluso bastante mas
pequeñas (en los casos que comento se trata de etiquetas autoadhesivas que vienen en DINA 4, y dependiendo del tamaño de
la etiq. agrupadas en x columnas por y filas))



1ª) mediante el ajuste vía prueba error que comentabas y rellenando los registros con una macro que llenaba
tantas celdas como etiq. hubiera que imprimir por registro, pero las ultimas filas acababan siempre descuadradas, con el
consiguiente desperdicio de etiquetas



2ª) usando sobres y etiquetas en Word, creando un nuevo documento de etiquetas bien sobre un modelo/marca ya
integrado (pej. aply 1284) o personalizándolo. En este caso el desperdicio de etiquetas es mínimo, pero tenia que
rellenar (como Darío) a base de copiar/pegar registro a registro tantas veces como fuese necesario



en fin, que siempre había puesto mis esperanzas en que fuese posible una especie de combinación de ambos métodos, es
decir, rellenar las etiquetas de Word mediante un macro.

hoy he estado por 1ª vez echándole un ojo a algunos objetos/propiedades/métodos de VBaWord y aunque tras leer tu mensaje
me han entrado las dudas, hubiera pensado que quizás seria posible [curiosamente lo que me ha parecido que quizás
tendría(/¿podría?) que usarse son el objeto, propiedad y método Range, <y quizás también cell/s y Row y Column>. pero de
Word]



bueno, resumiendo, todo este rollo para estas dudas (no tengo ni idea de Word, así que si digo alguna burrada, lo
siento):



1º ¿Seria posible rellenar las etiquetas de un documento de Word con el contenido de una tabla?



2º de no ser así, ¿lo seria con los ítems de una lista de Word con párrafos numerados? y de ser esto posible ¿Cómo se
podría rellenar dicha lista desde una tabla de excel, haciendo corresponder la numeración de los párrafos con cada
registro x su nº de veces?



3º ¿crees que existe alguna forma +/- accesible para realizar algo parecido?



bueno, si puedes/podéis aclararme un poco el tema y por donde ir mirando (o si simplemente saldrá mas caro el caldo que
las albóndigas ... ), seguramente me ahorrare algún que otro coscorrón



un saludo

y gracias en cualquier caso

Ivan