Copiar una hoja a otra indicándole el nombre

Hola, estoy intentando copiar un rango de datos de una hoja (comedor) a otra creada de nuevo e insertando su nombre mediante un inputbox. Me crea la hoja pero no pega los valores del rango que le he dado. El código es éste:

Sub ejemplo_variación()
Sheets("comedor").Select
Range("b5:j50").Copy


hoj = Application.InputBox("Nombre de la hoja", "Copiar hoja", Type:=2)
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = hoj


Sheets(hoj).Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues '(aquí me da el error)
Application.CutCopyMode = False
End Sub

Un saludo y muchas gracias por su contestación.

2 Respuestas

Respuesta
1

De esta forma quedaría

Sub ejemplo_variación()
Sheets("comedor").Select
hoj = Application.InputBox("Nombre de la hoja", "Copiar hoja", Type:=2)
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = hoj
Sheets("comedor").Range("b5:j50").Copy
Sheets(hoj).Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues '(aquí me da el error)
Application.CutCopyMode = False
End Sub

El problema está, que primero copias, luego solicitas el nombre y en ese momento ya no tienes la selección de copy, ya se perdió, por lo que debes, primero pedir el nombre, crear la hoja, copiar y luego pegar.

Saludos. Dam

Respuesta
1

Que sí, que yo he probado eso mismo y me da el mismo error. Pero que por más que pruebo no consigo arreglarlo, no entiendo por qué.

Voy a seguir intentándolo, me tiene mosqueado.

Ya está resuelto.

El error se debía a que la sentencia del InputBox hacía que se perdiese el contenido del portapapeles. Siempre que se hace una operación de copiar y pegar hay que tener cuidado con lo que se hace entre medias, mejor hacer inmediatamente el pegado.

Entonces basta con cambiar el orden creando la hoja antes de copiar para que funcione.

Sub ejemplo_variacion()

hoj = Application.InputBox("Nombre de la hoja", "Copiar hoja", Type:=2)
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = hoj
Sheets("comedor").Select
ActiveSheet.Range("b5:j50").Copy
Sheets(hoj).Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Y con esto evitamos ese error.

Muchas gracias por tu interés, ya había solucionado el problema pero no me había acordado de finalizar.

Perdón y gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar celdas rellenas de diferentes hojas a otra hoja

Tengo un archivo que tiene diferentes hojas, son iguales entre sí ya que indican la actividad de cada gestor en el mes. Dentro del archivo tengo una hoja de resumen en la que quiero copiar las celdas que están escritas de cada hoja. Las filas de cada...
1 respuesta

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Juntar información en una sola hoja

Espero que me puedan ayudar con una macro que permita juntar la información de 6 hojas que tengo en una sola hoja teniendo en cuenta que la información de cada hojapuede cambiar en cantidades, el formato que utilizo es una base de datos en 2003,...
1 respuesta

Macro copiar y pegar en celdas consecutivas, días distintos.

Tengo una hoja donde relleno la caja que he echo en el bar cada dia, me gustaría que al pulsar una botón, me copie una celda en otra pagina, i al dia siguiente al volver a pulsar el botón me vuelva a copiar esa misma celda pero en la celda...
1 respuesta

Como juntar los datos de varias hojas en una sola

Tengo un archivo en el cual hay más de 20 hojas, pero necesito tener esa información en una sola hoja, como puedo juntar todas esas hojas.
2 respuestas

Extraer columnas de varias hojas a una sola

Espero alguien me pueda ayudar, tengo un libro con 5 hojas (periodo 1, periodo 2, etc) en la hoja resumen del mismo libro necesito extraer 3 columnas de cada una de las hojas anteriores y que los datos se concentren hacia abajo de acuerdo al periodo...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Copiar la misma celda de muchas hojas de un mismo Libro Excel a otra Hoja distinta o Libro.

Tengo un archivo Excel con unas 7.000 hojas. Necesito crear un archivo (ya sea una hoja dentro del mismo Libro o un Libro aparte), donde copiar el dato de la misma casilla en todas las 7000 hojas. Ejemplo: En cada hoja del Libro, en la casilla b11,...
2 respuestas

Necesito una macro para copiar varias celdas a una hoja resumen colocándolas una debajo de la otra

Tengo una hoja resumen (Hoja1) y una serie de hojas de datos, no siempre son el mismo número. Los nombres de las hojas de datos van desde el 1 en adelante. En la hoja resumen quiero copiar las celdas a5, d12 y d15 de cada hoja de datos y que se me...
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta