Siguiendo con las macros útiles aquí les dejo algunas macros para principiantes en código VBA:

Macro Nº1: Posición de una Celda

A veces necesitamos conocer la posición actual de una celda. El código es el siguiente:

*****************************************************
Sub PosicionCelda()
Fila = ActiveCell.Row
Columna = ActiveCell.Column
Msgbox  Fila & "," & Columna
End Sub
*****************************************************

Macro Nº2: Eliminar Filas Vacías

Esta macro permite eliminar filas en un rango seleccionado. Esta es muy útil para evitar realizar el trabajo “a mano”. Basta con seleccionar el rango (pintar dentro de un rango de datos lo que queremos eliminar) y listo!

*****************************************************
Sub BorrarFilas()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
For i = 1 To Rng
If ActiveCell.Value = "" Then  
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
*****************************************************

Macro Nº3: Insertar Filas a elección

En esta macro aparecerá un mini formulario que nos preguntará cuantas filas queremos insertar de forma consecutiva.

*****************************************************
Sub InsertaFilas()
Dim Rng
Rng = InputBox("Inserte número de filas que necesita.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub
*****************************************************

Espero les sirvan.

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos

Hay veces en que necesitamos contar las palabras que contiene un texto. Esto por ejemplo en Word es muy simple pues la función viene incluida en el software. Pero en Excel esta función de contar palabras no existe.  La macro a continuación permite contar el número de palabras en una determinada hoja de Excel. Espero les sirva:

******************************************************************** 

Sub CountarPalabras()
    Dim Cuenta As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In ActiveSheet.UsedRange.Cells
        S = Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> vbNullString Then
            N = Len(S) - Len(Replace(S, " ", "")) + 1
        End If
        Cuenta = Cuenta + N
    Next Rng
    MsgBox "Número de Palabras: " & Format(Cuenta, "#,##0")
End Sub 

******************************************************************** 

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos

Gmail, el servicio de email gratuito de Google, ha añadido una nueva funcionalidad que posiblemente evitará muchos envíos de emails erróneos, con falta de información, etc..

Esta nueva funcionalidad permite deshacer el envío de un e-mail durante los cinco segundos posteriores a que se presionó el botón "Enviar". La verdad es que Gmail no recupera el correo, sino que retrasará el envío durante cinco segundos, y si no se le indica lo contrario, llegará a su destinatario.

Para poder utilizar esta nueva funcionalidad hay que tener activada la opción "labs" y luego habilitar una alternativa llamada "Undo Send". Para esto hay que ir a "settings", o configuración, y luego dirigirse a la pestaña "Labs".

De los casos en donde sería útil cancelar un email podemos encontrar estos clásicos errores:

1.- Cuando uno olvida adjuntar un archivo (especialmente uno importante para el jefe)
2.-  Cuando te das cuenta que enviaste a la persona equivocada el email, especialmente uno de tipo personal.

Aún así siempre me quedará dando vueltas el porqué cuando uno ha revisado por más de 10 minutos un email importante y presiona “Enviar”, justo en ese preciso momento uno se da cuenta de un error y casi siempre es un error grave.....da para pensar.

Link: Blog Oficial de Gmail