Elsa Matilde

En respuesta anterior dejé la macro para todas las hojas con la misma clave. Supongamos que haya alguna hoja que no quieras desproteger, podrías omitirla de este modo. En este caso omito la hoja llamada PORTADA: Sub desproteccion2() 'x Elsamatilde...

Si la clave es la misma para todas las hojas, esta sería la macro que se coloca en un módulo: Reemplaza el texto 'tu_clave' por la que corresponda. Sub desproteccion() 'x Elsamatilde For Each Sh In Sheets Sh.Unprotect "tu_clave" Next Sh End Sub Sdos...

1 - En primer lugar debes separar el contenido de B2 en columnas. Pero si se trata del resultado de una fórmula debes pasarlo como valor a otra celda auxiliar. 2- Para separar en columnas, selecciona la celda (B2 o la aux) y desde menú Datos, Texto...

Corriendo tu macro se recibe el siguiente mensaje: Observa que le estás enviando a CELINI el valor de la celda D en fila indicada por la variable: CELINI = Range("D" & PRIMERAFILACAJA) Por lo tanto, si lo que deseas es sumar hasta la PRIMERAFILACAJA...

Intenta con esta fórmula. Evalúa el primer caracter de la celda A2 y según eso es el texto devuelto: =SI(IZQUIERDA(A2;1)<"I";"AM";"PM") Considerá que estoy utilizando punto y coma como separadores, en lugar de coma.

Cuando un código genera error, deben comentar el tipo de error y en qué línea se produce. Así que imaginaré algunas opciones posibles: En el objeto HOJA donde quieras que se realice esta tarea, seleccioná el evento Change para que te quede de este...

Partiendo de la base de que las celdas con fórmulas estarán bloqueadas, es posible recorrerlas limpiando solo aquellas 'no bloqueadas'. Por ejemplo: Sub limpiaHojas() For Each celdita In Range(rgo) If Not celdita.Locked Then celdita.Select Selection...

La siguiente instrucción colocala en el evento Activate de la hoja Private Sub Worksheet_Activate() Range("A:A").Find(Date, LookIn:=xlValues, lookat:=xlWhole).Activate End Sub Si vas a colocarla en el evento Open del libro, solo se verá la 1ra vez...

En alguna variable, digamos mes_año, debes colocar el nombre de la hoja (*) Y las fórmulas tienen esta sintaxis: ActiveCell.FormulaR1C1 = _ "='[COMISIONES ASERTUS 2017.xlsx]" & mes_año & "'!R[156]C[5]" Atención que ante de R[156]C[5] hay una comilla...

Ya dejé imágenes en la consulta anterior para que observes que se cargan bien las horas y fechas con el código enviado. Seguramente aún no agregaste esos códigos en el UF de Modificar. Bien, ¿cómo mejorar la programación? Estos son los errores más...