d2enri

Lo ideal es hacerlo con código vba que al introducir valor en H4 te ponga la fecha en donde tu quieras si me dices los rangos que quieres te paso el código osea si solo a de ser en H4 o más celdas y si la fecha la quieres en la columna E o en otra

Este código te copia toda la fila de la celda que tengas seleccionada y te la pega en la hoja 2 debajo del ultimo dato que tengas luego te elimina la fila de la hoja1 Sub copiar_eliminar() Selection.EntireRow.Copy...

Si claro que se puede dime los nombres de las hojas en que celda y que valores y los rangos a imprimir y te creo el código Si lo prefieres pásame tu archivo d2enrique arroba hotmail.com

Inserta este código en un modulo y luego lo ejecutas Sub Elimina_filas() Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$B$1500").AutoFilter Field:=2, Criteria1:="MADRID" Rows("2:1500").Select Selection.Delete Shift:=xlUp...

Confírmame si los datos los tienes así A B C D E 8,61E-04 9,54E-04 5,41E-04 -3,71E-05 1,08E-04 si es asi dime en que columna los quieres poner ó si lo quieres en otra hoja y te creare un codigo que te realice lo que pides

Pásame más información como hasta donde se llenan los rangos de que columna y si los quieres igual en la hoja 2 y si los rangos de la hoja 1 serán siempre los mismos Quiero entender que deseas insertar ciertos datos en una fila de la hoja 1 y...

Esta fórmula hace lo que pides =PROMEDIO.SI(Hoja2!A1:A10;A2;Hoja2!C1:C10) si los nombres de hoja son los que has dicho =PROMEDIO.SI(Promedio Kilos!A1:A10;A2;Promedio Kilos!C1:C10) Pruébalas y ya me cuentas si era eso lo que querías

Si no entiendo mal lo que necesitas es tramar una columna eso lo puedes hacer con formatos de celda te sitúas en la columna que quieras la trama y pulsas botón derecho ratón escoges formato de celdas y en la ventana que se te abrirá escoge relleno...

Cambia tu código por este Private Sub Worksheet_Change(ByVal Target As Range) datos = "$7:$15" If Not Application.Intersect(Target, Range(datos)) Is Nothing Then ActiveCell.Offset(0, -1).Activate ActiveCell.Interior.ColorIndex = 5...

Lo que pides seria esto Private Sub Worksheet_Change(ByVal Target As Range) If Range("A2").Value = 57 Then Range("A2:B2").Select Selection.Cut Range("C1").Select ActiveSheet.Paste End If End Sub Este código debes pegarlo en el código de la hoja si no...