Antoni

Hola: La respuesta es si a ambas preguntas. Saludos.

Hola pueblo: A Gerson: Como bien dice tuve, yo tampoco consigo entender que es lo que te sucede. Dada mi vagancia genética, escribo lo menos posible, y jamás he utilizado .Value no solo en los controles ComboBox, si no, absolutamente en todos los objetos de Excel, salvo en los bucles For Each y con With, ya que algunas veces se confunde el valor con el objeto. A verzulsan: A ti quería yo pillarte,.....jeje. Así que utilizo el On Error Resume Next a la ligera,.....vale, vale, pues ahora te vas a enterar: Un momento que tengo que ir al baño,...... que me ha dado un apretón. ¡ Uff ...! Que tranquilo me he quedado,... sigamos. Utilizo Resume Next, si y solo si, tengo controlados absolutamente todas las posibilidades de error y continuar con el proceso, no constituye un problema para la normal finalización de la operación. En el caso que nos ocupa, es decir el aporte realizado, solo se produce un error, y es cuando se selecciona la totalidad de la hoja. En este caso se produce el error "Desbordamiento", dado que para la normal funcionalidad del aporte, el seleccionar la totalidad de las celdas no tiene ningún sentido, dejo terminar el procedimiento ya que su rango solo se aplica a las columnas 1-4 y a partir de la fila 10 y cuando se ha seleccionado una sola celda. Apuntar que con On Error GoTo Errores, desvías la ejecución a la etiqueta Errores:, que con Resume Next después de la etiqueta Errores: continúas inmediatamente después de donde se produjo el error y que con On Error GoTo 0, desactivas cualquier control sobre los errores que se puedan producir, y el procedimiento queda listo para usar otro On Error en cualquier otro punto. Decir también, que una instrucción On Error desactiava el On Error anterior y que si se produce un error en un procedimiento que no tiene control de érrorres, es como si el error se hubiera producido en el punto de la llamada a ese procedimiento. ¡Ah! y para finalizar, no te creas todo lo que leas en las páginas "guiris", que van todo el día "mamaos". Y recuerda On Error GoTo Consultar foro de Ideas y Aportes. Esperando que los idus de noviembre os hayan sido propicios. Antoni, alias "El Resume Next".

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

Hola: A falta de otra cosa, vamos a meter la cuchara Para numerar de forma absoluta por fila: Sub CorrelativosFila() For Each celda In Selection: celda.Value = celda.Row: Next End Sub[/CODE] Para numerar de forma absoluta por columna [CODE] Sub CorrelativosColumna() For Each celda In Selection: celda.Value = celda.Column: Next End Sub[/CODE] Para numerar de forma relativa [CODE] Sub Correlativos() For Each celda In Selection: x = x + 1: celda.Value = x: Next End Sub[/CODE] Para numerar de forma relativa a partir de la última numeración relativa: [CODE] Public x Sub Correlativos() For Each celda In Selection: x = x + 1: celda.Value = x: Next End Sub [/CODE] Pues nada mas, en cuanto os descuideis, atacaré de nuevo. Saludos

Hola: Como dije esto: y como ya he tenido 10 minutos libres, os subo el capricho del "nene verzulsan". Besitos al perro y patadas a la familia..... ¿ o es al revés ? ...... EmparejarEquipos II .zip

Hola Santi: A grandes males, grandes remedios, sortea los participantes. Otra solución consiste en generar aleatoriamente un array desde 1 hasta el Nº de elementos. y luego utilizar los valores del array variando el indice desde 1 hasta el Nº de elementos. Si no has entendido nada, no te preocupes, yo tampoco lo entiendo cuando lo leo. Cuando tenga 10 minutos libres, lo modifico, y lo vuelvo a subir. Saludos.

Hola: Aquí os dejo mi último pensamiento filosófico. En colaboración con Toldeman, hemos realizado el emparejemiento de n elementos, siendo n cualquier numero par mayor que dos. El sistema empleado, es un algoritmo de todos contra todos publicado en una página web, cuyo nombre no recuerdo ahora mismo, pero que está comentada en la macro. Esto puede utilizarse para realizar calendarios de competiciones a una vuelta o a doble. La macro muestra los resultado con emparejamientos a una vuelta, para confecionar la segunda vuelta, solo hay que copiar el Calendario e invertir los elementos. Debeís fijaros que un elemento que está en primer lugar en un emparejamiento dado, aparece en segundo lugar en el siguiente, y así sucesivamente, pudiendo usar esta característica como campo propio y campo contrario. A vuestra disposición, su fiel y seguro servidor, Macro. EmparejarEquipos .zip

Re: Cual fue tu primer post en AyudaExcel? Hola: Pues yo, no recuerdo ni de que va este foro........jajaja. Un abrazo a todos.

Gracias Abraham, Luis, Gerson, Never y Santi por vuestro interés y vuestros comentarios. Ahora ya se un poco mas sobre el tema. De hecho, yo para añadir una hoja copiando de otra, siempre había usado: Sheets("Antigua").Cells.Copy Sheets("Nueva").Cells[/CODE] Y al olvidarme .Cells en ambos lados, me di cuenta del tema. Saludos y besos para todos. Besos, de hermano, por supuesto,,,,jajaja Antoni.

Hola: He descubierto por error algo que desconocía. Worksheets("Hoja1").Copy Worksheets("Hoja1")[/CODE] Este código añade al libro una hoja con los datos de Hoja1 con el nombre "Hoja1 (2)" Si le añadimos: [CODE]ActiveSheet.Name = "Copia de Hoja1"[/CODE] Tenemos una forma fácil de copiar una hoja con el nombre que queramos, es decir: [CODE]Worksheets("Hoja1").Copy Worksheets("Hoja1") ActiveSheet.Name = "Copia de Hoja1"[/CODE] Seguramente muchos ya lo conociais, pero a mi me ha sorprendido que con el método Copy podamos añadir una hoja. Saludos. Antoni.

Hola Gerson: ¿ Es posible que tu adjunto esté vacío ? Saludos. Antoni.

Gracias Santiago: Le echare un vistazo. Saludos. Antoni.

Hola Gerson: Todavía estoy con la boca abierta, es impresionante, me lo guardo en el baúl de imprescindibles. Saludos. Antoni.

Hoy el mundo parece mas bonito que ayer.

Pues animo josémaría, solo es cuestión de ponerle ganas y tiempo. Gracias por la felicitación.

Hola a todos: Comparto con todos vosotros estos momentos de emoción y felicidad para estos trabajadores y sus familias. Chile ha demostrado que hay cosas que están por encima de las demás sin importar el coste y el esfuerzo necesarios para conseguirlo. Es una ejemplo para todos los países del mundo. Hoy, por fin, los telenoticiarios abrirán con una noticia feliz. Solo espero que la vuelta a la realidad de esas 33 personas mantenga el tono de ayuda y solidaridad de estos dos últimos meses y no caigan en el olvido cuando ya no sean noticia. También espero que esto sirva de ejemplo y los estados redoblen sus esfuerzos en controlar y perseguir a aquellas empresas mineras de todo el mundo para que no antepongan el lucro sobre la seguridad de los mineros. Paz, amor y felicidad para todos, y si hay un "pouquiño" de dinero, pues mejor. Antoni.

Gracia Guanche "sueco", felicidades a ti por cumplir años. Saludos. Antoni.

Hola: Tranquilo por lo de Marco, es habitual. Gracias por la felicitación. Un saludo. Antoni.

Hola: Hoy os dejo el formulario con menos código VBA del mundo, simplemente, no tiene. Al abrir el adjunto, os encontrareis con una formulario que contiene un mapa, se trata de ir moviendo el mouse suavemente por encima del mapa, e irán apareciendo comentarios sobre la ubicación donde se halle situado el puntero. Es el mapa del "Concello de Ames", provincia de La Coruña, en Galicia. Ahí vivo yo con mi mujer Nuria, mi hija Cristina, mi yerno Oscar, y "La joya de la corona", mi nieta Ainoa. Técnicamente, la cosa es sencilla, poneis una imagen de fondo en el formulario, colocais algunos label transparentes, sin borde, sin .Caption, poneis el la propiedad .ControlTiptext el texto que querais, y cuando paseis el mouse por encima del label, aparecerá el texto. Pues ya está, eso es todo. Un saludo. Macro. Formulario sin código VBA.zip

Hola: Curioso. Pensaré en que lo puedo aplicar. Saludos. Antoni.

Hola: Tu ríe, ríe,.... ya verás,..... estoy preparando un bombazo que irá directamente a la línea de flotación del buque "Formuliano", ya nunca volvereis a ser los mismos,.... o sea que disfrutad de lo que os queda de "vida",... porqué la deserción en vuestras filas va ser masiva y sin vuelta atrás. Ya me han llamado de Microsoft en cuanto se han enterado de mi proyecto, para hacerme SuperMega MVP, y hemos acordado que Excel 2012 ya no llevará fórmulas..... es vuestro fin. El que avisa no es traidor,......jejeje Saludos de Macro y besitos de Cleo.

Enhorabuena Abraham, es un honor poder compartir foro contigo. Un saludo muy cordial.

Hola tuve: Rolano ya te ha comentado que es el famoso N, se trata de un combobox con la propiedad .Visible = False, de manera que solo se ve en modo diseño. (Cinta del programador\Diseño). ¿ Y para que ?, para saber si hay duplicados, para ello, voy cargando el combobox N con los datos de las celdas aprovechando la propiedad .Text del combobox. Dicha propiedad, al modificarla, modifica el valor de .ListIndex del combobox con los valores: -1 Cuando el texto a buscar no existe en el combobox <> -1 Cuando el texto a buscar ya existe en el combobox En resumen, si quieres aplicar la macro en una hoja/libro distintos al ejemplo, debes añadir un combobox en la hoja, con nombre N y la propiedad .Visible = False Saludos.

Hola a todos, incluidos "vosotros", ya sabeis quien: Luego os quejais que me meto con vosotros, como no me voy a meter si os pasais el día provocando. Sois como aquellos que se empeñaban en decir que La Tierra era plana después que ya se había dado la vuelta al mundo. Dejadlo ya, ¿ No veis que las fórmulas son reminiscencias del pasado ? ¿Que Microsoft las mantiene para que no os paseis el día llorando ? Aquí os dejo una macro, con archivo adjunto para que Gerson no se canse. A pesar de todo, os quiero, os quiero igual que un padre quiere a sus hijos que tienen "algún que otro defectillo".......jajaja No os pongais tristes después de probar la macro, vosotros a lo vuestro copy/paste, copy/paste.... Un beso, esta vez si, para todos.......... Macro, anteriormente conocido como Antoni, os desea Feliz Navidad. PD: Ya se que no viene al caso, pero ya no sabía que poner y quería poner algo. Extraer unicos CON macro.zip

Hola: Pues el título lo dice todo. "Saudiños dende" Santiago de Compostela. Macro. CeldaQueParpadea.zip