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

Contar Columnas Total

Contar Columnas Total
Código Macro 'Este código cuenta el número de columnas usadas en la hoja activa... Sub Total_Columnas()     MsgBox ActiveSheet.UsedRange.Columns.Count & " Columnas usadas.", vbInformation, "Informacion:" End Sub   Para agregar un macro, deberá abrir el editor de...

Contar Filas

Contar Filas
Código Macro 'Este código cuenta el número de filas de una selección... Sub Contar_Filas() Dim Filas   As Double     Filas = Selection.Rows.Count     MsgBox Filas & " Filas seleccionadas.", vbInformation, "Informacion:" End Sub   Para...

Contar Filas Total

Contar Filas Total
Código Macro 'Este código cuenta el número de filas usadas en la hoja activa... Sub Total_Filas() Dim Filas As Double     MsgBox ActiveSheet.UsedRange.Rows.Count & " Filas usadas.", vbInformation, "Informacion:" End Sub   Para agregar un macro, deberá abrir el...

Contar Formas (shape) en Hoja Activa

Contar Formas (shape) en Hoja Activa
Código Macro 'Este código es para contar las forma (shape) en la hoja activa... Sub Numero_Formas() Dim n As Integer 'Número de formas en la hoja activa n = ActiveSheet.Shapes.Count MsgBox n End Sub   Para agregar un macro, deberá abrir el editor...

Contar Si

Contar Si
Código Macro 'Este código cuenta el número de celdas con numeros iguales o mayores a 5 de celdas seleccionadas... Sub Contar_Si() Dim n As Integer     n = Application.WorksheetFunction.CountIf(Selection, ">=5")      MsgBox n & " mayores o iguales a...

Contar Total Hojas

Contar Total Hojas
Código Macro 'Este código cuenta el total de hojas en el libro activo... Sub Total_Hojas()     MsgBox ActiveWorkbook.Sheets.Count & " Hojas en el Libro.", vbInformation, "Informacion:" End Sub   Para agregar un macro, deberá abrir el editor de VBA en el libro de...

Contar Total Libros Abiertos

Contar Total Libros Abiertos
Código Macro 'Este código cuenta el número de libros abiertos... Sub Libros_Abiertos()     MsgBox Workbooks.Count & " Libros Abiertos.", vbInformation, "Informacion:" End Sub   Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al...

Convierte a Mayúscula

Convierte a Mayúscula
Código Macro 'Este código convierte a mayúscula las celdas seleccionadas... Sub Convierte_Mayusculas() Dim celda As Range     For Each celda In Selection         celda.Value = UCase(celda.Value)     Next End Sub   Para agregar...

Convierte a Minúscula

Convierte a Minúscula
Código Macro 'Este código convierte a minúsculalas celdas seleccionadas... Sub Convierte_Minusculas() Dim celda As Range     For Each celda In Selection         celda.Value = LCase(celda.Value)     Next End Sub   Para agregar...

Convierte a Nombre Propio

Convierte a Nombre Propio
Código Macro 'Este código convierte a nombre propio las celdas seleccionadas... Sub Convierte_Nombre_Propio() Dim celda As Range     For Each celda In Selection         celda.Value = Application.WorksheetFunction.Proper(celda.Value)    ...