Macro: ir a celda activa

30/01/2007 - 18:28 por CARLOS CARNERO | Informe spam

Muy buenas a todos: Tengo esta sintaxis correspondiente a una macro
que la hice de modo manual en un formulario de cuadro combinado,
determinando un respectivo rango (D5:D59) y cuando selecciono en este
cuadro, se activa en el menú de edición el "Ir a..." y se dirige a la
celda activa.

El problema que tengo es que cuando quiero insertar más filas y
haciendo la corrección en la sintaxis, la graba la modificación, pero
no opera y sale la siguiente ventana: "Se ha producido el error en
'1004 en tiempo de ejecución: No se encontraron celdas".

Sub Listadesplegable1_9_AlCambiar()
'
' Listadesplegable1_9_AlCambiar Macro
' Macro grabada el 24/05/2006 por
'
'Acceso directo: Ctrl+Mayús+I
'
Range("D5:D59").Select
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub

Agradeciendo de antemano su gentil colaboración,

Carlos Carnero Gálvez

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

macro para ir a la celda contigua

Leer las respuestas

#1 Héctor Miguel

31/01/2007 - 00:29 | Informe spam

hola, Carlos !

... Tengo esta sintaxis correspondiente a una macro que la hice de modo manual
en un formulario de cuadro combinado, determinando un respectivo rango (D5:D59)
y cuando selecciono en este cuadro, se activa en el menu de edicion el "Ir a..." y se dirige a la celda activa.
El problema que tengo es que cuando quiero insertar mas filas y haciendo la correccion en la sintaxis
la graba la modificacion, pero no opera y sale la siguiente ventana:
"Se ha producido el error en '1004 en tiempo de ejecucion: No se encontraron celdas".
Sub Listadesplegable1_9_AlCambiar()
Range("D5:D59").Select
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

1) la primera parte de tu consulta/exposicion/... no me queda muy 'clara' [que digamos] :-((
[eso de que al seleccionar un rango se active el menu edicion / ir a... y se vaya a la celda activa] -???-

2) el error que comentas [1004... no se encontraron celdas] es probable que al llegar la macro a la instruccion:
-> Selection.SpecialCells(xlCellTypeFormulas, 1).Select
a) NO existan celdas -> CON formulas -> cuyo resultado devuelva un valor numerico [dentro del rango seleccionado] -???-

comentas [si hubiera] algun detalle mas... 'significativo/concreto/...' ?
saludos,
hector.

Responder a este mensaje

#2 CARLOS CARNERO

08/02/2007 - 15:55 | Informe spam

Hola Hector mil disculpas por no responder oportunamente: Volviendo al
tema, a ver si me explico mejor amigo:

1. En primer lugar inserte un cuadro combinado de "formularios". En la
ventana de formato de control determine un rango como por ejemplo del
$D$5:$A$59.
2. En este segundo paso, no recuerdo bien como lo hice, pero eso si
fue de modo manual que le aplique una macro.
3. La función que cumple es que cuando yo selecciono en el cuadro
combinado (comprendido en el rango de la referencia), la celda activa
se direcciona a la celda digamos así que he seleccionado, como si
usará en el menú Edición "Ir a ..." (Ctrl+I). Ej: D20

Agradeciéndote de antemano tu valiosa colaboración,

Carlos Carnero Gálvez

Responder a este mensaje

#3 CARLOS CARNERO

12/02/2007 - 15:42 | Informe spam

Hola Héctor un gusto en saludarte: Cuando tengas un tiempito, por
favor dale una revisada ha este tema.

Gracias,

Carlos

Responder a este mensaje

#4 CARLOS CARNERO

15/02/2007 - 15:48 | Informe spam

On 30 ene, 18:29, "Héctor Miguel"
wrote:

hola, Carlos !

> ... Tengo esta sintaxis correspondiente a una macro que la hice de modo manual
> en un formulario de cuadro combinado, determinando un respectivo rango (D5:D59)
> y cuando selecciono en este cuadro, se activa en el menu de edicion el "Ir a..." y se dirige a la celda activa.
> El problema que tengo es que cuando quiero insertar mas filas y haciendo la correccion en la sintaxis
> la graba la modificacion, pero no opera y sale la siguiente ventana:
> "Se ha producido el error en '1004 en tiempo de ejecucion: No se encontraron celdas".
> Sub Listadesplegable1_9_AlCambiar()
> Range("D5:D59").Select
> ActiveSheet.Unprotect
> Selection.SpecialCells(xlCellTypeFormulas, 1).Select
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
> End Sub

1) la primera parte de tu consulta/exposicion/... no me queda muy 'clara' [que digamos] :-((
[eso de que al seleccionar un rango se active el menu edicion / ir a... y se vaya a la celda activa] -???-

2) el error que comentas [1004... no se encontraron celdas] es probable que al llegar la macro a la instruccion:
-> Selection.SpecialCells(xlCellTypeFormulas, 1).Select
a) NO existan celdas -> CON formulas -> cuyo resultado devuelva un valor numerico [dentro del rango seleccionado] -???-

comentas [si hubiera] algun detalle mas... 'significativo/concreto/...' ?
saludos,
hector.

Please Hector.

Gracias,

Carlos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida