Cambio de nombre en hoja creada

[SHAGGYNEYTOR]

amigos buenas noches desde México, tengo que realizar un trabajo el cual ya tengo un poco avanzado pero he llegado a un punto en donde tengo que modificar todo lo realizado nada mas por que necesito que al momento de crear una hoja y le pone nombre (ejemplo "B1 (1)") y así esta especificado en el código para crear las hojas y cuando quiero escribir otro código en la hoja creada tengo que seleccionar dicha hoja, el problema empieza cunado quiero hacer mas hojas (ejemplo "b1 (2), b1 (3), b2 (4) y asi) quisiera que me comentara si se pudiera hacer automático.

Sub UNA()

INICIO

Y = Worksheets.Count

Application.ScreenUpdating = False

Sheets.Add After:=Sheets(Sheets.Count)

Sheets("Hoja" & Y & "").Select

Sheets("Hoja" & Y & "").Name = "SIEMBRA (1)"

DSiembra

Application.ScreenUpdating = True

For x = 1 To 20

Application.ScreenUpdating = False

Sheets.Add After:=Sheets(Sheets.Count)

Y = Y + 1

Sheets("Hoja" & Y & "").Select

Sheets("Hoja" & Y & "").Name = "B" & x & " (1)"

TITULOS_BIOMETRIAS

Application.ScreenUpdating = True

Next

For Z = 1 To 6

Application.ScreenUpdating = False

Sheets.Add After:=Sheets(Sheets.Count)

Y = Y + 1

Sheets("Hoja" & Y & "").Select

Sheets("Hoja" & Y & "").Name = "ANALISIS" & Z & " (1)"

Application.ScreenUpdating = True

Next

MENU_BIOMETRIAS

Sheets("MENU BIOMETRIAS").Select

For x = 1 To 20

Application.ScreenUpdating = False

Sheets("B" & x & " (1)").Select

Application.ScreenUpdating = True

Next

Sheets("ANALISIS1 (1)").Select

Application.ScreenUpdating = False

TTALL

TINC

TINCTR

TINCP

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

Sheets("ANALISIS2 (1)").Select

Application.ScreenUpdating = False

TSOBRE

TOM

TSTL

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

Sheets("ANALISIS3 (1)").Select

Application.ScreenUpdating = False

TBIOM

BINC

BACT

BTTL

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

Sheets("ANALISIS4 (1)").Select

Application.ScreenUpdating = False

TALIM

TALIMHA

TATL

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

Sheets("ANALISIS5 (1)").Select

Application.ScreenUpdating = False

TFCA

TFCAS

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

Sheets("ANALISIS6 (1)").Select

Application.ScreenUpdating = False

TOXIAM

TOXIPM

TOXIPROM

TEMPAM

TEMPPM

TEMPPROM

TSALPROM

LINK_ESTANQUES

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayGridlines = False

Application.ScreenUpdating = True

End Sub

este es un ejemplo de lo que estoy realizando trate de subir un archivo pero no me lo puede adjuntar es pero me puedan ayudar.

saludos

SHAGGYNEYTOR

[Armando Montes]

Hols, recibiras mejor atencion subiendo tu libro con los resultados esperados y el codigo incluido.

Los codigos publicados deben incluir etiquetas, mas info en:

Normas AyudaExcel | Ayuda Excel

[SHAGGYNEYTOR]

ok gracias no e podido subir el archivo tendré que solucionarlo solo de todos modos se les agradece

[SHAGGYNEYTOR]

pueden cerrar el tema gracias

[Armando Montes]

Intentalo comprimiendo el archivo o subiendolo a algun servidor gratuito.

Para mejor aprovechar el foro sugiero leer las Normas y AyudaExcel cuyos links estan en la parte superior de esta misma pagina.

[SHAGGYNEYTOR]

listo ya pude subir un archivo de prueba le explico un poco al momento de abrir el archivo encontraremos dos botones le damos clic al de crear y ponemos el tex box el numero 1 y automáticamente les creara hojas, todas con el nombre y entre paréntesis el numero 1 "(1)" como puedo cambiar este numero automáticamente si doy dos en el tex box que me cree las hojas tanto del (1) y del (2), cabe mencionar que el nombre de las hojas es el mismo lo único que cambia es el numero entre paréntesis.

les agradeceré mucho su valiosa ayuda

prueba-1.zip

[SHAGGYNEYTOR]

GRACIAS YA ENCONTRE LA SOLUCION PODEMOS DAR POR SOLUCIONADO NDA MAS PUSE UNA CONSTANTE Y LE ASIGNE UN VALOR Y LISTO MUCHAS GRACIAS

[Armando Montes]

SOLUCIONADO