UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Insertar posición de imagen 2 PORFA el 26/03/14, 11:10 am

Invitado


Invitado
Buenas tardes, no puedo y no se, cambiar el concepto en la hoja "PEDIDOSFALCATA":
If Union(Target, [E7:E95]).Address = [E7:E95].Address Then

Para que el rango sea [E7:E500].

Y en la hoja "PEDIDOS CLIENTES":

Para que el rango sea [E4:E700].

Algo mas tengo que cambiar, pero no se como hacerlo.

Un saludo

tyno


Hola Luis.
El código que inserta las imágenes va tal cual esta en cada Hoja que quieras utilizarlo, por lo tanto lo copias y lo pegas en su respectiva Hoja. Seleccionas la Hoja y con Alt+F11 se abre el editor de macro y pegas el código.
Con respecto al rango pues solo cambia los valores como tu mismo lo has indicado:

Por ejemplo si es [E7:E500] entonces debe ser:
If Union(Target, [E7:E500]).Address = [E7:E500].Address Then

y así para cada caso. Saludos

Invitado


Invitado
tyno, gracias por contestarme, te subo el archivo y veras que no esta bien soy un zoquete.
Un saludo
Archivos
PRUEBA.xlsb
(129 KB)

Invitado


Invitado
tyno, lo había hecho anteriormente, lo que tu me dijiste y me da errores por eso te he mandado el archivo. Tambien he cambiado:
For a = 4 To 40
por
For a = 4 To 500
Y me da muchos errores, como por ejemplo, escribo en la celda E7, el nombre del modelo y no sale nada, pero cuando escribo en la celda E11, me sale en la D7, la imagen que no habia salido anteriormente.
Si salto varias celdas y escribo en E40, me sale la foto en la D39.
Perdona todas las molestias
Un saludo

tyno


Hola Luis.
Antes que nada no te olvides de establecer el rango de acción de la macro:

If Union(Target, [E4:E700]).Address = [E4:E700].Address Then

por lo que vi en el código estaba así:
If Union(Target, [E7:E700]).Address = [E7:E700].Address Then

Y luego en la columna donde va el código de los modelos no pongas otra cosa que no sea los codigos,
es decir en al columan E quita ese encabezado que se llama "Modelo" o fechas, etc. En lugar de escribir en la celda la palabra "Modelo" o cualquier otro texto puedes ingresar una Autoforma y asignarle el nombre Modelo, etc.

Saludos.

Invitado


Invitado
Buenas tardes, tyno, gracias por todo.
Ahora me funciona bien, pero se podria agregar que si el modelo no tiene foto, salga por ejemplo, la foto 1, y la haria con una en blanco.
Como te agradezco lo que me estas ayudando.
Un abrazo

tyno


Se puede hacer pero te va a rellenar toda la columna con una foto blanca donde no exista un código ingresado. El tema también es que creo que la macro te volvería a dar el error de antes,  ya que no puede haber un código que no exista.
Lo que se me ocurre es que podrías crearte con el paint una imagen, es decir, abrís el paint y le insertas el texto "NO HAY FOTO DISPONIBLE" o cualquier texto alusivo, y guardas ese trabajo como archivo jpeg o jpg con el nombre de algún código de modelo que aun no tengas la foto, luego copias esa misma imagen jpg que creaste y la pegas con el nombre de otro código de modelo y así cuantas veces lo requieras dependiendo de los modelos que no tengas fotos. El día de mañana cuando tengas la foto del modelo simplemente haces el reemplazo. Saludos

Invitado


Invitado
Gracias por todo, eres FABULOSO, gracias por tu ayuda.
Que DIOS te bendiga
Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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