Hola nuevamente, esta vez les mencionare que hay una excelente alternativa en filtros de datos de modo avanzado y a la cual se le denomina Turbo Filtro, hasta donde se los creditos pertenecen a Torsten Harden asi que espero sea de utilidad y cualquier comentario pues lo hacen porfavor [Hasta donde se no lo he visto por aqui en nuestro foro] Saludos desde Honduras Turbo filtro.zip

Hola: Cada vez es mas difícil encontrar algo que no se haya hecho ya. Por lo que no me queda mas remedio que volver a inventar la rueda. Os adjunto un sistema de como realizar una validación de datos sin utilizar la "Validación de datos" de Excel. ¿ Que ventajas tiene ?, Absolutamente ninguna, pero, ya sabeis, ........, como me aburría..... Saludos a todos. Tranquilo Toldeman, que te tengo presente en mis oraciones. Validacion.zip

Estimado forer@s para el estres, Algunos juegos bajados de la Web http://cid-286b02768fbd2333.office.live.com/self.aspx/.Public/Juegos.zip

Hola a todos! Resulta que este cuatrimestre estoy llevando la materia de Robotica en la escuela y pues el profe nos pidio una practica de hacer prender un led atravez de los puertos, ya sea el DB25 o el DB9. Yo opte por el RS232 (DB) ya que compre previamente un conversor de USB/Paralelo y no sirvio, ya que no lo detecta como puerto LPT1 asi que tuve que comprar un conversor USB/RS232 (DB9) el cual se instala como un puerto COM... Despues el materia restante... Un led y una resistencia de 220 ohms... Y por ultimo definir el lenguaje donde iba a programar y por supuesto que opte por VBA/Excel! Ahora se preguntaran como mandar la instruccion o señal para prender y ap…

Buenas, Aqui os dejo una pequeña tonteria para alegrar la mañana de este día Saludos! PD: Dedicado a los Macronianos RatonBorracho_vzs.zip

Compañeros: El 09-09-10 respondiendo al tema (con el mismo título y en el apartado Fórmulas y Funciones) del compañero Arturomenasuso subí archivos en los que más tarde detecté algún fallo, por lo que no puedo dejarlo pasar, con el fin de evitar que alguien lo utilice y le produzca inconvenientes. La solución no era tan trivial como supuse en principio, y la he estado trabajando duro hasta conseguir que funcione con garantías (espero) Para estar seguro, os agradecería que la diérais un repaso, haciendo algunos ensayos cambiando fechas de nacimiento y el número de días de antelación del aviso, y advirténdome de algún posible fallo. Muchas gracias. Acompaño archivo. E…

Bueno ya que esta cerca las festividades de Navidad, les envio este pequeño regalo (programita) para todos ustedes, que lo disfruten. PD. pueden cambiar el nombre del remitente y enviarlo como si fueran de ustedes a sus familiares. aqui el link de descarga MEGAUPLOAD - The leading online storage and file delivery service

Buenas Tardes Señores, hace algunos dias buscaba la solucion a como CREAR UNA TABLA DINAMICA CON MACROS, para lo cual estuve investigando y llegue a esta solucion. Si bien es cierto no les paso el archivo original (Por que ES DEMASIADO PESADO), les dejo una muestra la cual fue mi prueba para generar mi MACRO. Espero les sirva de mucho y cualquier Duda o Sugerencia por favor hacermela llegar que Gustoso los apoyare en lo posible. Si desean pueden modificar el codigo y adecuarlo al trabajo que les exije problemas. pruebita.zip

Hola: Adjunto una versión "cutre" del popular Paint de windows. Es otra aplicación del "evento" mousemove en la hoja. Color primario: Click en paleta de colores Color secundario: Click derecho en paleta de colores Modo pintar: Botón On/Off Click izquierdo, pinta con el color primario hasta nuevo click (Derecho o izquierdo) Click derecho, pinta con color secundario hasta nuevo click (Derecho o izquierdo) Para los que tengais hijos, ya teneis otra forma de entretenerlos. Saludos. Macro PintarCuadros.zip

Hola, Esto es una hoja con la que me he encontrado por accidente en una de mis busquedas de hojas por google. Vista por encima, hasta mi madre podria aprender a usar lo basico del excel, esta diseñada por etapas para los mas novatos. El archivo Saludos! EDIT: En el post4, (3 respuestas mas abajo), Luis ofrece una traduccion del archivo en expañol con alguna correccion hecha por el y por Antoni.

Hola! Esta vez aportare una formula la cual sirve para extraer solo numeros de una cadena de texto (o sea de una celda), pues bien la he mojorado, ya que con un colega en otro foro, la referenciamos y me pico lo adicto y la mejore para que sea utilizada en diferentes idiomas de Excel (GUANCHE si pasas por aqui dime si resulta con el sueco:cool:) No estoy seguro que exista en nuestro foro, la busque mas de una vez (o a lo mejor se perdio con el ultimo cambio que sufrio el mismo) =--EXTRAE(A2,COINCIDIR(1,--ESNUMERO(--EXTRAE(A2,FILA(INDIRECTO(1&":"&LARGO(A2))),1)),),CONTAR(--EXTRAE(A2,FILA(INDIRECTO(1&":"&LARGO(A2))),1)))[/HTML] Mejoras 1- Modifique est…

Hola Mas que un aporte de formato condicional, es como se obtiene formato condicional (va dirigido especialmente para los que comienzan con esto), independientemente lo que se quiera colorear... en otras palabras, esta gran herramienta de Excel, nos exige dos resultados, "verdadero" o "falso"... para alcanzar el objetivo Tecnica Si queremos complicarnos mas (o menos para otros amigos), podemos obtener el FC devolviendo con una formula algo como esto: >=1 que significa "verdadero", tambien =0, o errores como "N/A" u otros que significa "falso" El archivo adjuno, muestra mas claramente lo que quice explicar (y que es a raiz de un problema presentado en el foro), se …

Hola a todos; me he topado con una pagina, que nuestros senseis del vba podran sacarle partida, eso claro, si no la conocen , espero que no he visto cosas muy apañadas. AJP Excel Information AJP Excel Information - Clocks la conociais? Un Saludo. Jose Maria.

Hola: En el adjunto encontrareis un formulario, en este formulario, podreis Insertar, Eliminar y Actualizar cualquier hija del libro, desde 1 a 8 columnas. La hoja, debe tener una fila de encabezamiento con el nombre de las columnas. En dichos nombres pueden insertarse unos caracteres al principio y al final que nos permitirán saber en el momento de editar: (Se explican en el adjunto) Si el dato es obligatorio o no Si la columna admite duplicados o no Si la columna es modificable o no Si el dato tiene formato texto Si el dato tiene formato fecha Si el dato es numérico El formulario, se redimensiona de forma automática en función del nº de columnas, de igual form…

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

Hola: Allá por el mes de mayo, a raiz de una consulta de verzulsan, neverdelimon proporcionó un aporte a base de combinar APIS y un módulo de clase para conseguir un evento MouseMove en la hoja. Me ha parecido interesante y lo he recuperado con un ejemplo de como saber en todo momento la suma de un rango de celdas. En el adjunto hay dos macros, ArrancarMouseMove y PararMouseMove, creo que con el nombre ya está todo dicho. ArrancarMouseMove, se ejecuta de forma automática al arrancar el libro. Besitos. ¡¡¡ Me voy corriendo que viene Tutankamon y es un "plasta". !!! EventoMouseMove.zip

Hola: En el "otro foro", alguien hizo una consulta de como dibujar cuadrados en la hoja con los bordes de las celdas, y pensé, que forma mas estúpida de perder el tiempo y decidí que aburrirse todavía era una forma mas estúpida de perder el tiempo, o sea que aquí me teneis haciendo una herramienta para recuadrar rangos. Espero que os parezca tan inútil como a mi, pero si alguien tiene que hacer muchas plantillas, igual hasta le vale. Eso si, si alguien tiene dudas de como usar un control spinbutton, de como recuadrar una celda, o de como se pone color a un borde, igual le entretiene un rato. Pues nada mas, ya falta menos para la Navidad. Saludos. Macro. ¡Ah! Recu…

Hola! Adjunto un archivo, contiene userform (formulario) para visualizar la fecha y hora en el titulo y en la celda activa Espero sea de utilidad:) Saludos desde Honduras Fecha y Hora en Titulo de Userform (formulario).zip

Hola: Otra muestra mas del aburrimiento en un día de "perros" en Galicia. Se explica por si solo. Hasta la próxima si no me ahogan las lluvias. Editar listbox con multiselección.zip

Hola a todos Como el titulo lo indica, estas dos funciones son muy similares, pero "Replace" tiena ventaja... explico Ayuda de la funcion Application.WorksheetFunction.Substitute: El método Substitute reemplaza el texto nuevo por el texto original dentro de una cadena de texto. Utilice el método Substitute cuando desee reemplazar texto específico en una cadena de texto; use el método Replace si desea reemplazar cualquier texto que aparezca en una ubicación específica dentro de una cadena de caracteres. Sintaxis expresión.Substitute(Arg1, Arg2, Arg3, Arg4) expresión Variable que representa un objeto WorksheetFunction. Ayuda de la funcion VBA.Replace: Devuelve un…

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.

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…

Saludos a Todos. Subo el presente archivo cuenta con dos macros para el mismo encabezado y pie de pagina en todas las hojas, y un form para seleccionar mediante un list las hojas a las cuales quieres aplicarles el encabezado y pie de pagina, espero sea de utilidad. Atte. joshua Encabezado y Pie de Pagina.zip

Hola a todos: Aquí os dejo un libro con dos formularios para comparar 2 hojas: Al abrir el libro, se presenta un menú con 2 opciones: 1ª Opción - ESCOGER HOJAS Al pulsar la flecha en rojo, se abrirá un formulario donde se pedirá la localización de las dos hojas a comparar. Se pueden compara hojas del mismo libro o de distinto libro. Al pulsar el botón "Comparar hojas", si todo está correcto, la hoja seleccionada como PRIMERA, se copiará en la hoja "Primera" de este libro, y la seleccionada en como SEGUNDA, se copiará a la hoja "Segunda". Se cierra el formulario, se activa la hoja "Primera", y se ejecuta el formulario COMPARAR HOJAS. Los libros utilizados para sel…

No se si sera de utilidad o no , pero me lo he encontrado en la biblioteca que tengo, que estoy liado con lo de saber el nombre de los equipos de una red y a aparecido esto. Repito que no es mio. Sub NroSerieDisco() Dim fs, d, s, t, drvpath drvpath = "C" Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0: t = "Desconocido" Case 1: t = "Separable" Case 2: t = "Fijo" Case 3: t = "Red" Case 4: t = "CD-ROM" Case 5: t = "Disco RAM " End Select s = "Unidad " & d.DriveLetter & ": - " & t s = s & vbCrLf & "NS: " & d.SerialNumber MsgBox…