Excel

Una de las tareas más comunes en Excel es la de transponer filas. En ocasiones hemos de transformar columnas en filas o viceversa: Es muy habitual copiar y pegar transponiendo, pero esta labor es muy manual cuando manejamos hojas con gran cantidad de fórmulas y que pueden generar informes automáticos. Para transponer contamos con la ayuda de la función INDIRECTO de Excel. En la ayuda se define como: “Devuelve la referencia especificada por una cadena de texto. Las referencias se evalúan de inmediato para presentar su contenido. Use INDIRECTO cuando desee cambiar la referencia a una celda en una fórmula sin cambiar la propia fórmula.” ...

Hay operaciones que pueden ser muy habituales de hacer con Excel y para las que necesitaríamos una función propia que las realizara. A continuación, vamos a plantear una situación en la que es especialmente útil crear una función específica y guardarla en el libro de macros personal para utilizarla en nuestras sesiones. En este caso concreto, vamos a crear una función que nos redondee un número a 0 o 0,5; es decir, 6,3 valdría 6 y 6,7 valdría 6,5. Para realizarlo sin una función específica emplearíamos múltiples funciones de Excel, por ejemplo: ...

Una de las labores más comunes con SAS consiste en leer e importar ficheros provenientes de otras aplicaciones. Es muy habitual trabajar con tablas de Excel, Access, Lotus, Business Objects, Microstrategy, SQL Server, SAP… Para ello, SAS dispone de algunos módulos que no se encuentran en todas las instalaciones debido a su coste. Por este motivo, voy a introduciros en una metodología muy habitual en el trabajo diario: la importación de textos delimitados con SAS. ...

El siguiente truco de Excel es muy sencillo. Se trata de una consulta web que nos permite obtener el cambio de divisas a euro casi prácticamente on-line. La consulta se realiza sobre la web www.finanzas.com, sitio que además quiero recomendar; desde él sigo la imparable caída de mis valores… La consulta es la siguiente: Sub cambio_divisas() ' Cambiamos la configuración regional temporalmente With Application .DecimalSeparator = "." .ThousandsSeparator = "," .UseSystemSeparators = False End With ' Realizamos la consulta web With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.finanzas.com/divisas", Destination:=Range("A1")) .Name = "divisas_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "1" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With ' Restablecemos la configuración regional del sistema With Application .UseSystemSeparators = True End With End Sub Primero cambiamos los separadores de miles y decimales; posteriormente realizamos la consulta a www.finanzas.com/divisas y ya tenemos tabulada la información. Además, no sobrescribimos anteriores consultas; siempre se añadirán gracias a RefreshStyle, por lo que podemos hacer un seguimiento del cambio. Me ha sido muy útil para seguir el efecto del precio de unos fondos de inversión. Saludos.

Inicio una serie de mensajes con trucos de Excel que considero pueden ser de utilidad para realizar tareas habituales en nuestro trabajo diario. Este primer truco Excel consiste en una macro que nos permite crear en borradores correos electrónicos. También nos permitiría enviarlos directamente, pero en ese caso habríamos de tener permisos para que otras aplicaciones accedieran a Outlook. Veamos el código que emplea: Sub Correo() Dim ol As Object, myItem As Object Dim adjunto As String Set ol = CreateObject("Outlook.Application") Set myItem = ol.CreateItem(olMailItem) adjunto = "C:\temp\fichero.xls" With myItem .Subject = "Título del correo" .Body = "Cuerpo del mensaje" .To = "rvaquerizo@analisisydecision.es" .Attachments.Add adjunto, 1, 500 .Close (olSave) '.Send 'Si tenemos permisos para enviar correos End With Set ol = Nothing End Sub Creamos un objeto Outlook y a ese objeto le añadimos título, cuerpo, destinatario, un archivo adjunto de C:\temp y lo guardamos como borrador; si tenemos los suficientes permisos, podremos enviarlos con .Send. Como os podéis imaginar, ésta es la versión menos sofisticada de la macro y a ella podemos añadir bucles, búsquedas… Espero que pueda seros de utilidad. Por supuesto, si no funciona o tenéis dudas: rvaquerizo@analisisydecision.es.