Con esta macro tendrás a un botonazo todas las tablas dinámicas de tu archivo. Para que no se pierda ninguna. Código de la macro Sub ListarTablasDinamicas() Dim numDinamicas As IntegerDim numHojas As IntegerDim i As IntegerDim y As IntegerDim Nombre As StringDim tblDinamicas numHojas = ActiveWorkbook.Worksheets.Count For i = 1 To numHojas Next i If … Leer más
Con esta macro podrás limpiar la memoria cache de tus tablas dinámicas, y así poder actualizar sin datos antiguos Código de la macro Sub LimpiarCacheTablaDinamica()Dim pvtTable As PivotTableDim i As Integer For i = 1 To ActiveWorkbook.Sheets.CountFor Each pvtTable In Worksheets(i).PivotTables Next pvtTableNext iEnd Sub Como copiar y pegar el código Como insertar una macro … Leer más
Con esta macro podras convertir tus gráficos en una imagen, la cual podras guardar, compartir o cualquier accion que puedas hacer con una imagen normal. Solamente dándole al botón. Código de la macro Sub ConvertirGraficoImagen() End Sub Como copiar y pegar el código Como insertar una macro en la cinta de opciones personalizada
Con esta macro ocultas todas las hojas que tienes en tu archivo dejando solo la que que tengas activa en ese momento. Si eres de los que ocultan los cálculos y no quieres que se vean esta es tu macro. Solamente dándole al botón. Código de la macro Sub OcultarHojas() Dim Hoja As Worksheet For … Leer más
Muchas veces tenemos archivos que no son nuestros y no sabemos de donde vine la información. Esta macro te mostrara todos los archivos ocultos o muy ocultos, asi no perderas detalle. Solamente dándole al botón. Código de la macro Sub MostrarHojas() Dim Hoja As Worksheet For Each Hoja In ActiveWorkbook.WorksheetsHoja.Visible = xlSheetVisibleNext Hoja End Sub … Leer más
Con esta macro podras eliminar las filas vacias que tengas en un rango Solamento selecciona el rango el cual quieres limpiar y dale al botón Código de la macro Sub EliminarFilasVacias() Dim Rango As RangeDim UltimaFila As IntegerDim Filas As IntegerDim Columnas As IntegerDim Fila As RangeDim Celda As RangeDim Datos As StringDim FilasEliminadas As … Leer más
En ocasiones tenemos muchas hojas dentro de un archivo y al final nos perdemos entre ellas Con esta macro podrás listarlas todas en una sola hoja y tener claro culas tienes. Código de la macro Sub ListarHojas()Dim ws As WorksheetDim i As Integer End Sub Como copiar y pegar el código Como insertar una macro … Leer más
Es muy probable que en tu trabajo diario Trabajes con varias aplicaciones de Microsoft como Word, Power Point o Outlook. Aqui tienes una solucion fácil y rápida para abrirlas desde tu propio excel Código de la macro Sub AbrirAplicacionMicrosoft() Dim Indice As Byte On Error Resume Next Indice = InputBox(«Digita el numero segun la aplicacion … Leer más
Es muy probable que en tu trabajo diario tienes la necesidad de usar la calculadora. Aqui tienes una solucion fácil y rápida para hacerla llamar en un solo botonazo desde tu Excel o con algun atajo de teclado que tu le asignes. Código de la macro Sub Calculadora() Application.ActivateMicrosoftApp Index:=0 End Sub Como copiar y … Leer más