James Bond

La instrucción que buscas es esta .Columns(col).Formula = " "= 1+SUMPRODUCT((" & rango & "=" & Celda & ")*((" & rango1 & "+row(" & rango1 & ")/10000)>" & celda1 & "+row(" & celda1 & ")/10000))" .Columns(col).value=.Columns(col).value

Por fórmula no se pueden colorear celdas para eso ocupas una macro o una macro eventos, lo más cercano que se puede hacer con fórmulas es lo siguiente

Usa una plantilla así, la fórmula que se usa en al columna eta en la celda U7, la la fórmula para restar en la columna POR esta en la columna V, cada que pongas una X en el medicamento este lo descontara de la existencia inicial

Solo como comentario las protecciones que te dan pueden con un poco de conocimiento o consultando en la internet ser vulneradas y es bastante simple hacerlo, no digo que no uses estas recomendaciones solo te digo que no son 100% seguras y lo se...

Modificando tus dos macros queda así, los select no tiene caso que los pongas Sub filtra() Application.ScreenUpdating = False With Sheets("Registro factura") .Unprotect Password:="XXXXXXXX" Range("a3:o3").AutoFilter Range("K4").Select .Protect...

La instrucción que ocupas es an ambos casos la instrucción currentregion busca todas las columnas con datos hasta encontrar una vacía y hacia abajo hasta encontrar la ultima fila con datos sub selecciona_rango() range("a1").currentregion.select end...

Un conjunto de celdas en concreto puede ser de A1 a AAA1000000, tienes que ser más especifico por ejemplo: Quiero que cuando A1 tenga la palabra casa entonces se copie de la hoja1 el rango a1 hasta e4 y se pegue en la hoja2 a partir de la celda C2 y...

En el formulario 1 en vez de tener las instrucciones dentro de un command button te posicionas al final del código y colocas tus instrucciones así Private Sub CommandButton2_Click() corre_programa End Sub Private Sub CommandButton1_Click()...

Esta macro cambia los últimos 2 puntos, esta diseñada para procesar la información empezando en la celda A1 si tu información esta en otra celda solo cambia la primera línea Sub cambia_simbolos() Set datos = Range("a1").CurrentRegion With datos filas...

La primera macro trae el archivo texto a Excel, el segundo hace una búsqueda sobre el texto concatenado y una vez que lo encuentra hace una separación y los coloca en la celda B1, C1 y D1, si ni usas las primera macro entonces cambia el range("a4")...