Agenda en Excel (Address Book in Excel)

En este post voy a explicar cómo hacer una agenda en Excel. Voy a usar una macro para poder ingresar los datos mediante un pequeño formulario.
Podríamos hacer una agenda directamente ingresando los datos en filas sucesivas pero es algo incomodo.
Pueden armar una planilla y darle formato, quedando así:

Cómo ven, solo es una planilla dónde irán almacenados los datos. Utilizo inmovilizar paneles para que la parte de arriba, el formulario de entrada, este siempre visible. Una vez ingresado los datos, la macro utilizada para colocarlos en la planilla personas está vinculada a la flecha azul.
Ingresamos un dato queda así:

 Como vemos, la entrada de datos se puede hacer de forma manual directamente pero cuando tengamos suficientes datos, tendremos que estar bajando continuamente hacia abajo para encontrar la última celda dónde contiene datos, siendo esto un poco estresante cuando se trata de muchos datos. Cómo ven, incluso, podemos hacer un filtro.
Lo que falta es hacer la macro para que completando el formulario de arriba y apretando el botón ingresar, complete la siguiente celda vacía.

Proceso:

Paso 1: macro 1

Para solucionar el problema que se nos plantea vamos a tener que usar dos macros, la primera es muy fácil. Lo que hay que hacer es grabar la base del procedimiento.
La macro tendría que cortar los datos del formulario de arriba, luego pegarlos en la fila vacía de abajo pero sin formato.

No queda el siguiente código:
-------------------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'
Range("B4:G4").Select
Selection.Copy
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("B4:G4").Select
Selection.ClearContents
Range("B4").Select

End Sub
-------------------------------------------------------------------------------------------------------
Paso2: contamos los datos ingresados
Antes de arreglar el código de la macro debemos usar un truco, se puede hacer de otra manera pero para no complicar el código lo hacemos así:

Como vemos, usamos un “contara” para contar todas las celdas que contienen datos en la primera fila, por supuesto que cada vez que guardamos un dato esta celda va a tener un dato, no puede estar vacio.
Parte 3: arreglamos el código de la macro
Vamos a macros >>modificar >> macro1
Luego arreglamos el código de la siguiente manera y cerramos la ventana del editor de VBA.

Obtenemos el siguiente código y nos queda lista la macro.
----------------------------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'
'Copiamos los datos
Range("B4:G4").Select
Selection.Copy

'aquí es en donde vamos hacer el arreglo para pegar los datos
'vamos a tomar como referencia la primer celda en dónde podemos ingresar datos

conta = Range("i6") 'tomamos el valor de la celda "i6"

Range("B" & 8 + conta).Select 'queda ok!

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("B4:G4").Select
Selection.ClearContents
Range("B4").Select

End Sub
------------------------------------------------------------------------------

La columna auxiliar donde usamos la fórmula de “contara” la podemos ocultar si queremos para que quede más formal.
Listo, cada vez que ingresamos un dato el formulario, el dato se almacena en la última fila vacía que encuentra. SI utilizan el filtro, no interfiere con la macro.

Si quieren la planilla hecha, me dejan un comentario en el formulario de contacto y les respondo con el archivo.
Les dejo el video en este link, así ven como funciona.

Keys:

• ¿Cómo hacer una agenda en Excel?
• ¿Cómo  hacer una agenda telefónica en Excel?
• Create Cotacts List in Excel
• Create phonebook in Excel
• Excel data entry