Buscar y calcular usando VBA

Botón de subcomando privado 1_Click()

Atenuar co1, co2, co3, co4 son números enteros

co1 = rango (" A3 ")

co2 = rango ( " d3")

co3 =range("e3")

co4 =range("f3")

Representar a, b, c, r es un entero

r = rango("A65536"). final (xlArriba). fila

c = 0

Para a = 1 a r

si numérico(celda(a,CO3)) = verdadero, y (celda (a, CO1) como "*no incluido en la deducción del precio total*"_

Orceldas (a, co1+1) como "*no incluido en la deducción del precio total*") entonces

Celda(a,co3+1) = -1 *Celda(a,co3)

Otro

Si celda(a,1). MergeCells = False Entonces

Para b = 1 a 200

Si la celda (a, co1). Texto = celda(b,co2). Texto entonces c = c + 1

Si celda(a, co1 + 1). Texto = celda(b,co2+1). Texto entonces c = c + 1

Si c & gt= 1 entonces celda(a,co3) = celda(b,co4):salir

siguiente b

p >

Si c = 0, entonces

Celda(a, co3) = "Nuevo elemento"

Entonces si no c = 1

Celdas (a , co3).Font.ColorIndex = 10

Terminará si...

c = 0

Si IsNumeric(Cells(a, co3)) = True, IsNumeric(Cells(a, co3 - 1)) = True, Cells(a, 1). MergeCells = False _

Entonces celda(a, co3 + 1) = celda(a, co3) * celda(a, co3 - 1)

Si... terminará

Siguiente a

Conector final