Luis Herrero Casares

Perdona Dante, como siempre perfecto, me había confundido en el acoplamiento de los parámetros, la macro fabulosa. Un salud Dante

Haz una lista desplegable en "E2", con las imágenes que quieras en la carpeta de fotos Pega este código en la hoja: Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Password:="1" On Error Resume Next ' Lista desplegable If...

Tendría que ver el archivo. Este es mi email: [email protected]

Yo pude solucionarlo así: Programador Modo diseño Y vas a: Insertar Forma Pinchando en la forma en propiedades la nombras: CommandButton1 Y en la hoja, pones: Private Sub CommandButton1_Click() '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- '...

Mándame el archivo Email: [email protected]

Gracias de todos modos

Lo he logrado, poniendo : ActiveSheet.Pictures.Locked = False ' DESPROTEGER IMAGENES SELECION Y me las desproteje y al final de la macro le puse ; ActiveSheet.Pictures.Locked = True ' PROTEGER IMAGENES SELECION Me ha salido perfecto...

Lo he conseguido, y a demás he conseguido para convertir a numero las celdas que quiera, en este caso en un rango que necesitaba. La macro me queda así : Private Sub Worksheet_Change(ByVal Target As Range) ' Para quitar el espacio+letras...

Lo he conseguido, lo he conseguido. Anteponiendo esto : Sheets("Estadistica Venta").Unprotect Password:="1" Lo saque de otro ejemplo de la gran " ELSA MATILDE "

Lo he logrado, con un ejemplo de Elsamatilde. Sub ACUMULAR_COBRADO() 'x Elsamatilde Sheets("Estadistica Venta").Range("F72") = Sheets("Estadistica Venta").Range("F72") + Range("G45") End Sub Lo he ajustado a mis necesidades y fenomenal