mayo 2019

29 may 2019

Calcular horas extras en Excel


En ocasiones es algo complicado llevar el control y calcular las horas extras trabajadas, es por eso que  el día de hoy les comparto una sencilla herramienta para llevar el control de las horas extras en Excel, ya que en algunas ocasiones necesitamos llevar nuestro propio control. espero que te sea útil.

Calcular horas extras en Excel

22 may 2019

Obtener el nombre del archivo - Excel


En ocasiones tenemos la necesidad de obtener el nombre de nuestro libro de Excel ya sea porque lo requerimos, porque estamos trabajando con macros, porque lo necesitamos en formulas o solo por el simple hecho de saber como se llama nuestro libro.
Obtener el nombre del archivo - Excel

Para lograr esto es muy sencillo, se puede realizar con la siguiente formula:

=EXTRAE(CELDA("nombrearchivo"),ENCONTRAR("[",CELDA("nombrearchivo"))+1,ENCONTRAR("]",CELDA("nombrearchivo"))-ENCONTRAR("[",CELDA("nombrearchivo"))-1)


o con una macro:

Sub Nombre()
ActiveCell.Value = ThisWorkbook.Name
End Sub

Con esta macro colocamos el nombre del libro activo en la celda activa, o se puede modificar para tomarlo como varible, para realizar trabajos más complejos en VBA.


7 may 2019

Macro para redondear cantidades de un rango en excel


En muchas ocasiones tenemos que redondear cantidades de un rango de celdas, lo cual se vuelve complicado si ese rango es muy grande. y es por eso que les comparto esta pequeña macro que nos va a ayudar a redondear dichas cantidades.

Macro Redondear cantidades

A continuación les muestro el código para redondear cantidades de un rango de celdas.
Para que la macro funcione hay que seguir los siguientes pasos:

1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. Insertar un módulo.
3. Pegar el siguiente código en el módulo que se inserto:

Sub Redondear_cantidades()
  Set Rango = Application.InputBox(Prompt:="Seleccionar rango en la hoja", Type:=8)
       For Each cell In Rango
          cell.Formula = Application.WorksheetFunction.Round(cell.Value, 0)
       Next
End Sub