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

Ejemplos de Macros

Ingreso de Datos

Ingreso de Datos
Código Macro 'Este código es para el ingreso de datos en una caja de texto y lo ubica en celdas especificas... 'En este array ingresaremos el nombre de 5 personas y sus respectivas edades. 'Para este caso este array es de tamaño 5x2, 5 filas ya que serán 5 los nombres de personas que...

Manejar Carpetas, Directorios y Archivos

Manejar Carpetas, Directorios y Archivos
Código Macro 'Estos códigos son para manejar carpetas, directorios y archivos... 'Devuelve el directorio actual (CurDir) Sub Directorios1()     MsgBox CurDir, vbInformation, "Informacion:" End Sub   'Cambia a un nuevo directorio (ChDir) Sub...

Mostrar Filas y Columnas Ocultas

Mostrar Filas y Columnas Ocultas
Código Macro 'Este código muestra las filas y/o columnas ocultas... 'Mostrar filas y columnas ocultas Sub FilasColumnasOcultas()     Columns.EntireColumn.Hidden = False     Rows.EntireRow.Hidden = False End Sub   Para agregar un...

Mover Rango en otra Hoja

Mover Rango en otra Hoja
Código Macro 'Este código es para mover el rango mencionado a otro rango y hoja distinta... 'Mueve el rango A1:A5 de la hoja 1 al rango C1 de la hoja 2 Sub MoverRango2()     Worksheets(1).Range("A1:A5").Cut Worksheets(2).Range("A1") End Sub   Para...

Mover una Forma (shape)

Mover una Forma (shape)
Código Macro 'Este código es para mover una forma (shape)... Sub Mover_Horizontalmente_Formas()     'Mueve la forma 1 a la izquierda 50 puntos (valor negativo)     ActiveSheet.Shapes(1).IncrementLeft -50     'Mueve la forma 2 a la derecha 70...

Muestra u Oculta el Filtro

Muestra u Oculta el Filtro
Código Macro 'Este código Muestra u Oculta el Filtro de la columna A... Sub Filtro()     Selection.AutoFilter End Sub     Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea...

Mueve el Rango

Mueve el Rango
Código Macro 'Este código es para mover el rango mencionado a otro rango... 'Mueve el rango A1:A5 a C1 Sub MoverRango1()     Range("A1:A5").Cut Range("C1") End Sub   Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al...

Negrita

Negrita
Código Macro 'Este código pone en Negrita o saca la Negrita de la celda seleccionada... Sub Con_Sin_Negrita() If Selection.Font.Bold = True Then     Selection.Font.Bold = False Else     Selection.Font.Bold = True End If End Sub   Para agregar un...

Nombres de las Gráficas

Nombres de las Gráficas
Código Macro 'Este código recorre todas las gráficas incrustradas en la hoja y devuelve sus nombres... Sub Nombres_Graficas() Dim Graficas As ChartObject Dim Mensaje As String     Mensaje = ""     For Each Graficas In ActiveSheet.ChartObjects  ...

Nombres de las Hojas del Libro

Nombres de las Hojas del Libro
Código Macro 'Este código muestra el nombre de todas las hojas contenidas en el libro... Sub Nombre_Hojas_Libro_Activo() Dim ws As Worksheet     For Each ws In Worksheets         MsgBox "Nombre:  " & ws.Name, vbInformation, "Nombres de las...