Antoni

¡¡¡ cuidado !!! Al entrar en la pagina, me da una alerta de infeccion por virus. ARCHIVO: ........\panama.js Virus indeterminado

Hola Julio: Si no te llamas Julio, ¿Como te llamas?. Un abrazo. Antoni. PD. Por lo que veo, todos tenemos unos añitos. ¿Y si montamos un geriatrico?...ja...ja

Muy bueno Julio, lástima que no se le pueda dar de verdad.

Hola Gerson: Di por supuesto que se entendería que era en Excel 2007 por el comentario que hice, pero como suponer es la mejor manera de equivocarse, he modificado el título del aporte. Gracias por la aclaración , un saludo muy cordial. Antoni.

Hola: Estoy con mi Excel 2007 como un niño con un juguete nuevo. Para eliminar filas duplicadas: ActiveSheet.Cells.RemoveDuplicates Columns:=1[/CODE] En este ejemplo eliminaremos todas las filas con duplicados en la columna 1. No es necesario ningún orden especial. Se conserva la primera fila del grupo. Saludos. Antoni.

Hola: Parece que hay algún que otro problemilla para subir archivos. Abre una cuenta en Skydrive, y podrás subir archivos de forma inmediata, mientras nuestro "SuperJuli" nos lo arregla. Salu2. Antoni.

Hola "Juli", a mi no me dan miedo tus ojos,, je,je,, De donde yo soy, Galicia, dicen que no se sabe cuando vamos o cuando venimos. Pues eso, como buen Gallego, a vece si, a veces no, pues eso es lo que me pasa al subir un archivo, que a veces lo sube y otras veces no lo sube. Hago una prueba, en este mismo momento...... Vacío la caché por si acaso......., borro el historial para asegurar el tiro....... y vamos a subir el archivo......¡¡¡ Ha funcionado !!!!, voy a probarlo otra vez, pero ahora sin red, pues también a funcionado............ No entiendo nada, esta mañana lo he intentado varias veces y no ha funcionado. ¿ Se estará volviendo gallego el foro ? Salu2, y..... seguiremos informando. Antoni. Dejo el archivo como prueba. 3CommandButton.zip

No tuve el placer de conocerle, pero siempre es una pena perder a un compañero del foro. Que su recuerdo permanezca siempre entre los que quiso y los que le quisieron.

Re: Mensajes con duración de determinada Tranquilo Abraham, en ningún momento me lo tomé como un reproche, al contrario. Saludos cordiales. Antoni.

Mio 100x100

Re: Mensajes con duración de determinada Hola: Intento no repetir temas, pero entre mi memoria y lo extenso del foro, a veces se hace imposible. Saludos a ambos.

Hola: He encontrado en Daily Dose of Excel esta curiosidad que, yo particularmente, desconocía: Mensajes que solo están visibles cierto tiempo. Sub MensjeConTiempo() Tiempo = 3 'Segundos x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & _ Tiempo & " segundos", Tiempo, "Mensaje de duración determinada") End Sub [/CODE] Saludos. Antoni. PD: Por poco inglés que sepais, os recomiendo seguir los foros de "Feeds de otras Webs", hay autenticas maravillas.

Hola de nuevo: Hoy vuelvo a no poder subir archivos, he vuelto a borrar historial y caché pero nada de nada. ¿¿¿¿ ¡¡¡¡ ???? Salu2. Antoni.

Hola: Se me ha ocurrido que a lo mejor le interesa a alguien este formulario que subo. El formulario, permite imprime las hojas de un libro a dos caras. El procedimiento de impresión es el siguiente, se imprimen primero las hojas que ocupan un lugar impar en la colección Worksheets, de menor a mayor, luego, y una vez finalizada esta impresión, debe procederse a girar, en bloque, las páginas impresas, luego se imprimen las páginas que ocupan un lugar par en la colección Worksheets, de mayor a menor. Ejemplo 11 hojas: Se imprimen las hojas 1,3,5,7 y 9 giramos en bloque las 5 hojas impresas Luego se imprimen las hojas 10,8,6,4,2 y en último lugar la hoja 11 Limitación importante: Solo funciona correctamente en hojas de 1 sola página a imprimir. Salu2. Antoni. ImprimirDosCaras.zip

Hola: Gracias a todos, ya he limpiado todo lo limpiable y ya puedo subir archivos. Salu2. Antoni.

Lo intentaré Gerson, pero soy un inútil para estas cosas. Salu2. Calculadora Voy a probarlo... Pues parece que funciona.

Hola: Me suena totalmente a chino. Uso Google Chrome como navegador. ¿Que hago? Salu2. Antoni.

Hola: Yo sigo sin poder subir archivos. Cuando doy a Seleccionar archivos, solo aparecen los directorios de "Mis documentos", no los archivos. Aparecen si pones *.* en el nombre de archivo y das intro. Cuando seleccionas el archivo, aparece un circulo rojo que dice "archivo invalido". Pues eso. Salu2. Antoni.

Hola: Hoy una calculadora. http://www.megaupload.com/?d=RQ74603S Tan simple, como inútil y prescindible. El único aporte, es que puede interactuar con la hoja. Para practicar con CommanButon, TextBox y WorksheetFunction. Salu2. Antoni.

Hola Agerman: No te equivoques, me gusta el futbol, y me he alegrado de la victoria de la selección en todos y cada uno de los partidos que ha ganado, pero no me gusta que me manipulen. Lo de ayer para mi era un partido de futbol, nada mas, un partido que quería que ganara España, desde luego no era una lucha patriótica al estilo de "Patria o muerte". Se acepta como pornografía aquello que puede herir tu sensibilidad. Pornografía me parece que no haya habido una solicitud de embargo a los ingresos de la Federación Española y a la Asociación de clubes de fútbol profesional por parte del Ministerio de Hacienda, para atender las deudas por impuestos y seguridad social de los clubes de fútbol, en especial a los de primera división. Porqué ese dinero si sale de mi bolsillo, y si tan patriotas somos que los jugadores vayan gratis a la selección de su país si tan orgullosos están de ello. Eso si, mañana discutiremos si hemos de rebajar las pensiones de viudedad o de si la jubilación debe retrasarse a los 70 años. Siento vergüenza de ser ciudadano de este país. Espero que ahora te haya quedado mas clara mi postura. Salu2. Antoni.

Por fin: ¡¡¡ CAMPEONES !!! Vengo siguiendo los mundiales desde Chile 1962, y jamás había visto una selección española con mas futbol en sus botas. Es hora de disfrutarlo, porqué esta alegría durará poco, a pesar que los medios de comunicación se ha empeñado en que el mundial se convirtiera en una especie de batalla donde España debía de luchar contra los infieles del futbol y que nuestros futbolistas eran una especie de cruzados que de forma altruista, abandonando familias amigos y hacienda, habían ido a luchar dando su vida por la patria si era necesario. Dentro de un par de días, nos despertaremos del sueño, la misma crisis, el mismo paro, las mismas familias atrapadas en la desesperación de no poder hacer frente a los pagos, eso si, somos campeones del mundo, y unos mercenarios del futbol, que no cruzados, tienen 600.000 € mas en el bolsillo a costa de la ilusión de millones de compatriotas. Hay un refrán que dice: "Que poco dura la alegía en casa del pobre". Salu2. Antoni.

Re: Disculpas a los foreros. Hola: No puedo enviar respuestas.

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 seleccionar las hojas, se utilizan solamente para copiar las hojas y una vez realizada la copia, se cierran y ya no vuelven a ser utilizados. 2ª Opción - COMPARAR HOJAS Al pulsar la flecha en rojo, se muestran las diferencias encontradas en la hoja Activa. Si la hoja activa es la hoja "Primera", se mostrarán las diferencias en esa misma hoja con respecto a la hoja "Segunda". Si la hoja activa es la hoja "Segunda", se mostrarán las diferencias en esa misma hoja con respecto a la hoja "Primera". Las diferencias, se muestran como comentarios en la celda. Se pueden buscar diferencias en datos y en formulas de forma independiente. Las diferencias, se muestran también en una lista ordenada por fila y columna, pulsando sobre el label de la cabecera de la lista, se invierte el orden columna/fila por fila/columna y viceversa. Pulsando sobre cualquier elemento de la lista, se seleccionará la celda con diferencias y se mostrará el comentario con el valor de la misma celda correspondiente a la otra hoja. Como siempre, se esperan comentarios y propuestas de mejora. Saludos. Antoni. DiferenciasEnHojas.zip

Hola Gerson: Efectivamente, hay un error, no se como ha pasado, porqué lo probé mucho, pero ha pasado. Queda así: 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 Hoja.Columns(Columna).Find(Valor).Select '<============================ Buscar = Selection.Row Exit Function NotFound: Buscar = 0 End Function[/CODE] De todas formas, en el adjunto, van todos los ejemplos. Abrir Libro1.xls para verlos. Gracias Gerson. Saludos. Antoni. Libro1.zip

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, devuelve el número de fila, si no lo encuentra, devuelve 0. Consta de tres parámetros: [CODE] Valor El valor a buscar Obligatorio Columna Columna en donde buscar Opcional Se asume 1 Hoja Hoja donde buscar Opcional Se asume ActiveSheet La forma de llamada es: Fila = Buscar(Valor, Columna, Hoja)[/CODE] Ejemplos: Busca "Antoni" en la columna 1 de la hoja activa [CODE]Fila = Buscar("Antoni")[/CODE] Busca "Antoni" en la columna 3 de la hoja activa [CODE]Fila = Buscar("Antoni", 3)[/CODE] Busca "Antoni" en la columna 3 de la hoja "Proveedores" [CODE]Set MiHoja = ThisworkBook.Sheets("Proveedores") Fila = Buscar("Antoni", 3, MiHoja)[/CODE] Busca "Antoni" en la columna 3 de la hoja "Proveedores", en el libro Cuentas.xls [CODE]Set MiHoja = WorkBooks("Cuentas.xls").Sheets("Proveedores") Fila = Buscar("Antoni", 3, MiHoja)[/CODE] A tener en cuenta: Si se informa el parámetro Hoja, cambia la hoja activa. Saludos a todos. Antoni.