Fijar celda por lector de Láser...

hola, Víctor !

... necesito llevar acabo un invetrario con un lector laser:
- Inicio en la Celda A2.
- Por cada lectura de codigo de barras brinca a la siguiente celda A3, A4, A5
- Necesito que la celda A2 sea fija, cada vez que el laser realice una lectura de codigo de barras.
Motivo: Tengo formulas y funciones asociadas a la celda A2 -BUSCARV-. ...

prueba haciendo un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona: ver codigo...
copia/pega (o escribe) lo siguiente (sustituye cualquier codigo en ese modulo ASUMIENDO que no utilizas otro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then [a2].Select
End Sub

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

Muchas gracias, funciona corrcetamente.
Saludos...

"Héctor Miguel" wrote:

hola, Víctor !

> ... necesito llevar acabo un invetrario con un lector laser:
> - Inicio en la Celda A2.
> - Por cada lectura de codigo de barras brinca a la siguiente celda A3, A4, A5
> - Necesito que la celda A2 sea fija, cada vez que el laser realice una lectura de codigo de barras.
> Motivo: Tengo formulas y funciones asociadas a la celda A2 -BUSCARV-. ...

prueba haciendo un clic-secundario sobre la etiqueta con el nombre de "esa" hoja y selecciona: ver codigo...
copia/pega (o escribe) lo siguiente (sustituye cualquier codigo en ese modulo ASUMIENDO que no utilizas otro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then [a2].Select
End Sub

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