Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
La oración en la celda A1 es WO# 000000.0 para ITSHTJ en Q0 20000_ITAI0006: TBD Replacement PO y quiero extraer ITAI0006. He utilizado la siguiente UDF pero no es útil. Función encontrarMayúsculas(Rng como Rango) como Boolean Dim Txt Dim Desc() como Cadena Desc = Dividir(Rng.Value, ” “) Para cada Txt . . . Read more
Por razones desconocidas para mí, estoy obteniendo un error en un arreglo dinámico dentro de una macro. Siempre muestra el mensaje “Subíndice fuera de rango”. Pero aquí está el truco: si ejecuto la misma macro de nuevo después de que se muestre el error, no se quejará. Aquí está el . . . Read more
Tengo un código que recoge datos para imprimir varias hojas. Cada hoja se imprime por separado y se repite. Utilizo el siguiente código: Applications.CommandBars.ExecuteMso(“PrintPreviewAndPrint”) para abrir la vista previa de impresión y luego un formulario para imprimir con un clic de botón o salir. Aunque funciona bien, cuando el bucle . . . Read more
Tengo un montón de hojas de trabajo creadas dinámicamente en mi libro que todas contienen la palabra “Roster” en su nombre. Estoy tratando de activar la última de estas hojas, pero no puedo averiguar cómo obtener la última hoja. Usando esto: if Worksheets(i).Name Like “Roster” Then Puedo recorrer las hojas . . . Read more
Estoy creando el juego de Guerra en Excel utilizando VBA. Todo está funcionando, lo único que necesito hacer es poder reiniciar todo a sus valores originales cuando el juego termine o si presionan un botón de reinicio. Después de que el juego haya terminado es fácil porque solo guardo los . . . Read more