No es gran cosa, pero ahí lo dejo. He puesto en un formulario un textbox limitado a 650 caracteres. Mi idea es poner un contador de caracteres restantes para saber cuándo se va a llegar al límite. Aporto la solución que he encontrado a ello: Crear el textbox donde escribiremos, ej. Textbox1 Configurar MaxLength del TextBox1 (.MaxLength=650 en un WITH, o desde el menú de la izquierda) (650 es mi límite, cada uno pone el que quiera; no recomiendo 0) Crear un textbox que nos hará de contador ej. TBContador Configurar TBContador sin texto (.Text="" en un WITH, o desde el menú de la izquieda), con color de fondo "Cara de botón" (H8000000F) y SpecialEffects ponerlo a Fla…

Hola: Al abrir el archivo encontrareís una estructura de datos. En la fila 1 van los títulos de los niveles En las columnas A:B van el detalle de los niveles. En cada nivel hay que indicar cual es su inmediatamente superior. No "existe" límite en el número de niveles (Nº de columnas de Excel) Espero que os guste. Paz y amor Organigrama.xls

Tal como dice el titulo, desde hace dos meses que he estado trabajandon en la implementacion de una clase que pudiera emular algunas de las bondades que nos propocionan las Listas de Python o los Arrays de Ruby... si bien esta clase no se compara en lo absoluto con estos grandes objetos si que simplifica alguna de las tares mas habituale respecto al menejo y gestion de matrices en VBA con respecto a usar una matriz de forma tradicional. Pienso seguir ampliando y mejorando la clase, pero por ahora dicha clase es de utlidad, la estoy ocupando para un proyecto que estoy desarrollando.... Les dejo el enlace a mi blog para mayor informacion y descarga de la misma. Saludos! …

Nota: cualquier funcionalidad nueva, con gusto se puede agregar (con sus respectivas menciones). Presentando en sociedad mi complemento con el mismo nombre de este Blog: EXCELeINFO. Trata de un add-in con algunas funciones generales aplicables a archivos de Excel. He tratado de incluir las utilidades que durante el transcurso de tiempo me han sido fundamentales para desempeñar mi trabajo. Con el paso del tiempo iré añadiendo más funciones, pero creo que esta primera versión pública es totalmente funcional. La característica principal es que los menús principales se distinguen por la primera letra del nombre del menú, además de que sólo es funciones con versiones de Excel…

Hace poco estuve trabajando a fondo en un proyecto que calcularía a futuro (3 meses) los días de inventario para varias divisiones, categorías, mg y sku por cliente. Para empezar las bases de datos con los que tendría que hacer los cálculos (inventarios, sell in, sell out) eran bases de datos que superaban los 500 mil registros, tuve que verme en la necesidad de previamente compactar la información de manera manual usando tablas dinámicas, luego supuse que tendría que crear varios resúmenes de datos, ya sea por cliente, categoría, etc… así que pensé pudiera hacerlo en Access (y quizás hubiese sido buena alternativa), desgraciadamente el prototipo tenía que estar listo en …

Hola como están.. bueno hace poco tiempo que estamos por estos lado y harto que me han ayudado, es por ello que quiero hacer llegar a ustedes un archivo que tenia en mi bobeda llamado la biblia de Excel, esta muy bueno para iniciarse en los aspectos básicos ya que detalla mucho y paso a paso. Solo eso espero que disfruten y les sirva a todos SLDS Biblia.de.Excel.2007.rar - Windows Live !!!Cualquier problema me avisan para reparar¡¡¡

. Después del último "aporte" que he hecho, fustrado aporte por cierto, os dejo un formulario con una búsqueda sobre una columna. Doble-click sobre las flechas de avance posicionan en el primera/última ocurrencia. . Buscador.xls

Buenas noches Siguiendo con los aportes que siempre son tan buenos como los ya publicados y que nos ayudan a mejorar nuestros trabajos y dan ideas para hacer otras cosas mas atractivas, le dejo a continuación un nuevo aporte el cual y como su nombre lo indica; es para envío masivo de mensajes. Se destaca lo siguiente: Los correos se encuentran en la hoja"Destinatarios". Cuenta con un bucle que recorre cada fila e insertar el correo. también se aplica al .CC y el Bcc. así como también el Subject, el Body. No es necesario escribir el "Buenos días", "Buenas tardes", o "Buenas noches" ya que cuenta con un procedimiento el cual, según la hora mostrar el mensaje corresp…

Hola: Función para, dada una fecha inicial y un número de días laborables, obtener una fecha final. Formas de llamada: FechaFinal = SumarDias 'Obtiene el siguiente día laborable a hoy FechaFinal = SumarDias(Fecha) 'Obtiene el siguiente día laborable a Fecha) FechaFinal = SumarDias(Fecha, Dias) 'Obtiene la fecha transcurridos un nº de días) En el propio libro, debe existir una hoja de nombre "Festivos" con los días festivos excluidos sábados y domingos. Estas fechas deben informarse en la columna 1. De no existir la hoja "Festivos", debe informarse de un tercer parámetro en la llamada: FechaFinal=SumarDias(Fecha, Dias, False) Si además se quieren excluir los sábad…

Hola buenas cómo están todos? Anteriormente le había dejado el aporte de la teoría de como realizar Gráficos de Columna esta vez les dejo un enlace en el cual van a poder visualizar la teoría que existe detrás de los gráficos de barras sin duda es vital saber esto antes de empezar a realizar gráficos sobre todo en MS Excel. http://excellentias.com/graficos-de-barra-teoria De verdad la información es 100% única en español espero les sea de utilidad. Saludos. JuanM

Hola, Os dejo aqui un archivo auxiliar que hice por necesidad de crear una animacion de casilla en un programa de ajedrez que ando haciendo en C++, como ya esta terminada esa fase de animacion, lo iba a guardar en el baul y me acordé de vosotros, quizas os guste para tener mas flexibilidad a la hora de pintar del color que mas os interese el color de fondo de las celdas. Aqui la formula, donde Pix.R, Pix.G y Pix.B han de ser sustituidos por el valor ROJO, VERDE, AZUL que os interese en un rango entre 0 y 255, habrá otros metodos pero este es el mio: Dim P8 As Double: P8 = 2 ^ 8 'potencias de colores Dim P16 As Double: P16 = 2 ^ 16 'potencias de colores …

Buenas a tod@s siempre he dado por sentado que realizar la restauración de una modificación de datos por parte de la ejecución de una macro era posible pero a la vez harto dificil por lo que revisando y nevegando he localizado el siguiente codigo que realiza dicha labor es decir dar la opción de deshacer ;con el menu deshacer lo realizado, por una macro restaurando los datos que hubiese antes de ser ejecutada el aporte es de la pagina http://spreadsheetpage.com/index.php/tip/C32 y el codigo Option Explicit Type SaveRange Val As Variant Addr As String End Type Public OldWorkbook As Workbook Public OldSheet As Worksheet Pu…

Hola a todos; Os dejo una pequeña aplicación para la gestión de una base de clientes, altas, bajas, modificar, etc. Espero que os sea de utilidad. Está todo realizado básicamente con formularios y desprotegido de forma que se puede ver todo el código que he utilizado, tan solo se pide una clave para cuando deseamos eliminar la base de datos completamente, es ese caso la clave es: 123 Quiero comentar que no soy programador, simplemente me gusta trabajar con excel y a lo largo de los años he ido aprendiendo de forma autodidacta. Aunque este programa ya lo he publicado en mi blog y es descargado muchas veces, me ha parecido una buena idea dejarlo en el foro, un lugar donde…

Hola: A pesar de que es un tema muy tratado, continúan produciendose consultas de como calcular el tiempo transcurrido entre dos horas de distintas fechas. Aquí os dejo una macro con la intención de que arroje un poco de luz sobre el tema. Saludos a todos, en especial al "nuevo" (Neliño) DiferenciaPeriodo.zip

Aqui os dejo un pequeño aporte de la funcion Ontime, que reproduce un efecto parpadeo de texto en una celda, el codigo esta en modulo, y tambien en thiswork, espero que os sirva de utilidad. P.D. Perdonar por la licencia de agradecer a todos los compañeros, y y maestros que nos ayudan a saber mas como hacer excel mas facil. Saludos Rafa Efecto parpadeo.zip

En este ejemplo vemos como ocultar, con VBA, hojas de un libro de manera permanente.

Saludos. Envío archivo con un ejemplo que desarrollé y que de golpe, pueda ser útil. Si consideran que puede mejorarse, bienvenidas todas las recomendaciones. BarraProgreso.xls

Hace algunas semanas hubo una consulta sobre cómo generar todas las combinaciones posibles en grupos de 5 mediante una macro, pero durante la discusión se tuvo que descartar la posibilidad de usar código VBA porque quien inició la consulta utiliza un mac y no le corría la macro. En mi primera respuesta ( https://www.ayudaexcel.com/foro/excel-general-6/macro-que-genere-todas-combinaciones-posibles-5-numeros-25551/#post125849 ) contesté que para mí el principal problema era que no podía imaginar una fórmula que devolviese tan sólo las combinaciones sin repetición con el número de elementos deseado. Ofrecí una solución basada en fórmulas matriciales que devolvían (utilizand…

(NUEVO) AimKeys (Enviar combinacion de teclas directamente al buffer del teclado) Mi aporte no es la API (mas info de la API al final del post), sino la función AimKeys, que no es más que un gestor de combos de teclas muy sencillo de usar. Usa la misma sintaxis que AIM Keys, All-in-One Macro Utility, el cual llevo años usando y quizás por esto me resulte coherente usar dicha sintaxis. En la demo, cuyo código pongo debajo de este párrafo, encontrareis algunos ejemplos de uso, es bastante intuitivo pero si tenéis alguna duda puedo poner más ejemplos. Sub AbrirNotepad() AimKeys "<winr>r<winr><wx>(200)notepad<enter><wx>(700)" End Sub …

Hola gente, Bueno es la primera vez que comparto algún archivo que espero le sea de utilidad a algún afortunado :biggrin:. La estructura de este archivo la baje no me acuerdo cuando de no me acuerdo donde y lo creo quien sabe XD, si eres el autor original de la estructura de este archivo o sabes quien lo creo por favor indicame para agradecerte o pedirte el permiso respectivo para postear tu archivo modificado por mi. Bueno ahora si, este archivo lo utilizo en mi oficina pues tengo muy frecuentemente que enviar muchos correos que tienen el mismo "Asunto", mismo "Cuerpo" pero tienen diferentes archivos adjuntos, básicamente lo que hace este archivo es: Agregas mediante…

En este ejemplo vemos como acceder a la Web de Yahoo Finance y descargamos las cotizaciones del Ibex-35 de un periodo.

Buenas tardes Como el coste de la energía eléctrica esta por las nubes, envío una pequeña aplicación para calcular el ahorro al cambiar la lámparas convencionales por lámparas led. Solo hay que rellenar todos los campos y observar las cantidades en los textbox Los precios están tomados por la última factura de gas natural fenosa, pero como es sabido casi cambian todos los meses. le agradecería a los maestros revisaran el código ( yo lo fui haciendo tomando datos de otros códigos del foro) y me dijeran donde se puede mejorar Gracias Un saludo José Carlos CALCULO CONSUMO LAMPARAS .zip

Hola Sabemos que existen varias formas para cerrar un formulario, y una de las dificultades para lograr esto es hacerlo presionando la tecla "Escape" Espero les sirva [DBOX]Cerrar Formulario (UserForm) con tecla "Escape"[/DBOX] Saludos

Hola: Pues el título lo dice todo. "Saudiños dende" Santiago de Compostela. Macro. CeldaQueParpadea.zip

Hola: Os dejo esta macro que comprueba que todos los TextBox de un formulario contienen información. Los errores son remarcados con fondo amarillo. Si hay errores, el cursor se posiciona en el primer TextBox erróneo. Private Sub ValidarTextBox() Dim Errores As Integer, Campo As Control, Control As Control For Each Control In Controls If TypeOf Control Is MsForms.TextBox Then Control.BackColor = vbWhite If Control.Value = Empty Then If Campo Is Nothing Then Set Campo = Control End If Control.BackColor = vbYellow Errores = Errores + 1 End If End If Next If Errores > 0 Then …