reitero mi problema

03/01/2004 - 12:07 por Osejol | Informe spam
Hola

Como en su momento no obtuve respuesta, a continuació vuelvo a exponer mi
problema

Tengo un libro con varias hojas. En todas ellas tengo bloqueadas casi todas
las celdas de manera que con el tabulador me desplazo solamente a las celdas
que se van a modificar. Esto funciona correctamente en todas las hojas
excepto en una en la cual pulsando el tabulador paso de la primera celda
desbloqueada a la siguiente y a partir de ahí ya no puedo hacerlo.

No tengo activada la tecla "bloquea desplazamiento", en las demás hojas
funciona bien.

Agradezco toda orientación sobre este problema.


Osejol

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
03/01/2004 - 20:42 | Informe spam
hola, Osejol !

... libro con varias hojas ... bloqueadas casi todas las celdas ...
... con el tabulador me desplazo solamente a las celdas que se van a modificar ...
... funciona correctamente en todas las hojas excepto en una ...
... pulsando el tabulador paso de la primera celda desbloqueada a la siguiente y a partir de ahi ya no puedo hacerlo.
No tengo activada la tecla "bloquea desplazamiento", en las demás hojas funciona bien.



no 'suena' como un comportamiento 'normal' de la aplicacion :(( ... a menos que... [se me ocurre]
-o- solo estan 'esas dos' celdas desbloqueadas
-o- [en alguna 'parte'] algun codigo 'limita' el desplazamiento 'por esa hoja' [propiedad 'ScrollArea']

¿comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Osejol
04/01/2004 - 09:46 | Informe spam
Hola Héctor Miguel

Te contesto:

Hay más de 2 celdas desbloquedas (me veo obligado a seleccionarlas con el
ratón)

Te reproduzco los códigos que tengo en ese libro y que hacen referencia a
esa hoja (OSEJOL)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 1 Then Exit Sub
Dim Cambia As String, Celda As Range
Cambia = Target.Columns(1).Address
For Each Celda In Range(Cambia)
If Celda.Offset(, 1) = 14 Then
Range("f1:m1").Copy Celda.Offset(, 5)
End If
Next
End Sub

Sub osejol()
Application.ScreenUpdating = False
Sheets("OSEJOL").Select
Range("C3:C10").Select
Selection.Copy
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Sheets("B").Select
End Sub

Sub filtro()
Sheets("OSEJOL").Select
Cells.Select
Selection.EntireColumn.Hidden = False
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
End Sub

Sub entrada()
ActiveWorkbook.Protect Password:="OSEJOL", Structure:=False,
Windows:=False
Sheets("COLUMNAS").Visible = True
Sheets("B").Visible = True
Sheets("C2").Visible = True
Sheets("C1").Visible = True
Sheets("P").Visible = True
Sheets("D").Visible = True
ActiveWorkbook.Protect Password:="OSEJOL", Structure:=True,
Windows:=False
Sheets("D").Select
End Sub

Sub auto_close()
Application.ScreenUpdating = False
ActiveWorkbook.Protect Password:="OSEJOL", Structure:=False,
Windows:=False
Sheets("OSEJOL").Select
If Worksheets("OSEJOL").AutoFilterMode Then
Selection.AutoFilter
Else
End If
Range("A3:A65536").Select
Selection.ClearContents
Range("F3:M65536").Select
Selection.ClearContents
Range("A1").Select
Sheets("OSEJOL").Visible = False
Sheets("B").Select
Range("N52").Select
ActiveCell.FormulaR1C1 = "1"
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Sheets("B").Visible = False
Sheets("C2").Select
Range("I3").Select
Sheets("C2").Visible = False
Sheets("C1").Select
Range("G3").Select
Sheets("C1").Visible = False
Sheets("P").Select
Range("C7").Select
Sheets("P").Visible = False
Sheets("D").Select
Range("B9").Select
Sheets("D").Visible = False
Sheets("E").Select
Range("F4").Select
ActiveCell.FormulaR1C1 = ""
ActiveWorkbook.Protect Password:="OSEJOL", Structure:=True,
Windows:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Sub cps()
Application.ScreenUpdating = False
Range("C25:P26").Select
Selection.Copy
Range("C4:P5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="R3C9"
Application.CutCopyMode = False
End Sub

Gracias por tu atención

Saludos

Osejol

Por cierto, al abrir el editor de VB me aparece el proyecto de un libro que
está cerrado. ¿Cómo es posible?




"Héctor Miguel" escribió en el mensaje
news:
hola, Osejol !

> ... libro con varias hojas ... bloqueadas casi todas las celdas ...
> ... con el tabulador me desplazo solamente a las celdas que se van a


modificar ...
> ... funciona correctamente en todas las hojas excepto en una ...
> ... pulsando el tabulador paso de la primera celda desbloqueada a la


siguiente y a partir de ahi ya no puedo hacerlo.
> No tengo activada la tecla "bloquea desplazamiento", en las demás hojas


funciona bien.

no 'suena' como un comportamiento 'normal' de la aplicacion :(( ... a


menos que... [se me ocurre]
-o- solo estan 'esas dos' celdas desbloqueadas
-o- [en alguna 'parte'] algun codigo 'limita' el desplazamiento 'por esa


hoja' [propiedad 'ScrollArea']

¿comentas?
saludos,
hector.


Respuesta Responder a este mensaje
#3 Osejol
04/01/2004 - 10:15 | Informe spam
Por cierto, Héctor Miguel

Olvidé decirte que mis socios no tienen ese problema con este mismo fichero.

Que yo sepa solamente ocurre eso en mi PC. Y solamente en una de las hojas.


Saludos y Gracias

Osejol


"Héctor Miguel" escribió en el mensaje
news:
hola, Osejol !

> ... libro con varias hojas ... bloqueadas casi todas las celdas ...
> ... con el tabulador me desplazo solamente a las celdas que se van a


modificar ...
> ... funciona correctamente en todas las hojas excepto en una ...
> ... pulsando el tabulador paso de la primera celda desbloqueada a la


siguiente y a partir de ahi ya no puedo hacerlo.
> No tengo activada la tecla "bloquea desplazamiento", en las demás hojas


funciona bien.

no 'suena' como un comportamiento 'normal' de la aplicacion :(( ... a


menos que... [se me ocurre]
-o- solo estan 'esas dos' celdas desbloqueadas
-o- [en alguna 'parte'] algun codigo 'limita' el desplazamiento 'por esa


hoja' [propiedad 'ScrollArea']

¿comentas?
saludos,
hector.


Respuesta Responder a este mensaje
#4 Héctor Miguel
04/01/2004 - 22:29 | Informe spam
hola, Osejol !

Hay mas de 2 celdas desbloquedas (me veo obligado a seleccionarlas con el raton)
Te reproduzco los codigos que tengo en ese libro y que hacen referencia a esa hoja (OSEJOL)
[...]



[al menos] 'en principio'... NO 'se ve' que por codigo haya alguna 'afectacion de importancia'
[relacionado con el 'impedimento' para 'tabular' a las siguientes celdas desbloqueadas]
'sin embargo...' hay dos 'situaciones' que 'ma llaman la atencion' ...

1.- del codigo expuesto [concretamente la macro 'Sub filtro()'...
la instruccion en la tercer linea 'des-oculta' TODAS las columnas de la hoja 'pero...'
'al NO haber' codigo que las 'oculte' [al menos de los 'expuestos']...
es probable que... el usuario las oculte 'manualmente' -???- [¿tu mismo?]
[probablemente dejando 'fuera del desplazamiento' las demas celdas desbloqueadas]
[da la impresion de que 'querias prevenir' tal situacion] :))

2.- con respecto de los comentarios que haces en el siguiente mensaje y al final del 'contestado'...
'... mis socios no tienen ese problema con este mismo fichero.'
'... solamente ocurre eso en mi PC. Y solamente en una de las hojas.'
'... editor de VB me aparece el proyecto de un libro que esta cerrado. ¿Como es posible?'
==> si [solamente] 'ocurre' EN TU PC ... y EN TU PC te 'aparece' el proyecto [vba] de un libro... '¿cerrado???'
[con seguridad] el libro de 'ese' proyecto [en el editor de vb]... ¡ NO ESTA 'CERRADO' !!!
a) o 'su ventana' esta oculta => verifica en excel: ventana -> mostrar... < b) o es un 'complemento' XLA [NO 'necesariamente' de alguna herramienta]
si tienes acceso libre a 'ese' proyecto de macros... [es probable que 'ahi' encuentres 'la causa'] ;)

¿comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#5 Osejol
04/01/2004 - 23:03 | Informe spam
"Héctor Miguel" escribió en el mensaje
news:
hola, Osejol !

> Hay mas de 2 celdas desbloquedas (me veo obligado a seleccionarlas con


el raton)
> Te reproduzco los codigos que tengo en ese libro y que hacen referencia


a esa hoja (OSEJOL)
> [...]

[al menos] 'en principio'... NO 'se ve' que por codigo haya alguna


'afectacion de importancia'
[relacionado con el 'impedimento' para 'tabular' a las siguientes celdas


desbloqueadas]
'sin embargo...' hay dos 'situaciones' que 'ma llaman la atencion' ...

1.- del codigo expuesto [concretamente la macro 'Sub filtro()'...
la instruccion en la tercer linea 'des-oculta' TODAS las columnas de


la hoja 'pero...'
'al NO haber' codigo que las 'oculte' [al menos de los


'expuestos']...
es probable que... el usuario las oculte 'manualmente' -???- [¿tu


mismo?]
[probablemente dejando 'fuera del desplazamiento' las demas celdas


desbloqueadas]
[da la impresion de que 'querias prevenir' tal situacion] :))



- Tienes razón, era una reminiscencia de una situación antigua. La he
quitado del código. Pero ese código actúa sobre una hoja distinta de aquella
en la que tengo el problema.

2.- con respecto de los comentarios que haces en el siguiente mensaje y al


final del 'contestado'...
'... mis socios no tienen ese problema con este mismo fichero.'
'... solamente ocurre eso en mi PC. Y solamente en una de las hojas.'
'... editor de VB me aparece el proyecto de un libro que esta


cerrado. ¿Como es posible?'
==> si [solamente] 'ocurre' EN TU PC ... y EN TU PC te 'aparece' el


proyecto [vba] de un libro... '¿cerrado???'
[con seguridad] el libro de 'ese' proyecto [en el editor de vb]...


¡ NO ESTA 'CERRADO' !!!
a) o 'su ventana' esta oculta => verifica en excel: ventana ->


mostrar... <> b) o es un 'complemento' XLA [NO 'necesariamente' de alguna
herramienta]
si tienes acceso libre a 'ese' proyecto de macros... [es probable que


'ahi' encuentres 'la causa'] ;)




- No, no hay nada especial con esto. Lo de mis socios se refería al problema
del tabulador. Lo del editor VB ocurrió mientras contestaba a tu anterior
mensaje pero ha sido algo puntual.

- Gracias por tu atención

- Osejol
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida