Basada en una pregunta de nuestros lectores, donde nos indica que tiene un texto en unas celdas de excel, y requiere extraer primero una palabra de estos textos, y luego hacer un buscarv en otros datos: veamos el ejemplo , necesita encontrar en el cuadra de abajo el nombre del cliente que se encuentra en el cuadro de arriba y devolver su relacion.

Detalle de la funcion Buscarv

SINTAXIS de BUSCARV: =BUSCARV(Valor a buscar;indicador de columna;ordenado)

Detalle de la funcion Extrae

Sintaxis de la función EXTRAE
La función EXTRAE tiene 3 argumentos:

•    Texto (obligatorio): La cadena de texto original de donde deseamos extraer los caracteres.

•     Posición_inicial (obligatorio): El número de la posición que ocupa el primer carácter que deseamos extraer. El primer carácter del Texto tiene siempre la posición número 1.

•     Núm_de_caracteres (obligatorio): El número de caracteres que se van a extraer del Texto a partir de la posición inicial.

Detalle de la funcion Largo

Sintaxis de la función LARGO

LARGO(texto)

La sintaxis de las funciones LARGO tiene los siguientes argumentos:

• Texto    Obligatorio. Es el texto cuya longitud desea obtener. Los espacios se cuentan como caracteres.

 La función la usaremos de la siguiente manera en B3 a B10

 =BUSCARV(EXTRAE(A3;8;LARGO(A3)-7);$A$15:$B$22;2;0)


 Al largo le estamos restando 7 caracteres, que corresponden  a la cantidad de la palabra "PAGO A " y que a partir de aqui me extraiga los caracteres a la derecha, para buscar con este dato dentro de la funcion buscarv.




Este será el resultado esperado. 

 
Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos

 
Si utilizas frecuentemente Excel mcuhas veces te encuentres ejecutando una misma serie de acciones una y otra vez. Esas acciones que haces repetidas veces se podrían automatizar con una macro.

Una macro es un conjunto de comandos que se almacena en un lugar especial de Excel de manera que están siempre disponibles cuando los necesites ejecutar. Por ejemplo si en un rango de datos necesitas eliminar los ceros, se podria crear una macro que lo haga por ti y así eliminar esas tareas que haces una y otra vez.
PASOS: 
 


1. Ejecutar una macro que realice automáticamente este proceso

Antes de hacer la macro, debe activar la pestaña "Programador" o tambien llamada "Desarrollador" en Excel. Si no la tiene activa, aquí le explicamos paso a paso

Cuando active esta pestaña, seleccione la opción Visual Basic como lo indica la siguiente imagen:


Desde el editor de Visual Basic, seleccione del panel izquierdo, la hoja actual y haga doble clic sobre ella e inserte el siguiente código:

Sub BORRARCEROS()
  For Each Celda in Range ("C11:G24")
      If Celda.Value=0 then Celda.clearContents
  Next

End Sub

En este ejemplo tenemos fijo el rango que seria C11 a G24 y esto muchas veces no seria util en nuestros documentos de excel, por lo que en la siguiente macro veremos como tener el rango variable, de manera que yo lo pueda seleccionar.

Antes de hacer la macro, debe activar la pestaña "Programador" o tambien llamada "Desarrollador" en Excel. Si no la tiene activa, aquí le explicamos paso a paso

Cuando active esta pestaña, seleccione la opción Visual Basic como lo indica la siguiente imagen:


Desde el editor de Visual Basic, seleccione del panel izquierdo, la hoja actual y haga doble clic sobre ella e inserte el siguiente código:

-Aqui necesitaremos primero insertar un formulario con 3 botones y un refedit. Este formulario tendrá por nombre UserForm1


-El primer boton tendrá por nombre  CommandButton1 y en el caption Borrar ceros.
-El segundo boton tendrá por nombre CommandButton2 y en el caption eliminas las celdas.
-El tercer boton tendrá por nombre CommandButton3 y en el caption salir.

Al dar doble clic en el boton 1. Ingresaremos este codigo.

Private Sub CommandButton1_Click()
    For Each celda In Range(edNumero.Text)
      If celda.Value = 0 Then celda.ClearContents
    Next
End Sub


Al dar doble clic en el boton 2. Ingresaremos este codigo.

Private Sub CommandButton2_Click()
Range(edNumero.Text).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Selection.End(xlUp).Select
End Sub


Al dar doble clic en el boton 3. Ingresaremos este codigo.

Private Sub CommandButton3_Click()
edNumero.Text = Empty
UserForm1.Hide
End Sub

-Ahora Debemos insertar un modulo así:

Aquí colocaremos este codigo.

Sub BorrarCeros()

  UserForm1.Show

End Sub

 Ya estamos casi Listos!!!

Ahora vamos a Excel. E insertamos un objeto como este, escoje el que mas te guste:


Clic encima de la imagen elegida en el punto anterior. Clic derecho, asignar Macro y escojemos la que dice BorrarCeros, aceptar.

Enhorabuena, tenemos nuestra macro lista!!!

 

Recuerda guardar el archivo como  libro de excel habilitado para macros. o Guardarlo en su libro personal de macros.

Descargar aqui el ejercicio completo


Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos

Biable® se ocupa del trabajo rutinario de alimentar sus informes en Excel®, conectado directamente a su contabilidad y a los demás sistemas de la empresa. Agilice el análisis de datos, y logre cumplir con la preparación y presentación de informes.



Ver más informacion en www.visiontecnologica.com/biable/lamejorherramienta.html


Suscríbase a nuestra lista y recibirá más información, además los videos del reporte "10 temas de Excel que todos los usuarios deberían conocer"

Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos