Como seleccionar una hoja

Richard,

Prueba el siguiente codigo sin cambiarlo. Este codigo no requiere la
variable Maquina, pero por si tienes q hacer uso de ella mas adelante, te la
introduzco.

Saludos,
KL

Sub Tren()
Dim Maquina As String
Maquina = Sheets("Pantalla").Range("C3")
Sheets(Maquina).Activate
End Sub

o tal como te habia sugerido Manuel, si la hoja "Pantalla" es de donde
llamas el macro, entonces:

Sub Tren()
Sheets([C3].Value).Activate
End Sub


"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...

.

Richard,

Si te he entendido bien, el siguiente codigo depositado en el modulo de la
hoja "Pantalla" deberia hacer lo q buscas.

Saludos,
KL

'--Inicio Codigo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MiHoja As Worksheet
If Not Intersect(ActiveCell, Columns("C:C")) _
Is Nothing Then
On Error Resume Next
Set MiHoja = Sheets(ActiveCell.Value)
On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End If
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...

.

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


"KL" wrote in message
news:Og5CnL%

Richard,

Si te he entendido bien, el siguiente codigo depositado en el modulo de la
hoja "Pantalla" deberia hacer lo q buscas.

Saludos,
KL

'--Inicio Codigo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MiHoja As Worksheet
If Not Intersect(ActiveCell, Columns("C:C")) _
Is Nothing Then
On Error Resume Next
Set MiHoja = Sheets(ActiveCell.Value)
On Error GoTo 0
If Not MiHoja Is Nothing Then MiHoja.Activate
End If
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...

.

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, prueba este codigo, está más fácil y lo bueno es que
tu escribes el nombre de la hoja y al darle clic en el
botón te lleva automáticamente.

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:

Public Sub irahojas(hojas As String)
Sheets(hojas).Select
Application.ActiveSheet.Range("A5").Select
End Sub

Ahora colocamos un botón de comando y desde alli llamamos
al procedimiento pasándole como parametro el contenido de
la celda:

Private Sub CmdIra_Click()
Call irahojas(Application.Range("a2").Value)
End Sub

Saludos.


Alex Taya
Perú

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...
.