Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Como borrar nombres de celdas.

11/02/2005 - 12:51 por Un quijote | Informe spam
Ayuda Hacer una pregunta
Saludos,
Tengo la siguiente rutina con la que borro todos los nombres de celda en un
libro y tengo dos preguntas:
1ª ¿Como podria borrar los nombres de solo una hoja cualquiera?
2ª Ya que el libro tiene más de 1500 nombres, y con esta rutina el proceso
se alarga en exceso, no existe alguna otra forma de mejorar el tiempo de
ejecución.

Sub borrar_Nombres()
Dim nombCelda As Name
Dim n As Integer
'Recorrer el conjunto de objetos Names y eliminar
For Each nombCelda In ActiveWorkbook.Names
n = n + 1
nombCelda.Delete
Next

End Sub
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Anonimo
11/02/2005 - 16:53 | Informe spam
Pues de manera similar, en vez de utilizar workbook tienes
que utilizar Worksheet.
¿está justificado utilizar tantos nombres?
¿por qué utilizas en el bucle n = n+1?


Saludos,
Tengo la siguiente rutina con la que borro todos los


nombres de celda en un
libro y tengo dos preguntas:
1ª ¿Como podria borrar los nombres de solo una hoja


cualquiera?
2ª Ya que el libro tiene mà¡s de 1500 nombres, y con esta


rutina el proceso
se alarga en exceso, no existe alguna otra forma de


mejorar el tiempo de
ejecución.

Sub borrar_Nombres()
Dim nombCelda As Name
Dim n As Integer
'Recorrer el conjunto de objetos Names y eliminar
For Each nombCelda In ActiveWorkbook.Names
n = n + 1
nombCelda.Delete
Next

End Sub

.

Preguntas similares

 

Busqueda sugerida :