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.

Hola Gerson: No había reparado en esta respuesta: No sufras Gerson, somos mas de cuatro los que nos hemos "apropiado" del foro, somos todos aquellos que cada día nos pateamos el foro de arriba a abajo, leyendo peticiones de soluciones que ni nos vienen ni nos van, y que además somos cuestionados porqué discriminamos nuestras respuestas. Eres una de las personas con mas paciencia y amabilidad y dedicación de este foro, no cambies por favor. La reglas deben existir porqué es lo que nos permite la libertad y la convivencia en todos los ámbitos de la vida. Muchas personas dicen y hacen las cosas porqué pueden hacerlas, pero muy pocas se preguntan si deben hacerlas, y todavía muchas menos se preocupan de sus consecuencias. Un abrazo, "catracho". Antoni.

Hola: ¡¡¡ Vamos hombre !!! Alegría, que son cuatro días y para amargarnos ya tenemos bastante con la vida real como para amargárnosla en el CiberExcel. Salu2sssssss a todosssssssss......todossssssss. Antoni.

Hola: Pues, yo, como me apunto a un bombardeo, también voy a dar mi opinión. El foro es un lugar donde aprender, no un lugar donde te enseñan, el que quiera que lo enseñen que vaya a un curso. El foro está compuesto mayoritariamente por dos tipos de personas, los que preguntan, y los que contestan. Pienso que el objetivo de alguien poco experimentado debería ser el pasar del primer al segundo grupo de forma paulatina. Deben ser este tipo de personas las que tienen que contestar a las cuestiones mas sencillas. Pero hay mucha gente que se cree que el foro es la Wikipedia de Excel, y evidente-mente, no es así. El objetivo del foro es compartir conocimientos, tanto a un nivel bajo de conocimiento como al mas alto nivel. Yo como, otros muchos, no "cuatro", nos dedicamos mayoritariamente a contestar en lugar de preguntar, y mis motivos, seguramente, son distintos a los de otras personas que responden. En mi caso: 1) Dispongo de tiempo. 2) Soy un fanático de la programación. 3) Soy curioso, y siempre dispuesto a aprender algo nuevo. 4) Contesto a cuestiones expuestas de forma clara y que se ajustan a las normas. 5) Contesto, para que cuando yo pregunto, me contesten. 6) No contesto a temas que ya han sido contestados 7) No contesto a preguntas que buscando en Google, u otro buscador se encuentran fácilmente, o que usando la grabadora de macros se resuelven. 8) No contesto a los que plantean peticiones globales. 9) No contesto a cuestiones que están siendo respondidas por otros, salvo que pueda aportar algo nuevo 10) No contesto a peticiones por vía privada Resumiendo: Contesto a quien me viene en gana y a los temas que me aportan algo, ya sea como entretenimiento, o porque me interese el tema en cuestión, y me tiene sin cuidado si mis conocimientos molestan a alguien, porqué mis esfuerzos me han costado, y estoy muy orgulloso de ellos. Hace 3 años, solo usaba Excel para controlar los gastos domésticos. Salu2 a todos en especial a "la banda de los cuatro". Antoni.

Hola Julibaga: ¡¡ Muy bueno !!, pero dado que tenemos compañeras foristas, y para que no digan que somos unos machistas, te propongo un cambio, a ver que te parece: Salu2. Antoni.