Foro Excel

como puedo crear un macro que a la vez que me vaya a una hoja me active un checkbox que existe en esa hoja? utilizé este código pero me dice que falta un objeto, muchas gracias

Código: Seleccionar todo

Sub Irahoja1()
Dim pepe As Boolean
pepe = checkbox1.Value
Sheets("hoja1").Select
Range("A1").Select
pepe = True


End Sub



Hola pipo11

Prueba con

Sub Irahoja1()
Sheets("hoja1").Select
ActiveSheet.Shapes("").Select
Selection.Value = xlOn
Range("A1").Select
End Sub

suponiendo que el Check Box es el 1.

Un saludo desde Vitoria

muchas gracias pero me da error me dice que el parametro no es correcto, que significa:
ActiveSheet.Shapes("").Select
Selection.Value = xlOn
??, el checkbox es el 1 y la hoja en la que estoy es hoja10 y quiero ir a hoja1 (ahí­ no está el problema).

Perdona pipo11

En vez de copiar y pegar he dado cortar y pegar, deberí­a poner

ActiveSheet.Shapes("Check Box 1").Select

con esto deberí­a funcionarte.

Lo siento nuevamente.

Un saludo desde Vitoria

me da error me dice que el método no admite esta propiedad u objeto, no se porque no funciona, porque la macro que me lleva a la hoja1 funciona lo que no va es la activación del checkbox1 (casilla de verificación), muchas gracais

Hola pipo11

Te adjunto un fichero con lo que pides, podrí­a ser que no te esté funcionando porque el checkbox que quieres activar no sea el 1, sino otro, con lo que deberí­as modificarlo en tu macro.

En última instancia cuelga tu fichero.

Un saludo desde Vitoria

esos es lo que necesito, lo que sucede es que el checkbox que utlizé no lo saqué del formulario sino del cuadro de controles, y el código es algo distinto, estoy utiliizando este pero me da error:
Dim pepe As Boolean

Sub Irahoja1()
pepe = checkbox1.Value
Sheets("hoja1").Select
pepe = True
Range("A1").Select
End Sub

Hola pipo11,

Vamos primero con tu codigo:

pipo11";p="24067 escribió:...el checkbox... del cuadro de controles...
... el código... me da error...

Dim pepe As Boolean

Sub Irahoja1()
pepe = checkbox1.Value
Sheets("hoja1").Select
pepe = True
Range("A1").Select
End Sub

Problemas por orden de gravedad:

Problema 1: Usas una referencia al objeto no calificada (sin indicar la hoja). Aqui debe ocurrir una de las dos cosas siguientes:

a) si el codigo se encuentra en el modulo de la hoja desde la cual se va a la hoja1, entonces Excel interpreta que el control CheckBox1 se encuentra en la hoja en cuyo modulo esta el codigo (es como si usaras Me.CheckBox). Si no hay ningun CheckBox1 en la hoja de partida, te dara el error Object Required (o lo mismo en castellano)

b) si el codigo se encuentra en un modulo estandar (p.ej. Modulo1), entonces Excel interpreta que el control CheckBox1 se encuentra en la hoja activa (es como si usaras ActiveSheet.CheckBox). Si no hay ningun CheckBox1 en la hoja activa (o sea la hoja de partida), te dara el error Object Required (o lo mismo en castellano)

Problema 2: El que le asignes a la variable pepe el valor del CheckBox1

pepe = checkbox1.Value

no quiere decir que le hayas asignado el objeto CheckBox1 a dicha variable (si ademas es del tipo Boolean y no Objeto o Shape o OLEObject , etc.). Si tuvieras que asignar el objeto deberias hacerlo parecido a lo siguiente:

Dim pepe as Shape
Set pepe = CheckBox1

Pero en este caso no es necesario (v. el codigo al final del mensaje). Total que la siguiente linea de tu procedimiento:

pepe = True

solo asigna el valor a la variable del tipo Boolean llamada pepe, pero no afecta al propio control CheckBox1 para nada.

Problema 3: Al declarar la variable pepe a nivel de modulo, esta se conserva entre las ejecucione de procedimientos y ocupa memoria [posiblemente] sin necesidad alguna.

Problema 4: En un codigo tan corto y sin uso repetido de la variable pepe, su uso es redundante ya que no hace sino anadir: dos lineas al codigo (sin ahorrar u optimizar nada) y ocupar memoria.

Solucion: Prueba el siguiente codigo:

Código: Seleccionar todo

Sub Irahoja1()
    With Sheets("Hoja1")
        .Select
        .CheckBox1 = True
    End With
End Sub

Perfecto voy a tener que seguir viendo manuales de vba para no cometer estas patadas, gracias

pipo11.

y si lo haces asi de sencillo:?

Private Sub Worksheet_Activate()
CheckBox1.Value = True
[a1].select
End Sub

esto lo debes colocar en la "sheet" donde tienes el checkbox(boton derecho\vercodigo en la pestaña donde esta el nombre de la hoja)

salu2