Tag: CUSTOM-FUNCTIONS-EXCEL
Tengo el siguiente código, pero busco cambiarlo para que la salida solo proporcione la primera parte del nombre del archivo. Los nombres de archivo están en el siguiente formato. CódigoPostal_Nombre_Fecha. Solo quiero que la parte del nombre que indique el Código Postal se imprima. Opción Explícita Sub ObtenerDetallesArchivo() Dim objFSO . . . Read more
Escribí el siguiente código para ordenar una columna de Excel: Sub deneme() Workbooks(“macro.xlsm”).Activate Dim excelApp As New Excel.Application excelApp.Visible = False excelApp.Workbooks.Open Filename:=”C:\Users\cildi\Desktop\sortdeneme\New\new.xlsx” Dim excelsWbk As Object Set excelsWbk = excelApp.Workbooks(“new.xlsx”) excelsWbk.Sheets(“Sheet1”).AutoFilter.Sort.SortFields.Add2 Key _ :=Range(“A1”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With excelsWbk.Sheets(“Sheet1”).AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = . . . Read more
Tengo datos descargados de un sitio web y una de las columnas contiene una fecha Hijri. Para tener esta columna como una columna de Fecha adecuada, apliqué el siguiente formato: [$-1970000]B2dd/mm/yyyy;@ Pero el problema es que no se considerará como fecha y se alineará a la derecha a menos que . . . Read more
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