Antoni

Para eso está el control CheckBox.

Actualizado a Windows última versión, Office 365 a última versión y si me funciona MSForms.DataObject.

Sube tu archivo y cuando pueda le echo un vistazo.

No conozco esa solución para desactivar la cinta del programador, salvo la que ya ha expresado Gerson, o sea, deshabilitandola de forma manual. En cualquier caso, si alguien es capaz de desproteger el proyecto VBA, es que tiene suficientes conocimientos como para desactivar cualquier otra solución. ¿Y para que quieres la cinta del programador si eres capaz de entrar directamente al editor de VBA desprotegiéndolo?

Con ordenar previamente los datos por Elemento/Componente/Categoría, tema resuelto.

¿Que entiendes por imagen rota?

Protege el proyecto VBA y listo.

Tienes mal la sintaxis de la propiedad picture del botón de alternar: Private Sub ToggleButton1_Click() If ToggleButton1 = True Then ToggleButton1.Picture = LoadPicture ("C:\Users\usuario\Desktop\AL DIA.jpg") Else ToggleButton1.Picture = LoadPicture ("C:\Users\usuario\Desktop\VENCIDO.jpg") End If End Sub

LoadPicture("C:\Users\usuario\Desktop\AL DIA.jpg")

Archivo Excel, no imágenes.

¿¿¿ ???

¿Y el archivo?

No hay solución para lo que pides, unifica el Stock en una sola hoja y no tendrás problemas. Si necesitas saber el stock por marca y editorial, usa autofiltro/filtro avanzado. Paz y amor. 👼

Hola foreros: Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post. Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. Los cinco últimos consultantes acumulan la friolera de 1.470 respuestas en su historial de consultas. Esto va más allá de alguna consulta puntual sobre dudas que puedan surgir en el desarrollo de un proyecto. Propongo a la dirección del foro que de alguna forma se ponga punto final a esta práctica, ¿como?, quizás impidiéndoles nuevas consultas por un tiempo, o cobrándoles por ello, o limitando el número de respuestas de sus consultas, no se, pero algo hay que hacer. Repito, ¿Vale la pena seguir en el foro para esto?. Ahí lo dejo. Saludos

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Offset(0, 1).Resize(1, 3).ClearContents End If End Sub