Dante Amor respondió:
Tienes que poner el código para guardar el archivo dentro del for: Sub tst() For Each c In Sheets("CATALOGO ").Range("F3:F9") Sheets("MATERIALES").[B1] = c.Value 'Inicio 'código para guardar el archivo 'Fin Next End Sub
Dante Amor respondió:
Te anexo la macro Sub Cambiar() 'Por.Dante Amor For Each c In Sheets("Hoja1").Range("F2:F20") [C5] = c.Value Next End Sub Supongo que los datos de la lista desplegable los tienes en alguna hoja y en algún rango de celdas. Bueno, tienes que cambiar en...
Macro para cambiar de valor de una lista desplegable