Marcial C. C.

Prueba esta fórmula poniendo tus rangos, yo supongo que las fechas están en la columna A y los Montos en la columna B. =PROMEDIO.SI.CONJUNTO(B1:B21;A1:A21;">=" & HOY()-180;A1:A21;"<=" & HOY()) Si te ha valido la respuesta.

Esto hace lo que pides: Sub Crear_Hojas() Dim hoja As Worksheet 'Por Marcial Castro Set h1 = Sheets("DATOS") Set h2 = Sheets("DATOS QUÍMICOS") 'Recorremos la hoja DATOS For t = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row If h1.Cells(t, 2) =...

Es posible, por ejemplo, sabiendo el nº de serie de los discos duros y que al abrir el archivo lo compruebe, si no es alguno de los discos permitidos, cierra Excel. De todas formas, con conocimientos avanzados se podría desproteger el código, y...

José Manuel, tienes que saber que en Excel, si las horas a sumar, las tienes en una celda con formato número o general, el numero 1 son 24 horas, es decir que cuando las sumes a la fecha y hora que tienes en la columna A, debes de dividirlas por 24....

Si te entendí bien y lo que quieres es copiar los datos de la hoja Enero a la nueva hoja creada, utiliza este código: Sub Nueva_Antigua() hoja_Nueva = (InputBox("Ponga el nombre de la NUEVA HOJA")) & hoja_Nueva Hoja_Antigua = (InputBox("Ponga el...

Hay que distinguir entre la cadena vacía, que es devuelta por la pulsación del botón de Cancelar y cuando el contenido del InputBox es blanco y pulsamos el botón de Aceptar. Para hacerlo necesitamos de una función Api como es StrPtr Quedaría así:...

Es posible que el error se deba a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nada por borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el...

Utiliza la función DIAS.LAB que en VBA es NetworkDays : n = Application.WorksheetFunction.NetworkDays(FechaInicio, FechaFin) Si te ha valido la respuesta.

Cuando trabajes con hojas protegidas y macros, lo mejor es desproteger la hoja antes de ejecutar la macro, y volver a proteger la hoja cuando se acabe la macro, de esta forma: Sub Insertar() Dim fila As Integer 'Desprotegemos la hoja'...

Hazlo así, celda por celda en el rango: Private Sub Worksheet_Change(ByVal Target As Range) For Each cel In Target cel.Value = UCase(cel) Next End Sub Si te ha valido la respuesta.