sscorsan

Alguien puede decirme xq me da error en este campo, en mi ordenador habitual la macro corre sin problema, pero en otro que utilizo ocasionalmente siempre tengo error en la misma linea. ' seleccion la hoja Materiales donde estan los botones Sheets("Materiales").Select ' selecciona el 1º boton ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select ' le cambia el nombre por la posicion donde ira el boton, me sirvira para identificarlo cuando sea pulsado Selection.ShapeRange.Name = "H" & donde DoEvents Selection.Copy ' le cambia el nombre , por si se pulsa en la hoja Materiales y no de error Selection.ShapeRange.Name = "H10" Sheets(hojaor).Select Range("H" & donde).Select DoEvents Sheets("Materiales").Select ' selecciona el 2º boton ActiveSheet.Shapes.Range(Array("Rounded Rectangle 3")).Select ' le cambia el nombre por la posicion donde ira el boton, me sirvira para identificarlo cuando sea pulsado Selection.ShapeRange.Name = "H" & donde DoEvents Selection.Copy ' le cambia el nombre , por si se pulsa en la hoja Materiales y no de error Selection.ShapeRange.Name = "H10" Sheets(hojaor).Select Range("H" & donde + 2).Select DoEvents ActiveSheet.Paste End Sub

Muchas gracias por tu ayuda. Has solucionado el problema perfectamente. Gracias de verdad!!!

En este archivo pretendo que en una hoja nueva de excel que tome el valor del numero de orden, se creen tantas copias de la tabla que veis en la hoja materiales como "Si" aparecen en el listado de Materiales de la hoja de inicio. La idea es que se pudieran copiar los nombres de esos materiales a cada una de las tablas y que las macros que tengo en la hoja materiales se copiaran a su vez. Gracias Materiales2024v2.xlsm