Macro copiar hoja y crear nombre

Hola todo expertos.

Necesito una macro que me copie lo que contiene una hoja llamada "datos" rango D1 a X30 y los copie en otra hoja creando el nombre "datos(2)" y cada vez que ejecute me cree otra ya con "datos3", luego  si ejecuto copiar de nuevo"datos4"

Será posible?

1 respuesta

Respuesta
2

Te anexo la macro

Sub copiar()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Sheets("datos").Copy After:=Sheets(Sheets.Count)
    ActiveSheet. Cells. Clear
    Sheets("datos"). Range("D1:X30"). Copy ActiveSheet. Range("D1")
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas