Ahora() invariable

On 20 feb, 14:46, "H ctor Miguel"
wrote:

hola, Juank !

> Me imagino que debe ser complicado estar del otro lado y tratar de adivinar ls preguntas de los demas

(cierto...) algunas veces es complicado descifrar los detalles no comentados
y si agregamos (re)preguntas que no se contestan... ya te puedes imagnar :)
entonces, voy a cambiar el estilo de (re)preguntar:

> el lector laser que tengo lee directamente al excel
> es por ello que ante cualquier descuido del personal encargado quisiera restringir la lectura solo a la columna A
> esto quiere decir por mas que se mueva accidentalmente a otra celda siempre se posesione a la celda siguiente de la ultima lectura
> lo estaba haciendo con prteccion de las demas celdas y dejando activa a la columna A.
> Tambien oculte las demas celdas pero las celdas de la columna B ya no las veo

=> ok, supongo que el dato se depositan en la celda activa (?)... preguntas:
     - si capturas dos o tres datos, la celda activa "avanza" por si sola ?, o sigues capturando en la misma celda ?
     - que sucede si activas la caracteristica de "mover despues del enter" ?
       (menu) herramientas / opciones / (ficha) modificar / => mover seleccion despues de ENTRAR (direccion: ...-abajo-...)

=> te sirve si abres el editor de vba y en las propiedades de esa hoja estableces la: ScrollArea en: => a:a
     (nota: esta caracteristica no se conserva al -re-abrir libros de excel, habria que establecerla en el evento '_open' del libro)

saludos,
hector.

Hector
La captura sigue avanzando por si sola..

El resto del comentario no lo entiendo ScrollArea.

Saludos
Juank

hola, Juank !

La captura sigue avanzando por si sola..

ok, voy a suponer que puedes usar la celda [A1] como "variable" para que el usuario NO pueda cambiar inadvertidamente la celda activa
es decir, el siguiente codigo "asume" que cuando la celda [A1] contenga el texto "normal" (sin las comillas)...
el usuario NO puede seleccionar ninguna celda en la hoja que no sea "la siguiente fila libre" a partir de [A3], PERO...
cuando la celda [A1] esta vacia o contiene cualquier dato DIFERENTE de "normal" (sin las comillas), la hoja tiene "navegacion libre"

- haz un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona la opcion de "ver codigo"
(se abrira el editor de vba con el modulo de codigo de la hoja)

- en ese modulo de codigo, copia/pega (o escribe) lo siguiente
(es probable que debas reemplazar cualquier otro codigo que ya exista para el evento '_selectionchange')

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then _
If LCase([a1]) <> "normal" And [a3] <> "" Then _
[a3:a50000].Find(Empty).Select
End Sub

- despues, cierras el editor de vba: {Alt} + {F4}
haz pruebas y... comentas ?

saludos,
hector.

On 21 feb, 00:27, "Héctor Miguel"
wrote:

hola, Juank !

> La captura sigue avanzando por si sola..

ok, voy a suponer que puedes usar la celda [A1] como "variable" para que el usuario NO pueda cambiar inadvertidamente la celda activa
es decir, el siguiente codigo "asume" que cuando la celda [A1] contenga el texto "normal" (sin las comillas)...
el usuario NO puede seleccionar ninguna celda en la hoja que no sea "la siguiente fila libre" a partir de [A3], PERO...
cuando la celda [A1] esta vacia o contiene cualquier dato DIFERENTE de "normal" (sin las comillas), la hoja tiene "navegacion libre"

- haz un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona la opcion de "ver codigo"
  (se abrira el editor de vba con el modulo de codigo de la hoja)

- en ese modulo de codigo, copia/pega (o escribe) lo siguiente
  (es probable que debas reemplazar cualquier otro codigo que ya exista para el evento '_selectionchange')

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$A$1" Then _
    If LCase([a1]) <> "normal" And [a3] <> "" Then _
      [a3:a50000].Find(Empty).Select
End Sub

- despues, cierras el editor de vba: {Alt} + {F4}
  haz pruebas y... comentas ?

saludos,
hector.

Hector

NO era lo que buscaba pero me dio luces para poder resolver el
problemita que tenia, muchisimas gracias .eres un grande del
excel.

Saludos
Juank