Archivos: Plantillas

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

Con este código lo que conseguirás es proteger todas las celdas que tengan formulas en una hoja de calculo Código de la macro Sub ProtegerCeldasConFormulas()With ActiveSheet.Unprotect.Cells.Locked = False.Cells.SpecialCells(xlCellTypeFormulas).Locked = True.Protect AllowDeletingRows:=TrueEnd WithEnd Sub Como copiar y pegar el código Como insertar una macro en la cinta de opciones personalizada

Con este código y siguiendo las instrucciones que te va pidiendo el procedimiento, conseguirás sumar según el color de la celda. Código de la macro Sub SumarPorColores() Dim rSuma As RangeDim rComparacion As RangeDim rResultado As RangeDim Celda As RangeDim Valor As LongDim Titulo As String On Error GoTo Errores: Titulo = «ExcelyFinanzas»Set rSuma = … Leer más

Con este código lo que consigues es pasar correos electrónicos usando Outlook desde Excel. Nota Importante: Al inicio del código hay unas instrucciones para que te funcione, hay que activar las librería de Outlook. Código de la macro Sub EnviarCorreoOutlook()‘Apunte importante:‘Para que funcione esta macro hay que ir a la ficha Herramientas del mismo editor … Leer más

Con este código lo que haces es crear números aleatorios, en las columnas, filas o rangos seleccionados, dándole un numero mínimo y un numero máximo. Código de la macro Sub nAleatorios() Dim Rango As RangeDim Celda As RangeDim Titulo As StringDim Aleatorio As LongDim NumUno As LongDim NumDos As Long On Error GoTo Errores Titulo … Leer más

Con este código consigues solucionar muchas situaciones en las que te aparentemente tienes una fecha y en realidad tienes un texto. Código de la macro Sub ConvertirTextoEnFecha() On Error GoTo Errores:         Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _         :=Array(1, 4), TrailingMinusNumbers:=True Errores: If Err.Number … Leer más