Verificar el nombre de una hoja de calculo

3 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Verificar el nombre de una hoja de calculo

Buenos días

Tengo el siguiente código:

 

SubNombreHoja()
ActiveSheet.Name=Range("B1").Value
EndSub

Bueno pone el nombre a la hoja de calculo según el valor de la celda, mi pregunta es de que si hay otra hoja con el mismo nombre me de un aviso para cambiar de nombre o en su caso asignarle por defecto un carater numérico para diferenciarse de la otra hoja que tenga el mismo nombre.

SAludos cordiales

Jesús

 

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Podemos hacer algo así como

Podemos hacer algo así como:

SubNombreHoja()
On error goto SiFalla
  i=0
   ActiveSheet.Name=Range("B1").Value
 
Exit Sub

SiFalla:
  i=i+1
  ActiveSheet.Name=Range("B1").Value + i

End Sub


No lo he probado. Testéalo y juega con ello a ver qué sale.


Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Gracias

Gracias por la idea, muchas gracias

saludos cordiales

Jesús

Jesus Martinez Plantarosa