Estado contable SCZ

Después de cada entrada de datos, ejecute la siguiente macro:

Subsymbol ()

Marcar r como un número entero

Marcar p como un número entero

Dark s como una cadena

Const scz = "_in production"

r = 2

s = cell(r, 1)

mientras s<>""

p=instrumentos(s,scz)

Si celdas(r, 2)<>"" Entonces

Si p = 0, entonces

s = s + scz

Si... terminará

Otros

Si p & gt0, entonces s = left(s, p - 1)

Terminará si...

Celda(r, 1) = s

r = r + 1

s = celda(r, 1)

fila

conector final