Luis_P

'4c7569735f50 Esta linea te indica cuantas celdas "no vacias" existen en la hoja 1 Application. WorksheetFunction. CountA(sheets(1). Range("A:IV")) Esto para un libro xls si usas xlsx solo cambia la referencia IV por el nombre de la ultima columna...

Si necesitas dejarlo en manual, la unica solucion es utilizar le metodo "calulate" pero enfocado a la celda especifica en donde "vive" la funcion Ejemplo: '4c7569735f50 Private Sub CommandButton1_Click() tu_funcion (Range("d7"))...

Una ves posicionado sobre la celda que ya indicste que puedes encontrar, entonces: Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Select Selection.EntireRow.Delete Asi toma todas...

'4c7569735f50 Prueba así: [a1].FormulaR1C1 = _ "=INDEX(Mov_Central!R[-3]C:R13C8,MATCH(MAX(Mov_Central!R[-3]C[6]:R[6]C[6]),Mov_Central!R[-3]C[6]:R[6]C[6],0),3)" Así asignas la función a la celda a1

text1= application.WorksheetFunction.Sum(range("A:A")) Asi le pasas la suma de la columna A al text1

Bueno el evento change se dispara con cada nuevo "cambio" en el control, por lo que te sugiero implementar un if then en funcion del largo de la cadena Es decir if len(text1)=8 then pasar al listbox Asi si el contenido del text es inferior a 8...

en vez de On Error GoTo error utiliza On local Error GoTo error

'4c7569735f50 Prueba asi: =si(si((b1-c1)<0;(b1-c1)*-1;(b1-c1))<=5;1;2)

Vas a tener que hacer un sub independiente para ello en el que una vez terminada la carga de la grilla haga lo sgte: 1.- Inserte nueva columna 2. Mediante bucle recorra cada una de las filas de la grilla y ponga el valor de la division en la columna...

Declara una variable public y asignale su valor +1 en cada check que te interesa contar Ejemplo En el evento click del check pondrias cuenta=cuenta+1 Y asi con los demas que necesitas, al ser cuenta una variable public, su alcance es global en todo...