superzpider

d2enri respondió: Supongo que la palabra EN DOMICILIO estará siempre en el mismo rango si es así dime en que celda la panes y te paso el código

angelcrisnor respondió: Cuando a un rango que ya tienes seleccionado necesitas cambiarle más de una propiedad tienes que hacerlo con With Selection y a continuación todos los cambios. P.ej. para el primer case: Case "EN CLIENTE CARGANDO" Range("A" & LTrim(Str(Target.Row)) &...

angelcrisnor respondió: Prueba a ver con esto: ... ... Range("A" & LTrim(Str(Target.Row)) & ":R" & LTrim(Str(Target.Row))).Interior.ColorIndex = 41 ... ...

Elsa Matilde respondió: Encendé la grabadora de macros. Clic derecho sobre la imagen, opción Formato. En la ventana que se abrirá, pestaña Imagen, presioná el botón Comprimir y seleccioná tus opciones. Aceptá. Detené la grabadora y en un módulo encontrarás las líneas que...

edwinhenao respondió: Revisa la ruta y el nombre de la imagen, así como, el nombre de la hoja. Set pic = .Pictures.Insert("C:\Imagen.jpg") With Sheets("IMAGEN").Range("A1") ... Worksheets("IMAGEN"). Shapes. AddPicture("C:\Imagen.jpg", True, True, 235, 180, 480, 300).Select

edwinhenao respondió: Muy interesante tu pregunta prueba este código, hay que agregar un On Error porque la primera vez que se ejecuta la macro no encuentra la imagen y luego a lo último le damos un nombre para poder borrarla. Sub Copiarimg() On Error Resume Next...