antares18

Si en vez de empty pones "" también te lo coge while(x="") x = InputBox("Nombre del archivo") If x = ""(Empty) Then MsgBox ("El archivo no está activo") End If Wend

Yo lo he probado como lo has puesto tu y me da bien, excepto esto call Sub Worksheet_Change1(Target)

Creo que lo de cells no te funciona porque has de poner, que hoja es. Ej Hoja1. Cells(9,5) Te señala la fila E9 de la Hoja1 Pero también puedes poner Range("E9"). Select. Haciéndolo así se sobreentiendo que es la hoja activa, pero esto si lo haces en...

Segun como te voy a decir, has de escribir los T01, 02,..., a mano o lo copias de arriba y le das a quitar duplicados. Entonces la fórmula es =CONTAR.SI.CONJUNTO(ALM!$A$1:$A$4;$C1;ALM!$B$1:$B$4;"ok") El A1:A4 es la columna de OT y la B1:B4...

Yo no tengo los datos, pero es =concatenar(BUSCARV(C52,'Reporte de Personal'!$B$5:$P$1634,5,FALSO);" ";2a Búsqueda;" ";3a búsqueda) Suponiendo de que tengan que salir 3 resultados, si no habría que pasar al VBA o hacerlas fórmula un poco más complicada

La 1a y la 2a van a dar el mismo resultado, has probado poner un + en vez de &, y var que valores toma porque si es un numero te va a dar un error y tendrías que poner Cstr(var). Si var es una variable la 3a y la 4a no vale

Aquí http://www.todoexpertos.com/categorias/tecnologia-e-internet/respuestas/1861848/macro-excel-crea-una-nueva-hoja-y-pida-el-nombre

Prueba esto SumIf (Range(Hojax + "!C[-6]"), range(Hojax + "!RC[-6]"),range(Hojax + "!C"))

Resolviendo el sistema de ecuaciones Si tienes el plano x+2y+3z y 4x+5y+6z resuleves y ya está 1 2 3 Te puede dar mínimo una recta o es el mismo plano o son planos paralelos 4 5 6

Prueba If (IsNumeric(Worksheets("Hoja" + CStr(j + 1)).Range("G"+cstr(i)))) Then