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/Excel.Aplicaciones.Para.Todos/

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: https://stricker-ruben-dario.webnode.es/planillas-de-calculos/

Ejemplos de Macros

Ordena de A-Z

Código Macro 'Este código ordena toda la columna A de forma Ascendente... Sub Ordenar_A_Z()     Columns("A:A").Select     ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear    ...

Ordena de Z-A

Código Macro 'Este código ordena toda la columna A de forma Ascendente... Sub Ordenar_A_Z()     Columns("A:A").Select     ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear    ...

Puntos Aleatorios

Código Macro 'Este código ingresa una x en las celdas aleatoriamente... Sub Puntos_Aleatorios() For i = 1 To 100     Cells(Int(Rnd * 50) + 1, Int(Rnd * 50) + 1) = "x" Next i End Sub   'Este código es para borrar...   Sub...

Redondear

Código Macro 'Este código redondea un valor con decimales... Sub Redondear() valor = Round(Range("A1")) MsgBox ("El valor redondeado es: " & valor), vbInformation, "Stricker Ruben Dario" End Sub   Para agregar un macro, deberá abrir el editor de VBA en el...

Rellenar Celdas

Código Macro 'Este código es para rellenar las celdas seleccionadas con los datos de la 1° celda seleccionada... 'Rellenar celdas Sub Rellenar_Celdas() Dim Celda As Range For Each Celda In Selection If Celda = "" Then Range(Celda.Address).Value =...

Reloj en tiempo real 1

Código Macro 'Este código agrega el horario actual de la pc, actualizandoce en tiempo real... Sub Reloj_Nuevo() Sheets(1).Cells(1, "A") = Now Application.OnTime Now + TimeSerial(0, 0, 2), "Reloj_Nuevo" End Sub   Sub auto_Open()   Call Reloj_Nuevo End...

Reloj en tiempo real 2

Código Macro 'Este código agrega el horario actual de la pc, actualizandoce en tiempo real... Sub Reloj()   Range("C5").Formula = "=NOW()"   Application.OnTime Now + TimeValue("00:00:01"), "reloj" End Sub   Sub auto_Open()   Call...

Seleccionar a la Derecha

Código Macro 'Este código es para seleccionar hacia la derecha... Sub Hacia_Derecha1()  '   Ctrl+Shift+Right     Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub   Sub Hacia_Derecha2()  '  ...

Seleccionar a la Izquierda

Código Macro 'Este código es para seleccionar hacia la izquierda... Sub Hacia_Izquierda1()  '   Ctrl+Shift+Left     Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub   Sub Hacia_Izquierda2()  '  ...

Seleccionar Area Activa

Código Macro 'Este código es para seleccionar el area activa... Sub Area_Activa()  'Ctrl+Shift+Home     Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Select End Sub   Para agregar un macro, deberá abrir el editor de VBA en el libro de...