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
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
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
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
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
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
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
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
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
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
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)
...
