Como seleccionar una hoja

Muchas Gracias KL ahora si me funciona perfecto,
disculpame por la moldestia
Saludos

El anterior codigo suponia q en la columna [C] tenias

una lista de nombres

de hoja e ibas a hacer clic sobre ellas, si quieres usar

un boton para

activar la hoja mejor usa lo siguiente.

Saludos,
KL

'--Inicio Codigo
Sub Test()
Dim MiHoja As Worksheet
On Error Resume Next
Set MiHoja = Sheets(Sheets("Pantalla").Range

("C4").Value)

On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End Sub
'--Fin Codigo


"Richard" wrote in

message

news:296f01c507da$0f818aa0$
No me funciona est es mi codigo

Sub Tren()
Dim Maquina As Integer
Sheets("Pantalla").Select
Moldura = Range("C2").Value
Maquina = Range("C3").Value
'X = Range("C3").Value
'X = Cells(j, 6)
Sheets(["Maquina"].Value).Select
End Sub

que puedo hacer

Sheets( [ C4 ] .Value).Activate

Quita los espacios que puse, solo son para que veas bien

los caracteres

"Richard" escribió

en el mensaje

news:2e1f01c507bf$548e3140$

Hola Grupo mi duda es la siguiente tengo tres hojas en
mi workbook llamadas "Pantalla", "Matriz" y "Captura"

Como puedo ver la hoja de "Captura" desde la hoja
de "Pantalla",
Es decir en la cela "C4" yo pongo el nombre

("Captura")

de la hoja que quiero ver y al darle clik a un boton

me

la despliegue.

Espero haberme dado a enteder y me puedan ayudar con

el

codigo.

Gracias por su ayuda
Saludos...

.

.

Ninguna molestia.

Me alegro de q te haya servido mi respuesta.

Saludos,
KL

"Richard" wrote in message
news:2a3901c507ec$5980d9a0$
Muchas Gracias KL ahora si me funciona perfecto,
disculpame por la moldestia
Saludos

El anterior codigo suponia q en la columna [C] tenias

una lista de nombres

de hoja e ibas a hacer clic sobre ellas, si quieres usar

un boton para

activar la hoja mejor usa lo siguiente.

Saludos,
KL

'--Inicio Codigo
Sub Test()
Dim MiHoja As Worksheet
On Error Resume Next
Set MiHoja = Sheets(Sheets("Pantalla").Range

("C4").Value)

On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End Sub
'--Fin Codigo


"Richard" wrote in

message

news:296f01c507da$0f818aa0$
No me funciona est es mi codigo

Sub Tren()
Dim Maquina As Integer
Sheets("Pantalla").Select
Moldura = Range("C2").Value
Maquina = Range("C3").Value
'X = Range("C3").Value
'X = Cells(j, 6)
Sheets(["Maquina"].Value).Select
End Sub

que puedo hacer

Sheets( [ C4 ] .Value).Activate

Quita los espacios que puse, solo son para que veas bien

los caracteres

"Richard" escribió

en el mensaje

news:2e1f01c507bf$548e3140$

Hola Grupo mi duda es la siguiente tengo tres hojas en
mi workbook llamadas "Pantalla", "Matriz" y "Captura"

Como puedo ver la hoja de "Captura" desde la hoja
de "Pantalla",
Es decir en la cela "C4" yo pongo el nombre

("Captura")

de la hoja que quiero ver y al darle clik a un boton

me

la despliegue.

Espero haberme dado a enteder y me puedan ayudar con

el

codigo.

Gracias por su ayuda
Saludos...

.

.

Hola Alex,

"Alex Taya" in message...

Hola, prueba este codigo, está más fácil...

?Es mas facil que que?

...tu escribes el nombre de la hoja y al darle clic en el
botón te lleva automáticamente.

Todos los codigos q se han ofrecido hacen exactamente eso.

Aqui tienes el procedimiento Sub que recibe como parametro
el contenido de la celda donde quieres escribir el nombre
de la hoja y luegp te lleva a al lugar que quieras:

A mi ver, crear todo este rollo de dos procedimientos pasando argumentos de
uno al otro es un derroche total. Tus macros de un total de 9 lineas se
puede reducir a tres:

Private Sub CmdIra_Click()
Sheets(Sheets("Pantalla").Range("C4").Value).Activate
End Sub

Y si el siguiente codigo tiene 7 lineas pues es por que ademas incluye el
manejo de los posibles errores:

Private Sub CmdIra_Click()
Dim MiHoja As Worksheet
On Error Resume Next
Set MiHoja = Sheets(Sheets("Pantalla").Range("C4").Value)
On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End Sub

Saludos,
KL

Hola KL, las opiniones se respetan, pero hay que recordar
que el texto inicial de este post entendi lo siguiente:
quiero escribir en una celda el nombre de la hoja hacia
donde quiero ir y al darle clic en un boton me despliege
automáticamente la hoja, y segun el codigo que yo envie el
usuario escribe el nombre de la hoja en una celda luego al
darle clic el procedimiento Cmdira_click recibe como
parametro el nombre de la hoja y llama al otro procedure y
despliega la hoja.

Bueno asi lo interprete yo.

Saludos.

Alex Taya
Perú

Hola Alex,

"Alex Taya" in message...

Hola, prueba este codigo, está más fácil...

?Es mas facil que que?

...tu escribes el nombre de la hoja y al darle clic en el
botón te lleva automáticamente.

Todos los codigos q se han ofrecido hacen exactamente eso.

Aqui tienes el procedimiento Sub que recibe como

parametro

el contenido de la celda donde quieres escribir el nombre
de la hoja y luegp te lleva a al lugar que quieras:

A mi ver, crear todo este rollo de dos procedimientos

pasando argumentos de

uno al otro es un derroche total. Tus macros de un total

de 9 lineas se

puede reducir a tres:

Private Sub CmdIra_Click()
Sheets(Sheets("Pantalla").Range("C4").Value).Activate
End Sub

Y si el siguiente codigo tiene 7 lineas pues es por que

ademas incluye el

manejo de los posibles errores:

Private Sub CmdIra_Click()
Dim MiHoja As Worksheet
On Error Resume Next
Set MiHoja = Sheets(Sheets("Pantalla").Range

("C4").Value)

On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End Sub

Saludos,
KL


.

Alex,

"Alex Taya" wrote in message...

...hay que recordar
que el texto inicial de este post entendi lo siguiente:
quiero escribir en una celda el nombre de la hoja hacia
donde quiero ir y al darle clic en un boton me despliege
automáticamente la hoja,

Esto precisamente no te lo discuto, creo q todos lo hemos entendido igual y
es lo q hacen las tres opciones q se han ofrecido.

...y segun el codigo que yo envie el
usuario escribe el nombre de la hoja en una celda luego al
darle clic el procedimiento Cmdira_click recibe como
parametro el nombre de la hoja y llama al otro procedure y
despliega la hoja.

Lo q creo q viene a decir mi mensaje es q lo de pasar argumento no esta
justificado ya q se pude hacer lo mismo con una instruccion muy simple.
P.ej: para consegir 1 no es necesario hacer (1+2+1-3)/1, basta con 1.

Saludos,
KL