En este vídeo vemos como utilizar la sentencia SQL - Select con variables, todo desde Excel y con VBA.

Os dejo una forma muy curiosa de detectar los iguales y distintos dentro de la misma columna a través del método Range.ColumnDifferences Pues nada mas. Sobre iguales y distintos.xls

Hola a todos: Aunque se ha contestado a esta cuestión un montón de veces, y como parece que la gente no se entera, porqué siguen preguntando lo mismo una y otra vez, a ver si tenemos mas suerte y se fijan en esta función. Function Buscar(Valor As Variant, _ Optional Columna As Integer = 1, _ Optional Hoja As Worksheet) As Double On Error GoTo NotFound If Hoja Is Nothing Then Set Hoja = ActiveSheet Hoja.Activate Columns(Columna).Find(Valor).Select Buscar = Selection.Row Exit Function NotFound: Buscar = 0 End Function [/CODE] Esta función, busca un valor en una columna, de cualquier hoja, de cualquier libro. Si encuentra el valor, dev…

Hola! Pongo a disposicion de todos, un nuevo complemento en el que estoy trabajando. Por el momento, dicho complemento incorpora una funcion de concatenacion personalizada, la cual permite la concatenacion de rangos e incluir un separador entre cada una de las celdas, espero que les sea de utilidad. Mas adelante espero poder agregar mas funciones y menus personalidados para realizar tarea personalizadas y de uso general. Les dejo el link en el cual podran descargar el complemento y ver el video de su instalacion: [DBOX]Complemento iSoft Utilities para Excel 2003/2007 | MeXcel Plus[/DBOX]

Hola: Me he tomado la libertad de subir la solución de esta consulta como aporte: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-potencias-formato-real-por-macro-udf-20916/ Los méritos corresponden a jrgces, autor de la descomposición, a shadowjuan, por haberlo dado a conocer, y a mjrofra que aporta la función que lo expresa con superíndices, yo he hecho de mero escribano. Saludos Descomponer en factores primos.xls

Hola a todos: Hay un aporte sobre el tema, pero este es diferente. Imaginemos que queremos ejecutar una macro desde la celda B7, la macro se lama "Macro724", que visualiza los pedidos del día. Es evidente que si ponemos Macro724 en la celda al usuario no le va a decir nada, pero si colocamos "Ver pedidos del día" y le hacemos pulsar sobre ese texto, la cosa ya parece un poco mas "apañadita" ¿No?. Pues vamos a ello: Abre un archivo cualquiera que tengas con macros. Añade la macro del aporte en cualquiera de los módulos que tengas. En cualquier hoja, y en cualquier celda, introduce un texto adecuado que describa cualquiera de las macros, en la celda siguiente por la …

¡ Ave !: El título lo dice todo. En el archivo encontrareis todo lo necesario. Que los idus de julio os sean propicios. Cargar combos por validación de datos.xls

Hace unas semanas me encontraba elaborando la macro para recolectar los datos de varios libros en unos solo. Había casos en los que debido a la mala disposición de los datos, mi macro no sería capaz de tomar los datos. Entonces, que hacer para informar de ello al usuario? Podría imprimir un mensaje en pantalla indicando el archivo y el tipo de error y detener la ejecución de la macro para que el usuario hiciera las modificaciones de forma manual y ejecutara nuevamente la macro. Este proceso no se me hizo tan fluido, así que me vino a la mente que en un anterior empleo había un sistema que llevaba un Log (bitácora) de todos los cambios y errores en el mismo, así que puse …

En este tutorial vemos como contar, con VBA, las palabras que contiene el texto de una celda en Excel.

Hola gente del foro, les dejo un video tutorial que acabo de terminar donde muestros los pasos a seguir para resolver algunos problemas comunes en tablas de excel y ademas automatizando todo con Macros. Espero sus comentarios. Saludos. Diego

Hola: Dedicado a los que les gustan las florituras en los formularios. Se trata de una función que permite validar el contenido numérico de cualquier control TextBox a medida que se va introduciendo el valor. Solo hay que copiar el módulo Función_TextBox_Validate y ya podemos utilizar la función en el formulario. La función devuelve un valor Double con el contenido del TextBox. Permite la utilización del símbolo de la moneda , tanto antes, como después del valor. Hay dos constantes publicas, Euro y Dolar, con el símbolo de dichas monedas, pueden definirse tantas como sean necesarias. Permite también limitar el número de decimales que se pueden introducir. La func…

Hola, He estado dándole vueltas mucho tiempo a esto, así que lo acabo de materializar tras descubrir la función ontime y os lo pongo para que le echéis un vistazo. Es un reloj de varilla. Hay por ahí ya intentos de reloj (que supongo funcionarán), pero para que funcionen hay que hacer mil historias, calcular senos, cosenos, ángulos, grados y muchas "cosillas" más, todo porque en Excel no se puede poner un punto de giro que no sea el central de una autoforma. Yo he tirado por el camino de enmedio: como una autoforma se puede rotar desde el centro, he hecho que el 50% de la autoforma que es la varilla quede transparente, así que puedo rotar "desde la base de la varilla", s…

Hola: ¡¡ Tachán, tachán !! Hoy os traigo una autentica "delicatessen". Se trata de un planificador de ejecución de macros en el tiempo. Admite cualquier número de macros a ejecutar. Las macros pueden estar en cualquier libro. El planificador puede activarse y desactivarse a voluntad. Se admiten periodicidades diarias, semanales y mensuales. La misma macro puede ejecutarse tantas veces como se quiera a lo largo del día. Por supuesto, solo funciona si el libro está abierto. Puede usarse el planificador de Windows para abrir el libro a una determinada hora. Al abrir el libro el planificador se activa de forma automática. ¡¡ MUY IMPORTANTE !! Ninguna de las sig…

. Anteayer se planteó una consulta en el foro de Microsoft Excel for Developers sobre como rotar una imagen en un formulario, cosa que no es nada fácil. Nada que ver con Girar o voltear una imagen, forma, cuadro de texto o WordArt - Excel - Office.com [DBOX]rotate a picture on a form[/DBOX] Al final Andreas Killer la resolvió en este foro: [DBOX]rotate a picture on a form - Microsoft Community[/DBOX] Se basó en un foro alemán de Visual Basic: [DBOX]VB 5/6-Tipp 0659: Grafik mittels GDI+ drehen und spiegeln - ActiveVB[/DBOX] Y yo he copiado la idea y adjunto mi aporte sin haber analizado la API de Windows GDI+ La tengo como tarea pendiente y me lleva de cabe…

Espero les guste ,una forma mas practica para la utilización de los formularios. Google Drive MATAMOROS.rar

Hola A veces algunos usuarios se pierden, en sus bases de datos, cuando estan haciendo muchos auto-filtros, en el sentido de que Excel da color nada mas a la flechita del filtro activo, pues bien lo que trata la siguiente macro es colorear el encabezado donde existe un filtro activo Espero sea de utilidad Saludos Colorear celda en filtro activo.zip

Hola El otro día cayó en mis manos un archivo llamado sapitos.xls. Se trataba de un juego en flash que se había insertado en una hoja de excel. El juego consiste en pasar tres sapos desde su situación a la derecha hasta la izquierda y tres sapos desde la izquierda hasta la derecha. Es decir intercambiar las posiciones iniciales de los seis sapos. En un momento tonto de aburrimiento decidí emular el juego pero directamente en excel, sin flash. Es evidente que el aspecto visual no tiene nada que ver. Pero el juego funciona, una macro de evento tiene la "culpa". El que lo quiera probar.... él mismo, ánimo que es sencillito. Un saludo desde Vitoria P.S. Adjunto el origin…

____________________________________________________________ Hola a todos: Producto del aburrimiento me ha salido esto. Para aquellos que teneis que hacer mucho copy/paste os dejo estas cuatro líneas de código. Colocarlas en la hoja deseada y: Seleccionar un rango + click derecho en la selección + clic en la celda de destino. ________________________________________________________ Dim Switch As Boolean Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Selection.Copy Switch = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Switch = True Then Target.PasteSpecial Application.Cu…

Hola amigos y amigas: En esta ocasion he creado un archivo en el cual, podemos ver en un grafico de un UserForm, el espacio usado y libre de cualquiera de los discos de nuestra PC. Para esto usamos funciones del API de windows. Ah, eso si, para ver correctamente este archivo, necesitas tener intalados los "Office Web Components 11". De no tenerlo puedes descargarlo de aquí: Descargar Ademas el codigo puede enseñarte a como manejar/mostrar los datos de una hoja como grafico en un Userform, lo que es muchas veces solicitado en los foros. Bueno, aqui esta el ejemplo: Enlace Por si acaso, ya esta en mi web tambien: ABRAHAM VALENCIA EXCEL Saludos y espero les g…

Hola bichos: Este es mi primer formulario en Word, espero que tenga mas éxito que mi primer aporte en Access. Se trata de un formulario que se abre de forma automática al abrir el documento de Word. Se abre el libro de Excel Direcciones.xls y se carga en un Listbox, al seleccionar cualquier elemento, los datos se traspasan al documento de Word. Abrir el archivo de Word, y si todo va bien, seleccionar un proveedor. Espero que os guste, y si no,..... no puedo reproducir lo que pienso. Os quiero, aunque alguno de vosotros es un poco Calcio+Bromo+Oxigenó+Nitrogeno+Cesio+Telurio, y si no es eso, se le acerca mucho,.....jajaja,......¡¡ Barça,....Barça,.....Barça !! Sobre…

____________________________________________________________________________ Os dejo una función para llenar un control Listbox/Combobox desde cualquier hoja con cualquier número de filas y columnas (Máximo 10). El resultado de la función es una variable tipo Long con el número de filas del combobox/listbox. LlenarListaCombo(Control listbox/combobox, Hoja [, Nº columnas=1, Fila inicio=1, Columna inicio=1]) Function LlenarListaCombo(ListaCombo As Object, _ Hoja As Worksheet, _ Optional Columnas As Long = 1, _ Optional Fila As Long = 1, _ Optional Columna As Lon…

Hola, No se si tal vez este repetido este aporte pero dejo pues un aporte sencillo que vale para cualquier formulario sin importar la cantidad de texbox o combobox que tengan, lo que hace es simplemente por medio de una UDF validar que todos los espacios del formulario estén llenos de lo contrario lanzara un mensaje con los espacios que faltan por llenar y los marcara en rojo. En un modulo normal colocamos esto: Function validar(form As Object) As String Dim txt As Control, x As String For Each txt In form.Controls If TypeName(txt) = "TextBox" Or TypeName(txt) = "ComboBox" Then _ If txt.Value = "" Then x = x & Chr(10) & txt.Name: txt.BackColor = vbRed Else…

Hola: A raíz de la respuesta a este post, se me ha ocurrido que podría ser interesante. https://www.ayudaexcel.com/foro/showthread.php?t=16247 En el adjunto encontrareis un formulario en el que destaca un control Web Browsser. En el visualizaremos los archivos .pdf escogidos de una lista (listview) seleccionada a través de un cuadro de dialogo para la elección de carpetas. Vereis que hay un botón, con el abrimos el cuadro de dialogo de selección de las carpetas. Se pueden escoger todas las que se necesiten. Una vez cerrado el cuadro de dialogo, aparecerán los .pdf en la lista. Con un doble-click en cualquiera de ellos, se visualizará en el control Web Browsser E…

Buenas noches amigos Mis respetos para todos. Tengo tiempo en que no aporto algo en el foro por lo que en este momento doy un pequeño ejercicio de buscar dato en listbox y que espero les sea util en el futuro. Saludos cordiales. Listbox1.zip

Hola a todo el mundo mundial: En su día prometí mantener actualizado el Índice de este foro, es decir el foro de Ideas y aportes. Y ahora, aunque con un poco de retraso, no nos vamos a enfadar por 6 meses mas o menos, jajaja, aquí está, todo vuestro. Paz y amor. Pd. Al que se crea que esto es un alarde de tecnología punta, se equivoca, copy/paste, copy/paste y mas copy/paste. Me ha costado toda la tarde de este sábado. Suerte que lleva todo el día lloviendo, VERSIÓN OBSOLETA: VER https://www.ayudaexcel.com/foro/ideas-aportes-64/nueva-version-del-indice-este-foro-actualizado-mejorado-30243/#post144262 Ideas y aportes a 10-11-2012.rar