Casuistica

hola, ramon ?

Necesito desarrollar todas las combinaciones posibles entre articulos, tallas y colores.
Tengo unos 300 articulos, unas 15 tallas y 8 colores.
Tengo la descripcion de cada uno y lo que me gustaria es referenciar todas las combinatorias posibles
(concatenando los textos y creando una nueva descripcion), para importarlas a un programa de facturacion.
... no se trata de hallar el nº de combinaciones posibles con una de las funciones de excel
sino de desarrollarlas en modo texto, con algo tipo macro o similar...

o sea... necesitas elaborar un listado de ~36000 registros ? -> 300 [articulos] * 15 [tallas] * 8 [colores]
lo que dejaria un listado de 120 registros para cada uno de los ~300 articulos [15 tallas * 8 colores] -?-

1) pon las descripciones de los ~300 articulos [p.e.] en el rango 'A1:A300' de la hoja1
pon las ~ 15 tallas [p.e.] en el rango 'B1:B15' de la misma hoja1
pon los ~8 colores [p.e.] en el rango 'C1:C8' de la misma hoja1

2) asignale un nombre a cada rango [p.e.: A1:A300 = Articulos, B1:B15 = Tallas, C1:C8 = Colores]

3) copia/pega las siguientes lineas en un modulo de codigo 'general', y ejecutas la macro [p.e.] desde una hoja 'limpia' [hoja2 ?]

Sub Elabora_listado()
Dim Articulo As Integer, Talla As Byte, Color As Byte, Concatena As String, Fila As Long
Application.ScreenUpdating = False
Concatena = ", " ' <= pon aqui el [o los] caracter/es para 'concatenar' el listado '
With Worksheets("hoja1") ' <= pon aqui el nombre de la hoja donde estan los listados '
For Articulo = 1 To .[articulos].Rows.Count
For Talla = 1 To .[tallas].Rows.Count
For Color = 1 To .[colores].Rows.Count
[a1].Offset(Fila) = .[articulos].Cells(Articulo) & _
Concatena & .[tallas].Cells(Talla) & _
Concatena & .[colores].Cells(Color)
Fila = Fila + 1
Next
Next
Next
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Héctor Miguel ha escrito:

hola, ramon ?

Gracias Héctor M.

Voy a poner tu código como salvapantallas de mi ordenador.
gracias, me ha resultado muy útil y me ha ahorrado muchas horas de
trabajo.

Saludos.

P.D. por cierto, como sabes que me llamo Ramón?

hola, Ramon !

P.D. por cierto, como sabes que me llamo Ramón?

sera porque asi lo indica tu direccion de correo ? :D

saludos,
hector.