Combinatoria

[manuelfr1]

Buenas tardes, estoy intentando programar una macro que haga una combinación de valores pero no se exactamente como plantearlo.
Os pongo en situación:
Tengo una serie de cargas (F1, F2, F3...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

solo da click en el boton y ve si es lo que ocupas

 

[manuelfr1]

hola y gracias por la ayuda, pero no exactamente, puesto que también habría que combinar 10*15 + 20*25 + 30*15 por ejemplo.
Deberían salir todas las combinaciones que se ven en la parte derecha...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[hc3115]

¿Pruebas el siguiente código?

Option Explicit
Option Base 1

Sub obt_comb()
Range("M1").CurrentRegion.ClearContents
On Error GoTo errores
Dim f%, c%, t&, i%, j&, s$, ss, x$, xx, y$, L%...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[manuelfr1]

¿Pruebas el siguiente código?

Option Explicit
Option Base 1

Sub obt_comb()
Range("M1").CurrentRegion.ClearContents
On Error GoTo errores...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[manuelfr1]

hola otra vez, la verdad es que la anterior solución, en cuanto hacía un par de cambios, me daba errores y colapsaba la ejecución.
Creo que una solución sería algo similar a esto (adaptando la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí