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
Con esta macro conseguiras insertar casillas de verificación masivas, Selecciona el rango donde quieres insertarlas y simplemente le das a la macro, veras que sencillo. Código de la macro Sub InsertarCheckBoxes() Dim Celda As RangeDim Ancho As DoubleDim Alto As Double Application.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualFor Each Celda In SelectionAncho = Celda.WidthIf Celda.Height >= 17 … Leer más
Necesitas separar todas tus hojas en un archivo diferente? Con este código crearás un archivo por cada una de las hojas que tengas en un archivo. Código de la macro Sub ArchivoPorHoja() Dim nHojas As IntegerDim i As IntegerDim Archivo As StringDim NombreHoja As StringDim Titulo As StringDim GuardarComo As VariantDim Extension As String On … Leer más