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

#11 Héctor Miguel
24/12/2008 - 03:00 | Informe spam
hola, Carlos !

1) los codigos que expones (al parecer) no son los que pudieran causar los conflictos que mencionas

2) si en las referencias del proyecto vba ninguna esta marcada con la palabra "FALTA (o MISSING")
me daria la impresion de que las fallas estan siendo ocasionadas porque "ese" archivo ha quedado currupto
(de alguna u otra forma, sobre todo si ya habias confirmado que funciono "perfecto" la primera vez) -?-

si ya te habia funcionado... es probable que "algo" se hubiera cambiado desde entonces -???-
comentas (si encuentras) algun detalle mas significativo ?
saludos,
hector.

__ OP __
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

... en el otro libro que esta vinculado al primero... tengo un cuadro combinado (pero este es... de formulario)
Mostrar la cita
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
Ads by Google
Search Busqueda sugerida