............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Suma de celdas que entreguen el Valor Buscado

Ver el tema anterior Ver el tema siguiente Ir abajo

Suma de celdas que entreguen el Valor Buscado

Mensaje por desnik el Jue Nov 26, 2009 10:55 pm

Estimados Señores

llevo dias tratando de encontrar una formula o un macros que me pueda ayudar.

la idea es que encuentre en una columna celdas que sumadas me entreguen el numero que busco.

EJ. busco el numero 211, y en la columna tengo numeros como el 1,12,30,43,55,etc.

la idea es que al buscar mi numero me copie en una o mas columnas de la misma hoja las posibles combinaciones de numeros que sumados (sin repetir la combinacion) el numero que busco.

hasta el momento he logrado realizar lo siguiente pero no se como aplicarlo a mas de 2 numeros, siendo la idea poder aplicarlo a 10 o 20 numeros.

Sub Prueba()

Dim Datos As Variant
Dim Total#, x#, y#

Application.ScreenUpdating = False

Total = Range("C1")

Datos = Range("B1", Range("B1").End(xlDown))

For x = LBound(Datos) To UBound(Datos)

For y = x To UBound(Datos)

If Datos(x, 1) + Datos(y, 1) = Total Then

Range("D" & Cells.Rows.Count).End(xlUp).Offset(1) = Datos(x, 1)

Range("E" & Cells.Rows.Count).End(xlUp).Offset(1) = Datos(y, 1)

End If

Next y

Next x

Application.ScreenUpdating = True

End Sub

Ojala y me puean ayudar.


Saludos

desnik

Masculino Cantidad de envíos : 1
Edad : 37
Ciudad - Pais : chile
Version de Excel : 2007
Fecha de inscripción : 26/11/2009

Volver arriba Ir abajo

Re: Suma de celdas que entreguen el Valor Buscado

Mensaje por GalileoGali el Jue Nov 26, 2009 11:27 pm

aca tenes un ejemplo:
[Tienes que estar registrado y conectado para ver este vínculo]
para mas numeros combinados y mas extensa la columna, puede crecer el teimpo en forma exponencial

Me falta encontrar la solucion de Harlan Grove

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Suma de celdas que entreguen el Valor Buscado

Mensaje por GalileoGali el Vie Nov 27, 2009 8:21 am

Este es el mejor algoritmo que conozco

[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Suma de celdas que entreguen el Valor Buscado

Mensaje por Contenido patrocinado Hoy a las 11:26 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.