Cuadro combinado_combox_ctrl I

17/12/2008 - 22:50 por CARLOS CARNERO | Informe spam
Muy buen día a todos:
Tengo un cuadro combinado-combox que tiene como celda de referencia a
la A1 y como rango de entrada A12:A60 que tiene valores del 1 al 7 en
las celdas A12, A15, A30, A38, A45, A54 y A60 respectivamente.

Lo que necesito es que cuando A1 tenga por ejemplo el valor 4, como un
"ctrl I" se desplace a la celda que tiene similar valor, que es en
este caso A38.
¿Qué sintaxis podría usar?

Se agradece de antemano la atención y saludos,

Carlos

Preguntas similare

Leer las respuestas

#6 CARLOS CARNERO
19/12/2008 - 18:27 | Informe spam
Hola Héctor un gusto en saludarte: Gracias por lo último. Estaba
probando lo del combobox y me aparece una ventana con el siguiente
mensaje: “Se ha producido el error ‘1004’ en tiempo de ejecución:
Error en el método Select de la clase Range. Cuando clickeo “Depurar”
sombrea el siguiente texto “ Range (“a” & Fila + 11).Select “ y luego
aparece otra ventana titulada “Microsoft Office Excel está recuperando
los documentos”.
¿Será porque este libro esta vinculado con otro? . Estoy un tanto
desconcertado.

Gracias,

Carlos
#7 Héctor Miguel
19/12/2008 - 21:37 | Informe spam
hola, Carlos !

Mostrar la cita
el error 1004 en tiempo de ejecucion tiene un "sin-numero" de (posibles) causas
de entre las mas comunes, comprueba si se hubieran perdido referencias a librerias (en el editor de vba)
ve a (menu) edicion / referencias... y revisa si alguna dice "FALTA: xxx" o "MISSING: xxx"

si ya te habia funcionado... es probable que "algo" se hubiera cambiado desde entonces -???-
comentas (si encuentras) algun detalle mas significativo ?
saludos,
hector.
#8 CARLOS CARNERO
22/12/2008 - 18:24 | Informe spam
Hola Héctor. Cuando retiro o elimino la sintaxis:

Dim Fila As Integer
Select Case Val(ComboBox1.Value)
Case 1 To 7
Fila = Application.Match(Val(ComboBox1.Value), Range("a12:a60"),
0)
Range("a" & Fila + 11).Select
End Select
End Sub

...no sale más el mensaje, pero me quedo sin la opción que persigo de
automatizar con el Combobox el ir a la celda respectiva.

Tal como me has sugerido, he revisado las “Referencias –VBAPProject” y
sólo tengo habilitadas las siguientes:

1. Visual Basic For Applications
2. Microsoft Excel 12.0 Object Library
3. OLE Automation
4. Microsoft Office 12.0 Object Library
5. Microsoft Forms 2.0 Object Library

Saludos,

Carlos
#9 Héctor Miguel
22/12/2008 - 22:39 | Informe spam
hola, Carlos !

no se ve claro cual es la sintaxis que retiras o eliminas -?-
tampoco se aprecia si el codigo esta en el evento '_change' del combo o en algun otro procedimiento

si fuera el caso de que el codigo lo pusiste en el evento '_click' de algun commandbutton...
comprueba (o corrige) que su propiedad "TakeFocusOnClick" la tenga en False -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
Mostrar la cita
#10 CARLOS CARNERO
23/12/2008 - 21:28 | Informe spam
La sintaxis que retiro o la elimino (temporalmente a efecto de
pruebas) esta en la hoja del ComboBox1 y en la ventanita de la derecha
“Change” (¿esto es el evento, si?):

Private Sub ComboBox1_Change()
Dim Fila As Integer
Select Case Val(ComboBox1.Value)
Case 1 To 7
Fila = Application.Match(Val(ComboBox1.Value), Range("a12:a60"),
0)
Range("a" & Fila + 11).Select
End Select
End Sub

A su vez en el otro libro que esta vinculado al primero del que
estamos comentando tengo un cuadro combinado (pero este es de lista ó
controles de formulario) donde tengo esta sintaxis, que no sé si con
esta, es la que esta creando conflicto:

Sub Listadesplegable2_AlCambiar()
' Macro grabada el 28/05/2002 por BVL
'
' Acceso directo: Ctrl+Mayús+I
'
Range("B7:B131").Select
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub

Saludos y una vez más, muchas gracias por tu atención,
Ads by Google
Search Busqueda sugerida