Antoni

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.