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

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

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

pueden cerrar el tema gracias

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.

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

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

SOLUCIONADO