Antoni

Hola: Relacionado con el tema: https://www.ayudaexcel.com/foro/showthread.php?t=12427 Salu2. Antoni.

¡¡¡ Muchas Felicidades !!!

Hola: Con permiso de Potter, me he permitido la libertad de traducir los comentarios y estructurar un poquito su aporte: He cambiado el color "Blanco" por el color "SinColor", y aclarar que, la celda activa quedará rellenada de color verde y que se eliminará cualquier color que pudiera haber en la fila de la celda activa inmediatamente anterior a la actual celda activa: Dim FilaAnterior As Long Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' Rellenamos la celda activa de color verde ActiveCell.Interior.Color = vbGreen ' Si es la primera vez, guardamos la fila de la celda activa como fila anterior If FilaAnterior = Empty Then FilaAnterior = ActiveCell.Row ' Si no es la primera vez, eliminamos el color de relleno de la fila anterior ' si la celda activa está en otra fila que la fila anterior ElseIf Not FilaAnterior = ActiveCell.Row Then Rows(FilaAnterior).Interior.ColorIndex = xlNone End If ' Guardamos la fila de la celda activa como fila anterior FilaAnterior = ActiveCell.Row End Sub [/CODE] y también funcionaría así: [CODE] Dim FilaAnterior As Long Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next ActiveCell.Interior.Color = vbGreen If Not FilaAnterior = ActiveCell.Row Then Rows(FilaAnterior).Interior.ColorIndex = xlNone FilaAnterior = ActiveCell.Row End Sub [/CODE] Salu2. Antoni.

Hola: Jamás hubiera imaginado que esto iba a dar tanto juego. Para Fleming: A ver como pones tu solución en una macro. Para Mauricio: Definitivamente, tu solución es la mejor. Para Versulzan: No te quepa duda que tu "solución" la ha usado alguien. Para todos: Hay una solución que te va a llevar 0 segundos: Procura que la hoja la copie otro,...,ja,ja,ja... Gracias a todos por el entusiasmo, y dado el éxito de este aporte, mañana enviaré otro: "Como rellenar una celda de color verde" Hasta la próxima y saludos a todos. Antoni.

Hola Verzulsan: Vamos a centrarnos. Evidentemente que hay que decirle la hoja que quieres copiar. "MiHoja", es solo un ejemplo. Me despistó tu comentario acerca de "renombrar la hoja", y con el defecto de no leer atentamente, entendí que te referías a darle nombre a la hoja de destino. La hoja destino se genera como "Hojan", siendo n el Nº de hoja que le toque. Si quiere darle nombre a la hoja destino. ActiveSheet.Name = "MiHojaNueva"[/CODE]

Hola Verzulsan: A mi me funciona perfectamente tal como lo he subido, de hecho, hice el procedimiento con la grabadora. Salu2. Antoni.

Hola Agerman: Copia absolutamente todo. Salu2. Antoni.

Hola: Esta macro hace, simplemente, lo que dice el título del aporte. Sub CopiarHoja() Sheets.Add: Sheets("MiHoja").Cells.Copy: ActiveSheet.Paste End Sub [/CODE]

Mauricio, tu siempre tan atento.

Hola Verzulsan: Me ha gustado, sabía obtener imágenes de rangos, pero no de esta forma. Salu2. Antoni.

Hola: Procedimiento de "Guardar como" con comprobación de existencia del archivo a guardar. Private Sub GuardarComo(Directorio As Variant, Libro As Variant) Dim Objeto_Archivos As Object Dim Lista_Archivos As Object Dim Archivos As Object Dim Archivo As Object Dim Encontrado As Boolean Set Objeto_Archivos = CreateObject("Scripting.FileSystemObject") Set Lista_Archivos = Objeto_Archivos.GetFolder(Directorio) Set Archivos = Lista_Archivos.Files For Each Archivo In Archivos If Archivo.Name = Libro Then Encontrado = True Next If Encontrado = True Then MsgBox "El archivo: " & Libro & " ya existe en este directorio.", vbInformation, Directorio Else ActiveWorkbook.SaveAs Directorio & "\" & Libro End If End Sub[/CODE] la forma de ejecutar el procedimiento: [b] [CODE]GuardarComo "C\MiDirectorio", "MiLibro.xls"[/CODE] [/b] Salu2. Antoni

Hola "mj", pasame "el par de bucles", que me faltan para completar la colección,...ja,ja,... Es un placer poder contar con tus aportaciones. Salu2. Antoni.

Hola Verzulsan: Suspendiste Física, pero debiste suspender Algebra, porqué son 256x256x256 posibles valores, en 3 bytes, con un total de 24 bits ja..ja..ja.. Espero que no te molestes por la broma, pero estamos con un tema distendido y se presta a ello. Un abrazo. Antoni.

Hola: Realmente veo que te aburres tanto como yo, también paso mucho tiempo investigando el sexo de los ángeles, pero ya casi estoy seguro de que sexo son, ja..ja..ja.. Dos cosas, una, ya se ver los mensajes privados ¿ Recibiste la contestación a tu último mensaje ? y dos, en una de las frases dices 16777216 se corresponde con el máximo direccionamiento que se puede hacer con 3 bytes, 2 elevado a 24, o lo que es lo mismo 16 elevado a 3, en hexadecimal desde 000000 a FFFFFF. Por eso con Excel 2003 no se puede pasar de ese número de celdas, porque utiliza 3 bytes para su direccionamiento.Si independizamos los 3 bytes como 00,00,00 obtendremos la configuración RGB (RedGreenBlue) del color negro y con FF,FF,FF la del color blanco. (Forma en la que las propiedades Blackcolor y Forecolor de los controles en un formulario aparecen en el proyecto VBA). Como tu ya has comprobado, la variación de cada byte de 0 a 255 (Hexadecimal 00 a FF) se corresponde con las tonalidades de los colores base Rojo, Verde y Azul. Pues eso es todo, tenía ganas de intervenir y no sabía como. Por cierto, lo del vídeo es alucinante, espero que algún matemático o estadístico experto en distribuciones/dispersiones nos de una explicación sobre el tema. Salu2 a to2 to2............. Antoni.