Ramon Pla

Daniel Espino respondió: Con algo así debería ser suficiente: Sub copiar() Set h1 = Sheets("Hoja1") Set h3 = Sheets("Hoja3") h3.Cells(1, 3).End(xlDown).Offset(1, 0) = h1.Cells(1, 1) End Sub

Daniel Espino respondió: Usa la fórmula: =SUSTITUIR(DIRECCION(FILA(), COLUMNA()), 1,"") En caso de que tengas activada la opción de referencias absolutas agregamos un sustituir más: =SUSTITUIR(SUSTITUIR(DIRECCION(FILA(),COLUMNA()),1,""),"$","") Solo sirve en la fila 1.

Abraham Valencia respondió: [Hola Los datos que muestras son solo una imagen, aquí todos ayudamos en nuestros tiempos libres y es complicado darse tiempo para transcribirlos, por lo que yo, al menos inicialmente, te diría que pruebes con "Pronostico" y similares:...

Abraham Valencia respondió: [Hola Si están en la hoja, y estás hablando de Listbox y TextBox de los controles ActiveX, dales clic derecho elige "Formato de control", pestaña "Propiedades" y ahí elige "No mover, ni cambiar tamaño con celdas". Comentas Abraham Valencia

Ruben Guevara Jaramillo respondió: Antes que nada, te quiero dar las gracias porque muchas veces me ayudaste a sacar adelante proyectos que tenia, en los cuales la única respuesta venia por parte de ti en este foro. Muchos éxitos en tus nuevos proyectos

Andy Machin respondió: Lo que deseas hacer es imposible, por como lo tienes estructurado. Quizás por eso no te han respondido, tal vez creen que no aceptaras esa respuesta. Te explicaré por qué no se puede hacer lo que quieres. Excel, si es muy bueno, pero tiene sus...

Andy Machin respondió: Ya has probado con Application. Speech. ¿Speak()? Eso hace hablar a Excel ja. Nunca lo he usado pero se que existe. Entre paréntesis le pasas un String. Puede ser una referencia a una celda también. Para activar y desactivar la opción por macro usas...