Kl macro

De nuevo con mis preguntas
He probado el macro que me enviaste y la verdad es que no
lo podia creer cuando vi lo que queria (osea la suma de 4 nr maximo uno de
cada columna)
pero se me presento otro problema cuando tengo varios valores en cada
columna
obtengo una lista com demasiados resultados y se demora gran catidad de
tiempo,
quisiera saber si se pudiese modificar este macro de una forma que mejor
me
busque la suma entre 2 valores (Elegiendo siempre 4 numeros uno de cada
celda
precisamente como anteriormente)quiero decir que en dos celdas pueda dar
un
valor minimo y otro maximo y que me muestre la lista con los resultados ,
supongo que de esta forma sera mas rapido el procedimiento ya que seran
menor
cantidad de resultados.
Gracias por tu rapidez en contestar y con tan buenos
resultados.
Max








Nesito un macro para la siguiente operacion:

A B C D

A1=1 B1=2 C1=3 D1=4
A2=5 B2=6 C2=7 D2=8
A3=9 B3 C3 D3
Deseo obtener en una lista de todos los resultados de la suma de 4 numeros
pero maximo un numero de cada columna.Alguien podria ofrecer algun macro
para
esto.
De ante mano un millon de gracias. Max
Sub test() Ufila = Cells(Rows.Count, "A").End(xlUp).Row
Contador = 0
For i = 1 To Ufila
For j = 1 To Ufila
For k = 1 To Ufila
For l = 1 To Ufila
Contador = Contador + 1 Cells(Contador, "G")
= _
Cells(i, "A") + Cells(j, "B") _
+ Cells(k, "C") + Cells(l, "D")
Next l
Next k
Next j
Next i
End Sub

Hola Max,

Se podria intentar, pero creo que no vas a ganar mucho mas en la velocidad
porque aunque devualva menos resultados, procesar va a procesar todos igual.

Saludos,
KL


"Max" wrote in message
news:
> De nuevo con mis preguntas
> He probado el macro que me enviaste y la verdad es que no
> lo podia creer cuando vi lo que queria (osea la suma de 4 nr maximo uno de
> cada columna)
> pero se me presento otro problema cuando tengo varios valores en cada
> columna
> obtengo una lista com demasiados resultados y se demora gran catidad de
> tiempo,
> quisiera saber si se pudiese modificar este macro de una forma que mejor
> me
> busque la suma entre 2 valores (Elegiendo siempre 4 numeros uno de cada
> celda
> precisamente como anteriormente)quiero decir que en dos celdas pueda dar
> un
> valor minimo y otro maximo y que me muestre la lista con los resultados ,
> supongo que de esta forma sera mas rapido el procedimiento ya que seran
> menor
> cantidad de resultados.
> Gracias por tu rapidez en contestar y con tan buenos
> resultados.
> Max
>
>
>
>
>
>
>
>
> Nesito un macro para la siguiente operacion:
>
> A B C D
>
> A1=1 B1=2 C1=3 D1=4
> A2=5 B2=6 C2=7 D2=8
> A3=9 B3 C3 D3
> Deseo obtener en una lista de todos los resultados de la suma de 4 numeros
> pero maximo un numero de cada columna.Alguien podria ofrecer algun macro
> para
> esto.
> De ante mano un millon de gracias. Max
> Sub test() Ufila = Cells(Rows.Count, "A").End(xlUp).Row
> Contador = 0
> For i = 1 To Ufila
> For j = 1 To Ufila
> For k = 1 To Ufila
> For l = 1 To Ufila
> Contador = Contador + 1 Cells(Contador, "G")
> = _
> Cells(i, "A") + Cells(j, "B") _
> + Cells(k, "C") + Cells(l, "D")
> Next l
> Next k
> Next j
> Next i
> End Sub
>