Aqui dejo una funcion para separar cadenas con delimitador, funcion split vba, espero que os guste UDF-SPLIT.xlsm

. Hola foreros: Os dejo esta UDF que convierte la diferencia entre una fecha y el día de hoy a letra/número. Tiene varios parámetros. =EdadEnLetras(celda fecha[;parte][;solo números]) En el adjunto encontrareis varios ejemplos. Un saludo desde Santiago de Compostela . Calcular edad o antigüedad.xls

Hola! No se si en el foro esta UDF ya fue proporcionada por alguien (no recuerdo haberla visto), pero de todos modos la dejo como un aporte (desde luego mejorable y pues como las UDFs son precisamente para ahorrarnos tiempo, espero sirva de algo:)), tambien es probable que se encuentre en algun lugar en internet, como dice un amigo por ahi, los problemas que aqui se presentan, ya alguien los enfrento antes y se los resolvieron:cool: Sirve para ver los dias que contiene un mes cualquiera, solo es necesario digitar una fecha valida en Excel Saludos a todos! UDF diasmes.zip

Buenas a todos, Esto es para el tema [sOLUCIONADO] Ordenar números en una sola celda que esta ya cerrado como solucionado donde German abrio una pregunta, cuando me puse a hacer la funcion no me di cuenta que el tema estaba cerrado asi que lo pongo aqui como aporte general. Se trata de dos UDF, una ordena de forma ascendente y otra de forma descendente usando el metodo burbuja. Unicamente has de usar las formulas =aorden(A1) para ordenar ascendentemente y =dorden(A1) para ordenar descendentemente, tambien puedes combinarlas en una sola, =dorden(A1)-aorden(A1). Quizas con esto te resulte mas comodo realizar tu estudio. Adjunto el archivo, y una lastima que no deje esc…

Hola: Este aporte lo he hecho en forma de UDF, con un formulario, a modo de ejemplo de su aplicación Se trata de encontrar el archivo creado mas recientemente en un directorio con una extensión determinada. Se me ha ocurrido a raíz de esta consulta, que además no es la primera vez que se hace. https://www.ayudaexcel.com/foro/macros-programacion-vba-10/foto-desde-userform-30681/ Se trata de capturar la imagen tomada con una webcam y pasarla a un formulario. Las webcams, al menos las que yo conozco, son capaces de guardar la imagen en un directorio. Pues una vez tomada la imagen, utilizando esta función, podemos obtener el último archivo de imagen creado en ese direc…

Hola a todos: Ahora me ha dado por profundizar en mi conocimiento sobre el uso de nombres. (Names). En el adjunto encontrareis una macro en el evento Change de la hoja que crea una serie de nombres con datos correspondientes al último rango modificado en la hoja. Fijaros en las fórmulas de las celdas resaltadas en amarillo. Modificar cualquier celda y fijaros en el cambio de los valores de dichas celdas. (Amarillo) Es un aporte muy teórico y dudo que sirva para mucho, pero nunca se sabe. Saludos PD. No funciona en Excel 2003. Datos del último rango modificado.rar

En el zip que adjunto vemos: - En la hoja Datos (del archivo Hojas de Consulta y de Datos.xlsx) una clásica tabla de datos de 6 columnas. En la tercera de sus columnas vemos la clave única que identifica cada fila de datos. - En la hoja Consulta (del mismo archivo) vemos que se quieren traer los datos correspondientes a 3 de las columnas de la tabla anterior. ___ Una combinación entre COINCIDIR e INDICE nos podría resolver el problema, por ejemplo. Sin embargo: ¿Qué pasaría si la tabla de "datos fuente" tuviese 300 mil filas y 50 columnas, y pretendemos consultar por 120 mil de sus datos?... Y la respuesta es que probablemente: ¡Se nos colgaría el Exce…

Los programadores de VBA solemos estar solos muchas horas cuando codificamos las aplicaciones y nos distraemos jugando al solitario de Windows. Pero no siempre se puede jugar porque las empresas impiden su uso porque "piensan" que se pierde productividad si se distrae un@ pasando un rato jugando solitariamente. Si tienes restringido el acceso y uso de juegos, ¿por qué no jugar con Excel? ¿O es que acaso no hay buenos juegos escritos en Excel y VBA? ¡YAAAAA en sus pantallas un nuevo SOLITARIO en Excel! Gracias a las ideas expresadas en los temas: La última versión 2.x está probada en Excel 2003 y 2010: SOLITARIO_PW2x.zip SOLITARIO_PW10.zip SOLITARIO_PW1…

Hola: Una solución alternativa a los combos dependientes, el control TreeView. Os dejo prestado, a condición de que me lo devolvais, un formulario, a modo de ejemplo de funcionamiento, del control TreeView, he añadido unas macros sacadas de la página de "El Guille", a quien no tengo el placer de conocer, pero que me han ayudado a confeccionar este aporte. Un saludo. "Macro". VistaEnArbol.zip

Hola: Pues eso, un cronometro hacia atrás. Se puede parar / reanudar y restaurar.. Saludos Crono.xls

Hola: Esta macro, coloca un reloj en A1, para arrancarlo, ejecutar la macro, y para pararlo, rellenar A1 con el color rojo. Sub RELOJ() On Error Resume Next If ActiveSheet.Cells(1, 1).Interior.Color = vbRed Then Application.OnTime Hora, "RELOJ", SCHEDULE:=False Else ActiveSheet.Cells(1, 1) = Now Hora = Now + TimeValue("00:00:01") Application.OnTime Hora, "RELOJ", SCHEDULE:=True End If End Sub [/CODE] Saludos.

He aquí mi intento de crear una sola función(UDF) en la que podamos validar campos de texto o realizar otras funciones como borrar todos los campos de un formulario de una manera simple con solo copiar un código en un modulo, un "4 en 1" por el momento. Que podemos hacer con esta UDF ? : -Comprobar que campos están vacíos dentro del formulario. -Borrar todos los campos de un formulario. -Validar que solo se puedan introducir números en un campo -Validar que solo se pueda introducir texto en un campo -Convertir un valor numérico en formato de moneda local (formatcurrency) Cual es la ventaja de utilizar esta función? : -Funciona para cualquier formulario sin importa…

Hola En el enlace siguiente pueden obtener el archivo .: Unicos en Combobox ActiveX Espero sea útil! Saludos

Buenas con todos. En esta oportunidad les compartire una macro que une las hojas de varios libros en una sola hoja. En la anterior entrega que hice comparti una macro que hacia lo mismo pero solo para los archivos de excel 2007 en adelante con extension (*.xlsx), hice una modificacion y ahora tambien sirve para archivos 97-2003 con extension (*.xls). Luego de descargarlo lo abren ejecutan la macro open files y les aparecera el cuadro de dialogo donde podran seleccionar los archivos de excel a unir. Espero les sea de utilidad Saludos Unir_varios_libros.rar

Estuve revisando los aportes de este sub foro y me encuentro con una macro muy similar a la que hice en el 2012. Pude comprobar que funciona muy bien; sin embargo tengo mi propia versión. quise subir el archivo zip ... pero me aparece un mensaje que el archivo es demasiado grande; sin embargo el archivito pesa a lo mucho 300 kb.... Editado por administración: Subir archivo directamente al foro. Recopilador de Hojas.zip

Hola a todos: En esta oportunidad compartiré con ustedes una aplicación en vba la cual nos permite unir todas las hojas de un libro de excel especifico en una sola. Esto funciona de la siguiente manera: - Presionar la combinación de teclas ctrl + H - Luego de la lista elegir el libro al cual se le van a consolidar sus hojas -Posteriormente escribir el nombre de la hoja en donde se unirá la información de todas las hojas. -Dar clic en el boton unir - Finalmente se mostrara un mensaje con la finalizacion del proceso. Cabe señalar que esta aplicación coloca el nombre de cada hoja en la primera columna del archivo consolidado. Espero que les haya sido de utilidad e…

Buenos días amigos del foro en esta oportunidad les traigo un aporte. Se trata sobre una macro que unifica varios libros en 1 solo. Ejecutan la macro que se llama "Open_Files" luego les pedira seleccionar los archivos de excel que desean unificar y la aplicacion juntara la información de los archivos seleccionados. Espero les pueda ser de mucha utilidad Unificar_libros_Excel.rar

Decodifica los caracteres especiales de las URL segun el standar (ISO 10646, ISO 8879, ISO 8859-1); basado en el listado de la páginaHTML Codes - Table of ascii characters and symbols. 'Funcion: URL Decodign; _ Decodifica una cadena URL codificada 'Fuentes: http://ascii.cl/htmlcodes.htm Public Function GetDecodedURL(URLencoded As String) As String Dim Pcod As String Dim Pchr As String 'Primero se reemplaza los caracteres especiales para que no sean pisados por el contador Dim RempQue() As String, RempPor() As String RempQue() = Split("%352;%338;%339;%352;%353;%376;%402;%8211;%8212;%8216;%8217;%8218;%8220;%8221;%8222;%8224;%8225;%8226;%…

Hola pues haber si me exprese bien en el titulo. Bueno esta es una idea para crear formularios mas parecidos a una aplicación o por lo menos mas "llamativos a la vista", el userform tiene efectos de transición y alguna que otra cosita. No hace nada importante pues es solo para que vean los efectos en el userform Las opciones de buscar no las he programado por lo que no hacen nada todo lo demás funciona. Si tienen alguna duda o sugerencia no duden en decirme... Hago una pequeña encuesta para ver que les pareció espero no les moleste. Probado en Excel 2010 y 2013. Añado a servidores externos por tamaño. Microsoft SkyDrive - Access files anywhere. Create docs with free…

Que tal gente Excelera, que gusto compartir con esta comunidad, al igual que ustedes me gusta mucho el Excel y paso casi todo el día frente a uan hoja de cálculo aparte que soy contador y trabajamos en ellos. Quiero aportar un userform Excel circular, el archivo logra esta forma mediante una API y declaraciones window. Desconosco la fuente oficial si alguien la sabe sería genial, solo recuerdo algo de Cyclotron. Fuente descarga: INTERVENIDO Userform Excel Circular.xls

Utilidad: · hacer una entrada en nuestras presentaciones El título de presentación de nuestra exposición se muestra por unos breves segundos creando un efecto especial como antesala a lo que vamos a exponer, después se oculta, así está configurado en el Módulo 1 Sub Oculta() Unload FormPresentacion Application.Visible = True End Sub Sub Mostrar() Load FormPresentacion FormPresentacion.Show Exit Sub End Sub Podemos alargar nuestro tiempo en que se muestra nuestro Título de presentación en el Código del UsrForm¸ para este caso son 5 segundos Const tiempo = "00:00:05" '= 5 segundos Los textos → Etiquetas y la Imagen que está en este mismo archivo deben…

Hola a to2,...to2: El motivo de la presente es para comunicarles que como estoy hasta el "forro" de que a pesar de estar ya en pleno siglo XXI, siguen apareciendo una y otra vez el tema dichoso de proteger la información a los usuarios, he decidido acometer la tarea de hacer un sistema de protección de la información de forma definitiva. De momento, se limita a un control de acceso por medio de usuario y contraseña. Posteriormente, también podrá limitarse el control acceso a rangos concretos dentro de la hoja. A partir de la adjudicación de perfiles, cada usuario solo tendrá acceso a las hojas que le indique ese perfil, eso nos evitará tener que adjudicar permisos u…

hola! pongo a su disposicion las siguientes dos herramientas, se trantan de dos complementos para hacer realmente tareas faciles y utiles en excel, los cuales solo hay que descargargos e instalarlos y ya podemos usarlos: el primero es el data peeg explode: se trata de un poderoso autofiltro para separar datos. datapig freeware incluso vienen buenos tips para formulas y programacion en excel (desgraciadamente en ingles), incluso hace uso de videos! el segundo es el jmt excel utilities: guau! esta si que es una superherramienta pensada en automatizar grandes tareas en excel, cuenta con grandes utilidades para hojas, datos y otras... jmt excel utilities* - jmt excel co…

Hola todos, hace mucho que no aportaba algo y es que el trabajo y nuevas actividades combinadas con una mala gestion de mi tiempo no me alcanza el dia. Les comparto que estoy aprendiendo a bailar, huy que delicia sobre todo para socializar con el sexo opuesto, jajaja. Tambien pronto estaré en el departamento de planeacion de la demanda en la empresa en la que laboro, nuevos retos como aprender estadistica, mejorar mis graficos y aprender la vision comercial. Aún asi he seguido programando en VBA/Excel y he ampliado mis modulos de clase y me he programado un modulo con el codigo para simplificar la codificacion de tareas repetitivas y tediosas en mi trabajo y que estoy se…

En alguna ocasión se han encontrado con el problema de querer colocar una validación de datos en un celda pero que sea de ciertos caracteres, entonces se necesita usar la validación de datos "personalizada", entonces utilizamos el siguiente codigo =SUMAPRODUCTO(((ESERR(ENCONTRAR((EXTRAE(MAYUSC(A1), FILA(INDIRECTO("1:" & LARGO(A1))),1)), "AÁBCDEÉFGHIÍJKLMNÑOÓPQRSTUÚVWXYZ "))))* 1) = 0 ***sustituir la celda A1 por la celda donde se colocará la validacion*** en la parte de codigo "AÁBCDEÉFGHIÍJKLMNÑOÓPQRSTUÚVWXYZ " Se colocan los caracteres a validar, en el ejemplo anterior solo acepta letras, si queremos solo numeros colocamos "1234567890" Si queremos solo le…