Ver Mensaje Individual
  #9 (permalink)  
Antiguo 16/05/2006, 17:24
Avatar de jsegundo
jsegundo
 
Fecha de Ingreso: noviembre-2003
Mensajes: 65
Antigüedad: 21 años, 3 meses
Puntos: 0
Bueno, me encontre con un codigo de un tutorial y tome lo que crei me podia servir para lo que estaba buscando, la diferiencia con lo que yo queria es que en vez de utilizar una celda inicial, evaluo un rango de celdas como primer parametro y como segundo parametro la cantidad de columnas a sumar

Por ejemplo:
=sumcl(D11:O11,3) me daria como resultado 6
Del rango A2 a J2, sumaria D11+E11+F11 ( 1 + 2 + 3 ) y me devolveria el valor en la celda donde mande llamar la formula


Código:
Public Function sumcl(R As Range, y As Integer)
    Dim suma As Double
    suma = 0
    For i = 1 To y
        suma = suma + R(1, i)
    Next i
    sumcl = suma
End Function
Espero y esto le ayude a alguien igual que a mi, pero en lo particular si me hubiera gustado saber como manejar la fila y columna de una celda actual, pero en fin............otro dia sera!

Saludos!