Elsa Matilde

Al momento de proteger la hoja debes quitar el tilde a la primera opción, de ese modo no se seleccionarán las celdas bloqueadas. Sdos y no olvides valorar la respuesta (opciones: excelente o buena)

No veo que el código esté mal, al contrario, si esos campos quedan vacíos le envías un mensaje de que los ingrese y se cancela el botón. A continuación te faltan las instrucciones de qué hacer con los campos rellenados... a dónde los vas a guardar....

¿Podrías explicar un poco más lo que necesitas 'extraer'? ¿Y dónde copiarlo?

Si la hoja no tiene otros datos debajo de la tabla que necesitas rellenar, debes buscar la última fila desde alguna columna que esté completa, suponiendo entonces que sea la col A agrega esta instrucción: x = Range("A" & Rows.count).end(xlup).Row...

Necesitas una macro que controle el cambio en col D. Con ALT + F11 entras al Editor de macros. Desde el panel a tu izquierda (Microsoft Excel Objetos) seleccioná con doble clic la HOJA donde vas a trabajar y allí copiá este código: Private Sub...

Acabo de publicar un video con el tema de listas dependientes o relacionadas. Allí mismo encontrarás el link de mi blog desde donde descargar el archivo con los ejemplos explicados. Seguramente podrás adaptar alguno de ellos a tu caso....

Te dejo la instrucción para el formato Moneda. Es la moneda que tengas en tu configuración regional de Windows. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1, "$#,##0.00") 'moneda End Sub Con la grabadora...

¿A qué llamas 'apartado'? ... Imaginaré que se trata de un control textbox. Estas serían las instrucciones donde debes ajustar nombre de libro y nombre de hoja. maxi =...

No queda claro si el rango va desde fila 15 hasta el final o solo hasta fila 21. Dejo comentarios en el mismo código para que lo ajustes. Sub creaHojasCodigo() 'x Elsamatilde Sheets("HOJA").Select 'se recorre la col B desde fila 15 .... ajustar fin...

Cuando declaras los objetos como lo has hecho, con Set wsHojaDestino, cada vez que mencionas un rango debes indicarle de qué objeto se trata: Aqui por ejemplo: ultfila3 = Range("J" & Rows.Count).End(xlUp).Row Ya no sabemos de qué libro hoja estamos...