angelcrisnor

' Así, sin más, no puedes. Excel no es adivino. ' Lo que sí puede saber Excel, para una fecha determinada, es el día de la semana. De esa forma, puedes saber si es un Sábado o un Domingo. No sé si eso te es suficiente. Si es así, es bastante...

' Se pueden hacer muchas cosas para lo que necesitas, pero el siguiente es un ejemplo que te puede servir y que espero que lo puedas personalizar a tu gusto. ' ' 1º MACRO PARA BORRAR UN FICHERO EN UN DISCO (O EN CUALQUIER CARPETA) Te copio más abajo...

Che, resulta difícil ayudarte... Tal y como lo cuentas bastaría con poner en la columna C: =B1-B1 =B2-B1 =B3-B1 ... Y más abajo.... =B40-B40 =B41-B40 =B42-B40 ' Pero seguro que es otra cosa la que necesitas. Prueba a explicarlo mejor y será más fácil...

1º Créate una macro que haga el chequeo. Por ejemplo la siguiente, para que la modifiques a conveniencia: ' ' Sub Chequear_fecha() ' Set hoja = ActiveWorkbook.Sheets("Hoja6") dias = Range("H1").Value - Range("F9").Value If dias = 1 Then MsgBox...

' Puesto que sabes el número de hojas (189). Créate una nuava hoja al final y ejecuta en ella esta macro, donde pongo en negrita el rango a copiar y el número de filas de cada hoja: ' ' ' Sub MacroParaOrdenarDatos() Fila = 1 HojaActual =...

Creo que la solución es tomar la "Hoja1" como hoja activa. Intenta sustituir esto: Worksheets("Hoja1").Select por esto: Set hoja = ActiveWorkbook.Sheets("Hoja1")

Quisiera ayudarte, pero tu texto tiene 1 sola frase cin 1277 letras, 216 palabras, 11 líneas... Descrito de esa forma resulta muy complicado entender tu problema. Intenta esforzarte en explicarlo mejor y será más fácil ayudarte.

Prueba a recuperar el valor de la celda como una cadena de texto. Por ejemplo: cadena = Format(hoja.Cells(fila, columna).Value, "000000") En ese ejemplo está puesto que se formatee con 6 ceros, como el caso que dices, pero tendrás que poner la...

Posiblemente si te explicaras mejor sería más fácil ayudarte.

Utiliza esto por ejemplo para Enero (E22): =MAX(MIN(FECHA(AÑO($C22);E20+1;1)-1;$C22)-MAX(FECHA(AÑO($B22);E20;1);$B22)+1;0) siendo: $B22 --> Fecha Desde $C22 --> Fecha Hasta Para ello tienes que poner encima de cada mes su número: E20 = 1 (Enero) F20...