Los códigos más visitados de Visual Basic para Aplicaciones
Listado de los códigos más visitados durante los últimos 30 días
app contable para redes inalámbricas y pantallas táctiles.

Plantilla de Excel con VBA enfocada al control de un pequeño negocio minorista, el cual esta pensado para un pequeño negocio con un máximo de 30 proveedores, 30 familia de productos y 500 referencias.
Permite consultar por referencia, proveedor, familia, IVA y pendiente de pago.

Plantilla de Excel de un almacén de hasta 2.000 referencias.
Permite gestionar hasta:
- 1.000 clientes
- 500 proveedores
- 2.000 referencias
- 50.000 registros de entrada
- 50.000 registros de salida
- Stock valorado y mínimo
- Estadística por código, cliente, proveedor y fechas
- Gestiona la misma referencia con proveedores diferentes
- Contiene macros
Código que muestra como coger datos de Excel y pasarlos a una plantilla de Word, reemplazando los campos indicados por los valores contenidos en la hoja de calculo.
Programación de macro que ayudará a importar información directamente desde excel desde una API, la estructura se puede aplicar para consultas a diversas fuentes como los servicios que brinda el gobierno. la finalidad es ahorrarse tiempo de proceso y dedicar más tiempo al análisis. Para efectos prácticos se ha divido en 2 partes, la primera parte es la consulta al servicio API y en un segundo video se explicará como acomodar la información obtenida en la consulta en formato JSON. en el video siguiente se explica su programación: https://youtu.be/LiuOkhCZeJ0

Codigo de macro en VBA para Excel que realiza el formato condicional en un rango de celdas seleccionadas por programa o por la selección del usuario antes de llamar a la macro.
El formato condicional consiste en realzar las celdas con el valor minimo (relleno en verde) y maximo (relleno en rojo) por cada fila según se muestra en la imagen.
En la imagen se ha seleccionado el rango de celdas D5:L22 y luego se ha ejecutado la macro.
Función para Excel que toma como parámetro el valor de un número y lo devuelve escrito en letras.
Tiene un rango de efectividad muy amplio (el máximo número convertible es un 16 seguido de 306 nueves con 300 decimales... o sea lo traté de hacer realmente amplio)
Si bien tiene algunos añitos y es un poco tosca en algunas cosas, funciona muy bien.
Rutina para Excel (cualquier versión), desarrollada en Visual Basic for Aplications (VBA).
Se trata de una Macro que genera el Monto Escrito, el cual puede leer hasta 13 dígitos enteros con o sin decimales. (corrigiendo el error de los decimales cuando los numeros se repiten por igual)
Este código muestra como crear una barra de progreso para nuestros procesos.
En este ejemplo, genera una barra de progreso mientras se escriben numeros aleatorios en una parte de la hora.

A falta de una función similar a LPAD O RPAD, mi funcion podría servirte para cubrir ese vacio.
xCadena es la cadena a Convertir.
Número es la longitud total que debe tener la cadena.
Caracter es en sí el caracter a agregar a la cadena, si no mandas nada se asume null string, lo que no tendría sentido.
Izquierda es una variable boleana que por default tieneel valor de True para indicar que el caracter se debe agregar a la izquierda, por supuesto False envia a la derecha.
Realizado por
Armando Fuenmayor
[email protected]
WhatsApp +58 412-2689131
Piensa en un número entre 1 y 63.
Se mostrará 6 tarjetas, en cada
una de ellas hacer click el boton
[Siesta] si está el número que pensaste o
[Noesta] si no está el número.
Código para Excel, que simula un cajero automatico utilizando recursividad.
Ejemplo acerca de conectar con una base de datos de Access usando VBA desde un archivo de Word.
Para este proyecto el archivo de Word se publica como plantilla de word.
También el modulo estándar viene guardado en la base de datos por si acaso.
Video 1 acerca de como realizar este codigo:
Segundo video explicativo y guia.
Aplicación desarrollada en VBA sobre Excel para aprender ingles a modo de test, donde te realiza una pregunta y hay que indicar la palabra en ingles o español.
Permite especificar entre varios temas.

Numero Triangular con VBA (Visual Basic for applications) en Excel.
Un número triangular es aquel que puede recomponerse en la forma de un triángulo equilátero (por convención, el primer número triangular es el 1). Los números triangulares, junto con otros números figurados, fueron objeto de estudio por Pitágoras y los Pitagóricos, quienes consideraban sagrado el 10 escrito en forma triangular, y al que llamaban Tetraktys.
Según la ecuación de Ramanujan–Nagell, se considera que el número triangular más grande puede ser representado mediante la fórmula 2k − 1 es 4095.
Entonces cabe destacar que un número triangular es aquel número que puede ser representado a través de un patrón triangular que posee puntos espaciados de forma equilibrada.
Además los números triangulares pueden ser obtenidos gracias a la expresión:
[(n+1)(n+2)] /2;
Donde "n" es un numero natural mayor o igual que 1.

En esta oportunidad, les quiero mostrar una forma de encontrar, por medio de una secuencia, los divisores de N números y sus respectivos números perfectos.
Todo esto bajo programación VBA (Visual Basic for Applications).
Un número perfecto es un número natural que es igual a la suma de sus divisores propios positivos. Dicho de otra forma, un número perfecto es aquel que es amigo de sí mismo.
Así, 6 es un número perfecto porque sus divisores propios son 1, 2 y 3; y 6 = 1 + 2 + 3. Los siguientes números perfectos son 28, 496 y 8128.

Revisar, eliminar, modificar e ingresar registros en Access a través de un "UserForm" de Excel utilizando ADO (VBA).

Acceder mediante Excel VBA a los datos de una tabla en una base de datos MySQL en un servidor remoto.
Código generado en V.B. para una aplicación en Excel que calcula el camino óptimo del clásico problema T.S.P. o del vendedor viajante. Esta aplicación lo hace para una matriz de distancias de hasta 15 ciudades pero la planilla y el código pueden ser modificados a gusto de las necesidades de quien lo disponga. es aplicable no sólo al reparto o venta de productos, sino que también se puede utilizar en diversas disciplinas como por ejemplo la microelectrónica o cableados opticos, etc...
Hoja de calculo que calcula las notas finales de una materia sumando cuatro notas de un 25% para totalizar el 100%, después ese 100% lo lleva a una escala del 1 hasta 20, luego en la celda W79 de Hoja1 cuenta el numero de aprobados y en la celda X79 de hoja1 muestra el porcentaje que equivale N° de aprobados, lo mismo hace con los reprobados en las celdas W80 y X80 de hoja1 respectivamente, luego totaliza el numero de aprobados y reprobados.
Código que mediante una función de Excel programada en Visual Basic para Aplicaciones, devuelve el valor de un número en letras.
Un ejemplo básico para usar un form en MSWord.
E insertar datos en el documento de Word desde el UserForm.
Planificador de tareas con barras Grantt para Microsoft Excel.
Breve ejemplo de como crear una secuencia o progresión de números pentagonales, empleando VBA para tal fin.
Un número pentagonal es un número figurado que extiende el concepto de número triangular y cuadrado al pentágono, pero, a diferencia de los dos primeros, los patrones utilizados en la construcción de los números pentagonales no son simétricamente rotacionales.
El n-ésimo número pentagonal pn es el número de distintos puntos en un patrón de puntos, consistente en el contorno de pentágonos regulares cuyos lados contienen de 1 a n puntos, superpuestos, de forma que tienen en común el vértice. Por ejemplo, el tercero de ellos está formado de contornos compuestos por 1,5 y 10 puntos respectivamente, pero el 1, 3 puntos del de 5, coinciden con 3 del de 10, dejando 12 puntos distintos, 10 en forma de pentágono, y 2 dentro de él...

Los números de Lucas son los números pertenecientes a la sucesión de enteros, llamados así por el matemático François Édouard Anatole Lucas (1842-1891), que estudió tanto que la secuencia y los números de Fibonacci están estrechamente relacionados con los Lucas. No deben ser confundidos con la Sucesión de Lucas, que es la sucesión a la cuál pertenecen los números de Lucas.
De manera similar a los números de Fibonacci, cada número de Lucas se define como la suma de sus dos inmediatos anteriores, formando así una secuencia de enteros de Fibonacci. Los dos primeros números Lucas son L0 = 2 y L1 = 1 en contraposición a los dos primeros números de Fibonacci que son F0 = 0 y F1 = 1. Aunque estrechamente relacionado en la definición, los números de Lucas y de Fibonacci presentan propiedades distintas.
En este ejemplo, crearemos dicha secuencia con VBA (Visual Basic for Applications) en Excel.
Suma celdas de diferentes archivos de EXCEL y el resultado lo pone en la misma celda del archivo en el que se esta ejecutando el macro.
Se requiere:
1.- Crear una carpeta y almacenar TODOS LOS ARCHIVOS (NO IMPORTA EL NUMERO) que tiene celdas que se desean sumar.
2.- Almacenar el macro en el archivo de Excel en el que se desea se almacenen los resultados.
3.- Cambiar en el código del macro ChDir "C:\directorio\" por el directorio en el que se va a trabajar.
4.- Cambiar las variables que se describen en el codigo
Se pueden utilizar todos los macros que quieran con todos los archivos que se necesiten sumar
Creamos un módulo en nuestro proyecto de VBA y pegamos este código:
Funciona tanto para el Office 32 bits y 64 bits.
Para usar el código, dentro de nuestro formulario lo haremos de la siguiente manera.
mdlPrograma es el nombre del módulo que he creado.
Espero os sirva a todos
Código de Excel, que calcula la raíz de cualquier función mediante metodos numéricos.