Plantillas
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
A veces nos en contramos con los textos en dos lineas dentro de la misma celda. Con esta macro consigues eliminar el ajuste del texto, así veras el contenido de esa celda en una sola linea. Código de la macro Sub EliminarAjusteTexto() Selection.WrapText = False Cells.EntireRow.AutoFitCells.EntireColumn.AutoFit End Sub Como copiar y pegar el código Como … Leer más
Con esta macro anularas la dinamización de las columnas sin tener que entrar en Power Query Conseguiras hacer el mismo efecto que en Power Query con las anular dinamización de columnas sin tener que acceder a el. Código de la macro Sub AnularDinamizacion() Dim PrimeraColumna As RangeDim SegundaColumna As RangeDim TerceraColumna As RangeDim i As … Leer más
Con esta macro creas automaticamente un menu con vinculos entre hojas. De manera que ejecutando la macro y dándole una celda tenemos en un abrir y cerrar de ojos un menu en todas las hojas de nuestro archivo para moverte entre ellas Código de la macro Sub VinculosParaHojas() Dim Rango As StringDim NumeroHojas As IntegerDim … Leer más
En nuestro trabajo diario, en muchas ocasiones tenemos que conocer los valores unicos. Excel nos permite varias opciones, aqui tiens la opcion con una macro, la cual te permitira extraer esos valores unicos o quitar duplicados con un solo botonaño. Código de la macro Sub QuitarDuplicados()Dim MiRango As RangeOn Error GoTo Error:Set MiRango = Application.InputBox(«Seleccione … Leer más
Con esta macro crearás un archivo nuevo a partir de la hoja activa, y a continuación envia dicho archivo por correo, usando Outlook. Código de la macro Sub CrearArchivoNuevoEnviarPorCorreo() Dim Hoja As WorksheetDim NombreArchivo As StringDim Rutalibro As String Set Hoja = ActiveSheetNombreArchivo = ActiveWorkbook.Name Rutalibro = ActiveWorkbook.PathRutalibro = Rutalibro & «\» & ActiveWorkbook.Name ActiveWorkbook.Close … Leer más
Con esta macro pasaras rangos enteros a nombre propio, mayusculas y minusculas sin necesidad de formulas ni copiar y pegar, simplemente seleccionas el rango y le dices que quieres hacer Código de la macro Sub TextoMayuscMinuc() Dim Celda As RangeDim QueHacer As StringDim Rango As Range QueHacer = InputBox(«Indique que quiere hacer» & vbNewLine & … Leer más
Con esta macro crearás un archivo nuevo a partir de la hoja activa guardando la la hoja y archivo original para posteriores usos. Código de la macro Sub CrearArchivoNuevo() Dim Hoja As WorksheetDim NombreArchivo As String Set Hoja = ActiveSheetNombreArchivo = ActiveWorkbook.Name End Sub Como copiar y pegar el código Como insertar una macro en … Leer más