Excel de inventario de medicamentos

Alt F11 copia el código en el área de código.

Sub abc

Dimensión j, x

Para j=1 al rango(" H60000 "). fin(3). Fila

Para x=1 en el rango("AT60000"). fin(3). fila

si rango("H"ampj) = rango("AT"amp;x) entonces

rango("N"ampj) = rango("AU"amp;x )

Salir para...

Terminará si...

Siguiente x

Siguiente j

Alt F8 seleccione abc para ejecutar la macro.