Victor Rodriguez

Tu línea tiene un par de errores. El primero que el operador no tiene que ser xlANd sino xlOr y el segundo que tiene que ser menores de -40%. Bien escrita es: ActiveSheet.Range("$A$1:$H$4378").AutoFilter Field:=6, Criteria1:=">=40,00%", _...

Supongo que cuando dices el valor de una columna te refieres a una celda. Deberás poner esta macro en la hoja donde quieras que se ejecute y con el evento change: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit...

La función SUMAR. SI. CONJUNTO te podría solucionar el problema. Te dejo un enlace https://exceltotal.com/la-funcion-sumar-si-conjunto-en-excel/

Debes desproteger y proteger la hoja, te quedaría: Sub IMPRIMIR() 'Saca 1 copia en un folio ActiveSheet. Unprotect ("password") Range("H2:N3").Font.ColorIndex = 2 ActiveWindow.SelectedSheets.PrintOut 1, 1 Range("H2:N3").Font.ColorIndex = 1...

No necesitas ninguna macro, pon un filtro y orden a de menor a mayor la columna de las fechas

No estoy seguro de haber entendido el problema, ¿pero has probado de convertir el rango en tabla? Las tablas tienen funcionalidades muy útiles Seleccionas todas las filas y vas a Insertar/Tabla

No es necesario saber el nombre si solo tienes un gráfico, puedes decir que borre el primer gráfico. ActiveSheet.ChartObjects(1).Delete Aqui tienes mas info:...

Las fórmulas siempre son más ligeras que el código, que sólo debe usarse cuando no se puede alcanzar un objetivo mediante las herramientas nativas de excel.

Este código te servirá: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B29")) Is Nothing Then fila = 33 numero = Range("b29").Value Rows(fila & ":" & fila + numero - 1).Insert End If End Sub Debes añadirlo a la...

Puedes escribirme a [email protected]