elda_vinci

Primero es que excel no te dejará nombrar una hoja con el nombre de otra entonces sería interesante que si tiene que tener el mismo nombre que le pongas un número Ejemplo: Maquina, Maquina1, Maquina2 ... Bueno prueba esta macro y me cuentas Sub...

Mi opinión es que la ventana de aviso te la ponga cuando abras el libro Bien para hacerlo con una macro debes de pulsar ALT+F11 y en la ventana de explorador de proyectos meterse en ThisWorkbook. Una vez dentro pega este código: Private Sub...

Por lo que he entendido al sexto trienio te corresponden 6 días y después cada trienio 1 día más, ¿no?. Bien el fallo que veo en tu fórmula es el +1 que debe de ir dentro de los paréntesis por que si no también se sumara cuando el valor sea 6,...

Como no sé como pones el dato para que se oculten todas las columnas excepto las que tu quieres, he supuesto que el valor que quieres visible, lo pones en la celda A1. En la hoja donde quieres que se ejecute, pulsa ALT+f11 y escribes esto: Private...

Aquí te dejo el código para cambiar de solo lectura a normal y luego que lo deje en solo lectura. Lo del inputbox, es un ejemplo rápido, lo que deberías de hacer es crear un formulario y ponerle un textbox y así puedes ocultar lo que pone de...

Pon el la celda C1 la siguiente fórmula =SI(CONTAR.SI($B$1:$B$9;A1)>0;"si existe";"") sustituye el $B$1:$B$9 por el rango que tengas. Ej. $b$1:$b$10000. Y copia la fórmula desde la celda C1 hasta la celda Con. Con esto te contará los valores que son...

Prueba con esto y me cuentas Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then KeyCode = 9 End Sub

Suponiendo que se llama ComboBox1 Private Sub ComboBox1_Change() ThisWorkbook.Sheets(nombre o número de la hoja).Range("letra de la columna" & ComboBox1.ListIndex + 1).Select End Sub Ej. ThisWorkbook.Sheets(1).Range("A" & ComboBox1.ListIndex +...

Prueba con esta fórmula, es un poco liosa pero funciona: =SI(B1="no";SI(B2="no";SI(B3="no";"no le falta " & A1 & ", " & A2 & ", " & A3;"no, le falta " & A1 & ", " & A2);SI(B3="no";"no, le falta " & A1 & ", " & A3;"no, le falta " &...

Prueba con esta fórmula, cuando la escribas le das al CTRL+SHIFT+ENTER =DESREF(A1;MAX(SI(B1:D4=E10;FILA(B1:D4);0))-1;0;1;1) Suponiendo que el rango B1:D4 tienes los numero, en la celda A1 empiezan los encabezados de la filas y en la celda E10 es...