Generar etiquetas  para productos en Excel

El día de hoy quiero mostrarte como puedes hacer un archivo para que genere las etiquetas de tus productos de forma automática y controlar mejor el inventario de tu negocio.

En este archivo utilizaremos la función BUSCARV o CONSULTAV para generar una alternativa de etiquetas automáticas y también utilizaremos una macro como segunda alternativa. 

LA SEGUNDA ALTERNATIVA TE CREA LAS ETIQUETAS SEGÚN LA CANTIDAD DESEADA.

El código de la macro para el ejercicio es el siguiente:

*********************************************************************

Sub Macro1()

Dim REPETIR As Integer

REPETIR = Range("d1")

Range("A2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

For Q = 1 To REPETIR

Range("A65000").End(xlUp).Offset(1, 0).Select

ActiveSheet.Paste

Next Q

Application.CutCopyMode = False

Range("A1").Select

REPETIR = Range("d1")

Range("B2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

For Q = 1 To REPETIR

Range("B65000").End(xlUp).Offset(1, 0).Select

ActiveSheet.Paste

Next Q

Application.CutCopyMode = False

Range("A1").Select

End Sub