Sector, orientado a las planillas de cálculos.

Excel, aplicaciones para todos, es un grupo de facebook con muchisimas app con macros totalmente libres y gratis.

Son de codigo abierto, se pueden usar y/o reformar a sus nesecidades.

Link www.facebook.com/groups/671862166239560/

No se pueden publicar directamente en la web, ya que son app muy elaboradas, y con macros, y las mismas tienen un costo para publicarlas en esta web, y como ya saben, esta web es sin fines de lucro, asi que por tal motivo, todas las aplicaciones excel creadas por mi, estaran en ese grupo...



Leer más: http://stricker-ruben-dario.webnode.es/planillas-de-calculos/

Ejemplos de Macros

Agregar Bordes

Agregar Bordes
Código Macro 'Este código agrega bordes a las celdas seleccionadas... Sub Agregar_Bordes()     Selection.Borders(xlDiagonalDown).LineStyle = xlNone     Selection.Borders(xlDiagonalUp).LineStyle = xlNone     With...

Agregar Bordes 2

Agregar Bordes 2
Código Macro 'Este código agrega bordes todas las celdas de la columna A... Sub Agregar_Bordes2()     Columns("A:A").Select     Selection.Borders(xlDiagonalDown).LineStyle = xlNone     Selection.Borders(xlDiagonalUp).LineStyle =...

Alinear Conjunto de Formas (shape) 1

Alinear Conjunto de Formas (shape) 1
Código Macro 'Este código alinea un conjunto de formas (shape)... Sub Alinear_Formas1()     'Alínea las formas de la hoja activa a la izquierda     ActiveSheet.Shapes.SelectAll     Selection.ShapeRange.Align msoAlignLefts, False End...

Alinear Conjunto de Formas (shape) 2

Alinear Conjunto de Formas (shape) 2
Código Macro 'Este código alinea un conjunto de formas (shape)... Sub Alinear_Formas2()     'Alínea tres formas de la hoja activa a la izquierda     ActiveSheet.Shapes.Range(Array(1, 2, 3)).Align msoAlignLefts, False End Sub   Para agregar un macro,...

Alinear Texto a la Derecha

Alinear Texto a la Derecha
Código Macro 'Este código Alinea el texto a la derecha de las celdas seleccionadas... Sub Alinear_Texto_Derecha()     With Selection         .HorizontalAlignment = xlRight         .VerticalAlignment = xlBottom  ...

Alinear Texto a la Izquierda

Alinear Texto a la Izquierda
Código Macro 'Este código Alinea el texto a la Izquierda de las celdas seleccionadas... Sub Alinear_Texto_Izquierda()     With Selection         .HorizontalAlignment = xlLeft        ...

Alinear Texto al Centro

Alinear Texto al Centro
Código Macro 'Este código Alinea el texto al centro de las celdas seleccionadas... Sub Alinear_Texto_Centro()     With Selection         .HorizontalAlignment = xlCenter         .VerticalAlignment = xlBottom  ...

Asignar Constante a Celda

Asignar Constante a Celda
Código Macro 'Este código agrega datos a la celda especificada... 'Asignar una constante a una celda Sub Rangos1()     Worksheets("Hoja1").Range("A1").Value = 500 End Sub     Para agregar un macro, deberá abrir el editor de VBA en el libro...

Asignar Formula a Rangos Específicos 1

Asignar Formula a Rangos Específicos 1
Código Macro 'Este código agrega una formula a las celdas especificadas... 'Asignar una fórmula a un rango dado Sub Rangos3()     ActiveSheet.Cells(2, 1).Formula = "=SUMA(D1:D5)" End Sub   Para agregar un macro, deberá abrir el editor de VBA en el...

Asignar Formula a Rangos Especificos 2

Asignar Formula a Rangos Especificos 2
Código Macro 'Este código agrega una formula a las celdas especificadas... 'Asignar una fórmula a un rango dado Sub Rangos2()     Worksheets("Hoja1").Activate     Range("A1:A5").Formula = "=ALEATORIO()" End...