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
Con esta macro si la tienes instalada en tu cinta de opciones conseguiras a golpe de dos cliks comparar dos columnas creandote un informe con las lineas que no coinciden. Código de la macro: Sub CompararColumnas() Dim ColumnaUno As RangeDim ColumnaDos As RangeDim RangoInforme As RangeDim Celda As RangeDim vEncontrado As VariantDim NumValores As Double … Leer más
Con esta macro ocultas todos los elementos de tu excel quedandote solamente con el area de trabajo, la cual si tienes un Dashboard se vera perfectamente. Codigo de la macro Sub VistaDashboard()If Application.DisplayScrollBars = True ThenApplication.DisplayFullScreen = TrueApplication.DisplayScrollBars = FalseActiveWindow.DisplayHeadings = False ElseApplication.DisplayFullScreen = FalseApplication.DisplayScrollBars = TrueActiveWindow.DisplayHeadings = TrueEnd IfEnd Sub