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.

Hola logtoastur: Ya me funciona, era un problema de concepto, gracias, muy bueno por cierto. Salu2. Antoni.

Hola: Los combos me aparecen vacios. ¿ Alguna idea ?. He intentado seguir el código pero, en este bucle no encuentra ningún eolemento. For Each fca In fc ComboBox1.AddItem fca.Path Next fca [/CODE] he quitado todos los On Error, pero no da ningun error. Salu2. Antoni.

Hola: Rectifico todo lo que he dicho hasta el momento. ¡¡ Me he equivocado al calcular las potencias de 2 !! A todas ellas hay que restarle 1 al exponente, por lo que cualquier afirmación mía efectuada en base a ello es totalmente falsa, entono un "mea culpa" y pido disculpas por ello, no se puede ser tan impulsivo. Y, en cuanto a los valores máximos, yo creo que va mas ligado a la longitud de los campos intermedios que utiliza Excel para esta función, podrían ser 4 bytes 2^32. Lo que no me queda claro, es porqué aumenta el máximo del dividendo a medida que aumenta el divisor, cuando la lógica me dice que debería ser al revés. En Excel 2003, para el nº de filas debe usar 2 bytes 2^16 y para el nº de columnas 1 byte 2^8. Todo ello es una opinión, y por ello, mas que discutible. Saludos. Antoni.

Hola Verzulsan: Me da que hablamos diferentes idiomas, a ver, tu dijiste: Yo lo único que he pretendido decir es: 2^27 no es igual a 134.217.728, es igual a 67.108.864. 268.435.455 es el valor máximo con módulo 2 y que corresponde a (2^29) - 1, y esto además, respondiendo a tu pregunta, lo especifica Fleming en su aporte en la fila 11. Espero que después de esto sigamos siendo todos amigos,, ja,ja Saludo cordiales. Antoni

Hola a todos: Lamento contradecirte Verzulsan, pero tal como indica Fleming, el valor máximo es de 268.435.455, que corresponde a 2^29 y no a 2^27. Con la función Mod de VBA, conseguimos llegar a 2.147.483.647, que corresponde a 2^32, valor máximo binario de 4 bytes correspondiente al tipo de datos Long. La utilización del tipo de datos Double, no altera el resultado. Salu2. Antoni.