COPIAR DATOS DE UNA HOJA Y PASARLO A OTRA

[Benito Bartolomé]

Buen día a todos;
He conseguido crear una macro la cual me crea una hoja nueva con el nombre que tengo en una determinada celda pero no soy capaz de continuar con lo siguiente:
Quería copiar los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub Exportar()
Set Activa = ActiveSheet
Sheets.Add.Name = Activa.Range("G10")
Activa.Range("B10:F10").Copy Range("B10:F10")
End Sub

 

[Benito Bartolomé]

Muchas … Antoni;
Para no variar perfectísimo como siempre, pero una duda con el código, ¿Cómo puedo hacer para que me pregunte si quiero o no generar dicha hoja si ya existe ese...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub Exportar(): On Error GoTo CearHoja
Dim Activa As Worksheet
Application.DisplayAlerts = False
Set Activa = ActiveSheet
Sheets(Activa.Range("G10").Value).Select
If MsgBox("La hoja ya...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Benito Bartolomé]

Perfecto como siempre y también como siempre muy agradecido.

Gracias +++++