Saltar al contenido

Agregar hojas en un libro

publicado

Estimada(o)

Junto con saluda y quizás sea básico para algunos, no logro agregar una hoja al final de la última que exista, estoy escribiendo

....

actual ---> variable string que contiene el texto con el cual se nombrará la nueva hoja

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = actual

 

....

error 1004---me indica 

 

 

gracias de antemano

 

Featured Replies

publicado

Tu macro funciona cuando no existe la hoja a crear, en caso contrario da el error que describes.

Sub AñadirHoja()
actual = "Hola"
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = actual
End Sub

O lo que es lo mismo, funciona la primera vez y dará error a partir de la segunda.

publicado
  • Autor

Gracias Antoni, acabo de descubrir mi error y era que la variable actual que tiene el nombre de la hoja u hojas que tengo que crear, es muy largo asi es que acorté a 18 y funciona impecable. Gracias por tu disposición

 

Saludos

 

Juan Manuel

 

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.