bigpetroman

amigo disculpa de verdad, pero NO veo ninguna complicacion agregar las n cantidad de columnas que te faltan y copiar las formulas, te faltan 100 columnas?, pues agrega las 100 columnas y copias las formulas de la ultima columna con formulas y listo, de verdad no creo que necesites que alguien te haga eso

Amigo, simplemente escribe los nombres en el encabezado de las columnas y listo

Saludos @SpheXz, revisa el anexo. 2016_sm.xlsx

Saludos nuevamente @Haplox y @SpheXz, asi se entiende mejor lo que se quiere, te dejo un archivo, es el mismo 2016 pero le elime muchas filas para que pesara menos. son simples formulas, lo que tienes que es arrastrar hacia abajo en la hoja 2 y listo, la unica columna que no tiene formulas es la AA que no se que va alli, espero que sea lo que necesitas Suerte 2016_sm.xlsx

Saludos a ambos @Haplox y @SpheXz, yo intenten enteder el archivo pero no entendi mucho. no se, yo creo que falta una pequeña explicacion de que hace el archivo, como se cargan los datos para tratar de entender mejor, yo creo que las 4 columnas (mañana, tarde, noche, etc), no son necesarias, tal vez con una sola donde aparezca el rango a que pertenece cada hora sería necesario, pero repito, es necesario entender un poco el funcionamiento del archivo, como se cargan los datos, exactamente cual resultado se quiere (con un ejemplo) para poder ayudar. suerte

amigo, el mensaje te dice que es posible que el nombre de la hoja supere los 31 caracteres, en tu macro colocas el nombre del libro y el nombre de la hoja a la hoja nueva, pues puede ser que si estes superando esa cantidad de caracteres en el nombre de la hoja Suerte

gracias @Haplox, tan facil y de verdad que no lo veia, gracias

saludos @Diekodelkorral, baje el archivo, uso excel 2013, e inicialmente ENERO no actualizaba la grafica y era porque la celda de la sumatoria tenia formato texto, lo acomode y listo, tal vez sea algo de eso suerte

Buenas noches, amigos, como hago para actualizar un aporte mio de Ideas y aportes?, fue algo de Enero y quiero actualizar, pero de verdad que NO veo por ningún lugar la forma de editar el tema gracias,

Saludos @Tamara, seria mucho mas facil si subes el archivo a drive, dropbox, etc; y por el tema de la sensibilidad de tus datos, pues muy facil, coloca datos ficticios, y te aseguro que lograras solucionar tu problema de una vez, suerte

@Pirtrafilla, realmente cuando se trabaja con macros, se puede hacer sin necesidad de estar bloqueando y desbloqueado la hoja constantemente. yo por lo general cuando abro el archivo ejecuto este código wLaHoja.Protect Password:="miclave", UserInterfaceOnly:=True esto permite que las macros realicen cambios en las hojas así las celdas esten protegidas y evita eses problema que tienes suerte

no, eso lo hace solo

Saludos @jaimecruz, te dejo un ejemplo que realice, funciona con la hoja1, la macro está en el modulo3 lo único malo que yo veo de tu proceso, es que al restablecer el filtro, se filtran por los valores, no se coloca el filtro original que tenia, por ejemplo, valores mayores a 40, tu filtro al final filtraria 41, 80, 100, etc., pero NO coloca el criterio > 40 como debería ser, en el ejemplo que estoy dejando, si lo hace. no realice muchas pruebas, pero creo que está ok Suerte Archivo con autofiltros.xlsm

amigo @Sbl, este sería el código de tu botón Private Sub CommandButton1_Click() Dim w1 As Workbook Dim s1 As Worksheet Dim lastRow, erro As Long Set w1 = ThisWorkbook Set s1 = w1.Sheets("hoja1") lastRow = s1.Range("A" & Rows.Count).End(xlUp).Row If CheckBox1.Value = True And CheckBox3.Value = True Then MsgBox ("Erro. Preencha todos os dados") ElseIf CheckBox1.Value = False And CheckBox3.Value = False Then MsgBox ("Erro. Preencha todos os dados") ElseIf CheckBox4.Value = True And CheckBox5.Value = True Then MsgBox ("Erro. Preencha todos os dados") ElseIf CheckBox4.Value = False And CheckBox5.Value = False Then MsgBox ("Erro. Preencha todos os dados") ElseIf TextBox7.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox8.Value = "" Then MsgBox ("Erro. Preencha todos os dados") ElseIf CheckBox4.Value = True And TextBox4.Value = "" Then MsgBox ("Por favor. Especificar la avaria") Else If IsNumeric(TextBox7.Value) Then 'desbloquear la hoja s1.Unprotect "excel" If CheckBox1.Value = True And CheckBox3.Value = False Then s1.Cells(lastRow + 1, 1) = "Linea 1" If CheckBox1.Value = False And CheckBox3.Value = True Then s1.Cells(lastRow + 1, 1) = "Linea 2" If CheckBox4.Value = False And CheckBox5.Value = True Then s1.Cells(lastRow + 1, 3) = "Corretivo" If CheckBox4.Value = True And CheckBox5.Value = False Then s1.Cells(lastRow + 1, 3) = "Planeado" s1.Cells(lastRow + 1, 4) = TextBox7.Value s1.Cells(lastRow + 1, 5) = TextBox5.Value s1.Cells(lastRow + 1, 7) = TextBox4.Value s1.Cells(lastRow + 1, 6) = TextBox6.Value s1.Cells(lastRow + 1, 2) = TextBox8.Value 'bloquear la hoja nuevamente s1.Protect "excel", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True s1.EnableSelection = xlUnlockedCells Unload Me Else MsgBox ("Rellene corretamente os dados. A duración es un numero") End If End If End Sub antes de cargar los datos, desbloqueas la hoja, luego de cargado los datos, bloqueas la hoja suerte

Saludos amigo @Pirtrafilla, revisando un poco tu codigo, no veo mayor problema en esa macro especificamente, lo único que deberias agregar es esto al principio de tu macro Application.Calculation = xlCalculationManual debajo de Application.EnableEvents = False y luego al final Application.Calculation = xlCalculationAutomatic despues de Application.EnableEvents = True Como tus hojas tienen formulas, Excel recalcula todo cada vez que realizas la actualización de una celda, si tienes muchas hojas y muchas formulas allí puede generarse una lentitud por el recalculo continuo de las celdas Suerte