Sumar si el valor de la celda es menor a cero
Publicado por Tommy (3 intervenciones) el 04/01/2019 04:14:25
Estimados,
Estoy intentando hacer en vba excel una funcion que me sume los valores que hay en una fila, si el valor de la primera celda a evaluar es <0 que sume esa celda con la siguiente celda luego que revise si ese resultado es <0 y si es <0 que lo sume con la celda siguiente y si no la variable resultado sera igual a la celda siguiente que sea <0 de la fila evaluada. Espero haberme explicado bien, las gracias anticipadas!
Este es el codigo con el que he tratado.
Estoy intentando hacer en vba excel una funcion que me sume los valores que hay en una fila, si el valor de la primera celda a evaluar es <0 que sume esa celda con la siguiente celda luego que revise si ese resultado es <0 y si es <0 que lo sume con la celda siguiente y si no la variable resultado sera igual a la celda siguiente que sea <0 de la fila evaluada. Espero haberme explicado bien, las gracias anticipadas!
Este es el codigo con el que he tratado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function miSuma(miRango as Range) as long
Dim miCelda as Range
Dim cont as Integer
Dim resultado as Long
For each miCelda in miRango
cont=cont + 1
If miCelda.Value<0 then
resultado= miCelda.Cells(0,cont -1)+miCelda.Cells(0,cont)
resultado=resultadoElse
resultado = miCelda. Cells(0,cont).Value
end If
Next miCelda
miSuma=resultadoend Function
Valora esta pregunta
0
