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

Esto de las referencias, no hay quien las entienda; supuestamente, para trabajar con el objeto VBProjectComponents, hay que activar la referencia Microsoft Visual Basic Extensibility xx.x, sin embargo, tu la desmarcas y te funciona. No lo entiendo. Saludos "Dexter". Antoni.

Gerson: ¿ y a tube porqué no le dices que suba el archivo ?, ¡Claro!, como ya tienes el mío,....jajaja Gracias tube, muy buena la reducción de código, no pensé. Saludos.

Hola Gerson: Es un error que despista. Incluye la referencia Microsoft Visual Basic Extensibility 5.0, y verás como funcióna. (Bueno, eso creo). Saludos.

Hola: ¿ No le estaremos dando excesiva trascendencia a algo que no la tiene ? El foro es un conjunto de personas que preguntan porque quieren y otro conjunto de personas que contestan porqué les da la gana. Esto no es un problema de razón, si no de opinión, todas las opiniones, si se exponen con respeto, deben caber en el foro, y aunque no coincidan con las de uno, no por ello debemos manifestar ni malestar ni animaadversión hacia nadie. Las opiniones contrarias a las nuestras son las que nos enriquecen. Y después del "rollo pastoral", y sobre el tema, decir que estoy en línea con Toldeman. Pues nada, feliz domingo a todos. Antoni.

Hola Catracho: Pues tienes razón, aportando el archivo, quizás alguien mas se anime a experimentar con el tema. De todas maneras, pienso que la curiosidad debe ser una de las cualidades que debes tener si deseas aprender. ¿ No se lo estaremos poniendo demasiado fácil ? Saludos. Antoni. FijarScrollArea.zip

Hola Rolano: Está muy bien, y muy bien presentado. Saludos.

Hola: De cuando en cuando me dedico a bucear por las páginas especializadas de Excel en la Web. Ha partir de una macro encontrada en ozgrid , he adaptado este código para no salirse del rango de la hoja. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'Ultima fila LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious).Row 'Ultima columna LastColumn = Cells.Find(What:="*", SearchDirection:=xlPrevious).Column 'Fijar área de scroll ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address End Sub [/CODE] "Saudiños".

Hola: ¿ Que tal están mis dos "formulianos" preferidos ? Para no ser meno aquí os dejo una UDF que hace lo mismo. Public Function DiaDeLaSemana(Fecha As Range) As Variant If Fecha.Cells.Count > 1 Then Exit Function If IsDate(Fecha) = True Then Dia = Array("Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado") DiaDeLaSemana = Dia(DatePart("w", Fecha) - 1) End If End Function [/CODE] Saludos. German: Yo a veces mato moscas a cañonazos, pero tu las matas con torpedos de antimateria.......Ja ja ja ...

Hay un error en el adjunto de ayer. Sustituir esta fucnión: Function ADO_CONEXION(CONEXION As Object, Optional DATABASE As Variant = "MyDB") On Error GoTo ERROR_ADO_CONEXION '====================================================== ' Obtiene una conexión con la base de datos '====================================================== Set CONEXION = New ADODB.Connection Application.ScreenUpdating = False ThisWorkbook.Worksheets("SQL").Cells(9, 2) = "ADO_CONEXION" For x = 3 To 7: ThisWorkbook.Worksheets("SQL").Cells(x, 2) = "": Next x CONEXION.Open DATABASE 'CONEXION POR ODBC ADO_CONEXION = 0 Exit Function '------------------------ ERROR_ADO_CONEXION: ADO_CONEXION = 1 ThisWorkbook.Worksheets("SQL").Cells(5, 2) = Err.Number ThisWorkbook.Worksheets("SQL").Cells(6, 2) = Err.Source ThisWorkbook.Worksheets("SQL").Cells(7, 2) = Err.Description '------------------------ End Function [/CODE] Un saludo.