formula suma

01/06/2005 - 02:02 por Max | Informe spam
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
 

Leer las respuestas

#1 KL
01/06/2005 - 02:42 | Informe spam
Hola Max,

No se si el siguiente macro es lo que buscas.

Saludos,
KL


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

Preguntas similares