Comando para poder cambiar de hoja, con el texto de una celda.-

Prueba con este código

Option Explicit

Sub prueba()
Dim strNombre As String
strNombre = Sheet1.Range("C4")
Sheets(strNombre).Select
end sub


"JC" wrote:

Hola y Gracias por adelantado,
Necesitaría un comando en VBA, para con ayuda de un botón, poder activar un
cambio de hoja, cuyo título (el de la hoja) fuera el texto de una celda
determinada.

p.e.: Solo necesito que alguien me pueda decir como en.-
Sheets("CUADROS").Select
Poder cambiar "CUADROS", por el texto de una celda, donde yo anteriormente
he dejado un valor determinado.

Esperando haberme expresado con claridad (soy muy torpe en esto), quedo a la
espera de vuestros comentarios.

Un saludo

JC

Hola y Muchisimas Gracias Amigo EA:

He probado y ya me va como la seda.

Al principio, me daba un error de variable, al haber puesto la sub_rutina en
Option Explicit y porque la celda de la que toma el dato siempre está en la
hoja activa en ese momento, que se ha solucionado quitando en la línea:

strNombre = Sheet1.Range("C4")

El "Sheet1.", quedando de la siguiente manera:

strNombre = Range("C4")

Y ya por fín, despues de 2 semanas dandole vueltas, puedo ir de una hoja a
otra, según convenga por mi libro excel de 52 hojas, gracias a tu
inapreciable ayuda.

Gracias infinitas de nuevo EA.

Recibe un Caluroso Abrazo

JC


"EA" escribió:

Prueba con este código

Option Explicit

Sub prueba()
Dim strNombre As String
strNombre = Sheet1.Range("C4")
Sheets(strNombre).Select
end sub


"JC" wrote:

> Hola y Gracias por adelantado,
> Necesitaría un comando en VBA, para con ayuda de un botón, poder activar un
> cambio de hoja, cuyo título (el de la hoja) fuera el texto de una celda
> determinada.
>
> p.e.: Solo necesito que alguien me pueda decir como en.-
> Sheets("CUADROS").Select
> Poder cambiar "CUADROS", por el texto de una celda, donde yo anteriormente
> he dejado un valor determinado.
>
> Esperando haberme expresado con claridad (soy muy torpe en esto), quedo a la
> espera de vuestros comentarios.
>
> Un saludo
>
> JC