............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

problema con ciclo for

Ver el tema anterior Ver el tema siguiente Ir abajo

problema con ciclo for

Mensaje por Emiliano Galasso el Miér Feb 22, 2012 8:05 pm

Estimados,
Estoy adaptando una macro que había encontrado para insertar una imagen como logo. Es un proyecto el cual consiste en un carné digital para el colegio donde trabajo. Entre todas las hojas que tiene, hay cuatro que corresponden a los carné para imprimir con las notas. Cada hoja tiene 30 carné (uno por alumno). Esto hace que tenga que insertar 30 logos en cada una de las cuatro hojas.
Obviamente el objetivo de la macro es evitarme todo ese trabajo y, si el colegio cambia el logo, no tener que cambiarlo en cada carné, basta sólo con cambiar la imagen que se encuentra en una carpeta. También me evitaría tener que insertar el logo o quitarlo dependiendo de la cantidad de alumnos que tenga cada grupo.
Como en la macro vi que hay algunas cosas que se repiten, se me ocurrió ponerle un ciclo For. Le agregue un If para que, si aparece el nombre del alumno, inserte el logo en su carné.
El problema es que no logro que el ciclo For funcione (es la primera vez que intento hacer un ciclo For por mi cuenta) y no me doy cuenta donde está el problema (aunque reconozco que no se si está bien o mal lo que escribí o si voy bien rumbeado). El If funciona lo más bien.
Subo un archivo con una imagen como ejemplo.
Archivos
logo.zip No tienes los permisos para descargar los archivos.(77 KB) Descargado 6 veces
avatar
Emiliano Galasso

Masculino Cantidad de envíos : 40
Edad : 45
Ciudad - Pais : Montevideo-Uruguay
Version de Excel : 2003-2007
Fecha de inscripción : 15/10/2010

Volver arriba Ir abajo

Re: problema con ciclo for

Mensaje por moises melgar el Jue Feb 23, 2012 10:38 pm

Sr Emiliano "Caballero dorado de Escorpion"
Aca te dejo la ayuda:
Version: 2007
Código:
Sub cargarlogo()
On Error Resume Next
Application.ScreenUpdating = False

For Each s In Sheets
Select Case s.Name
Case "Hoja1", "Hoja2", "Hoja3" ' Coloca los nombres de las hojas a colocar los # de logos necesarios.

For x = 0 To 2 ' Si necitas 2 logos es las hojas elegidas coloca 0 To 1, 3 logos coloca  0 To 2, 4 logos coloca 0 To 3 , etc
    If s.Range("A1").Value <> Empty Then
        s.Shapes("foto_del" & x).Delete
        rango1 = "A" & 3 + (x * 10) & ":B" & 10 + (x * 10)  Use el rango que tenias como ejemplo multiplos de 10 A3:B10, luego  A13:B20, luego A23:B30...etc
        ruta = ActiveWorkbook.Path & "\" & "Logo.jpg"
        Set fotografia1 = s.Pictures.Insert(ruta)
        With Range(rango1)
        Arriba = .Top
        Izquierda = .Left
        End With
        With fotografia1
        .Name = "foto_del" & x
        .Top = Arriba
        .Left = Izquierda
        .Width = 110#
        .Height = 110#
        End With
        Set fotografia1 = Nothing
    Else:
        s.Shapes("foto_del" & x).Delete
    End If
Next x

End Select
Next s
Application.ScreenUpdating = True
End Sub
En tu caso para insertar 30 logos en vez de 0 To 2 coloca 0 To 29
Archivos
Logo 1 idea.zip No tienes los permisos para descargar los archivos.(133 KB) Descargado 10 veces
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: problema con ciclo for

Mensaje por Emiliano Galasso el Jue Feb 23, 2012 11:02 pm

Muchísimas gracias Melgar alias Shaka Caballero Dorado de Virgo, jeje (aunque estoy viendo a Naruto ahora, jjeje ya sé, un hombre de 40 años viendo dibujitos animados o animé o manga, estimula la imaginación y creatividad digo yo).
Funciona bárbaro, ahora queda adaptarlo.
Saludos,
Emiliano
avatar
Emiliano Galasso

Masculino Cantidad de envíos : 40
Edad : 45
Ciudad - Pais : Montevideo-Uruguay
Version de Excel : 2003-2007
Fecha de inscripción : 15/10/2010

Volver arriba Ir abajo

Re: problema con ciclo for

Mensaje por moises melgar el Jue Feb 23, 2012 11:15 pm

Se me pasaba Mencionar al logo que desees cargar debe estar dentro de la carpeta del archivo y debe tener ese nombre "Logo" y por el codigo debe ser .jpg

igualmente estoy viendo Naruto Shipudden pero me aguanto a la serie bajo la tentacion de leer el manga. ahh tengo 23 años ejerzo la lic en Contabilidad y aun veo las series animadas, estan bien chidas.

avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 551
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: problema con ciclo for

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.