Por favor, ayuda!!

29/03/2006 - 12:03 por carmen | Informe spam
Necesito que la macro que estoy haciendo, al principio, me pida el
nombre de la hoja con la que vamos a trabajar y despues lo utilice a lo
largo del programa. Como se hace?
Ademas quiero que antes que nada, cierre todas las hojas, menos la que
nos interesa. Este ha sido mi intento, pero me da un error al llegar a
Sheets(i).Delete
Alguien me puede ayudar?Como se utiliza luego el nombre que tengo
almacenado en la variable Nombre?
Muchas muchas gracias

Dim Nombre As String
Nombre = InputBox("Como se llama la primera hoja?",
"DatosCompletosBalanced")
' Borra todas las hojas menos la primera
Application.DisplayAlerts = False
Dim i As Integer
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> "& Nombre" Then Sheets(i).Delete
Next i
 

Leer las respuestas

#1 Juan
29/03/2006 - 17:01 | Informe spam
hola

te envio el codigo modificado
revisa la declaración del inputbox y la comparacion de las vaiables del
nombre

un saludo
juan

== inicio codigo
Sub EliminaHojas()

Dim Nombre As String
Nombre = InputBox("Como se llama la primera hoja?", _
, "Hoja2")
' Borra todas las hojas menos la primera
Application.DisplayAlerts = False
Dim i As Integer
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> Nombre Then Sheets(i).Delete
Next i

End Sub

= fin codigo

Preguntas similares