Cuando nos envian archivos, nuestros compañeros o colaboradores, algunas veces, pueden traer hojas ocultas. Cuando hacemos trazabilidad de las formulas, por ejemplo, es posible que se requiera "desocultar" todas las hojas del libro.
Cuando es solo una hoja, no hay mucho inconveniente, es solo darle clic derecho y mostrar, pero y cuando son muchs hojas, mas de 10 por ejemplo, esta tarea se vuelve un poco mas tediosa. 
Es por esto, que veremos en unos sencillos pasos, como desocultar o volver visibles las hojas ocultas.

Paso 1:  Active la pestaña de programador, si no recuerda aqui están los pasos Clic Aqui
 
Paso 2:  Ingrese a Visual basic desde la pestaña de programador

Paso 3: Agregamos un nuevo modulo, recuerde clic derecho en el nombre del libro, en la parte izquierda de la pantalla - clic derecho - Insertar  - Modulo.


Aqui en la parte derecha vamos a pegar el siguiente codigo: 

 

Sub MostrarHojasOcultas()
 Dim cantidad, i As Byte
 cantidad = Sheets.Count
 For i = 1 To cantidad
  Sheets(i).Visible = True
 Next
End Sub


Se verá algo así: 

Solo quedaría ejecutar la macro y ver como todas las hojas quedan visibles.

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

Hay acciones en Excel, que las repetimos con frecuencia, las cuales podriamos 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. Este ejemplo es para enviar la hoja activa por correo electrónico, lo podriamos realizar de la siguiente manera.
 



Para 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, clic derecho en el nombre del libro - insertar - modulo, en la parte derecha, escribir el siguiente codigo:






Sub Correo()
    Dim NombreAsunto As String
    Dim Temporal As String
    Dim Mensaje As String
        On Error Resume Next
        NombreAsunto = ActiveSheet.Name
        Temporal = Environ("temp") & "\"
        NombreAsunto = Temporal & NombreAsunto

        ActiveWorkbook.ActiveSheet.Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs NombreAsunto
        Application.DisplayAlerts = True
        CommandBars.ExecuteMso ("FileSendAsAttachment")
       
        ActiveWorkbook.Close False
        Kill NombreAsunto
        On Error GoTo 0
End Sub

Enhorabuena, tenemos nuestra macro lista!!!

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 Correo, aceptar.

 Ya estamos casi Listos!!!

Ahora, solo es ejecutar y probarla macro.

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

 

 

 

[VIDEO] a continuación CLIC AQUí

 

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

Para la siguiente columna llamda formato Numero, lo que hago es multiplicar el valor por 24. OJO debe estar el formato de la celda en Numero.


Para mas ejemplos del tema visita https://ideasdeexcel.blogspot.com/2018/05/condicional-si-con-horas-funcion-valor.html




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