Sposta cursore

Ciao.

Con codice Vb è possibile spostarsi ad ogni invio  da:

a) una cella alla successiva verso desta

b) da una riga alla successiva verso il basso.

Grazie.

Ciao.

Nunzio.

 

Informazioni domanda


Ultimo aggiornamento febbraio 26, 2018 Visualizzazioni 79 Si applica a:
Risposta

ciao Mauro.

Forse sbaglio io ma non si ferma alla colonna C ma prosegue  all'infinito

senza spostarsi alla riga successiva.

Grazie.

Ciao.

Nunzio.


Vedi qui:

http://www.maurogsc.eu/esempiforum13/onkey.zip

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Risposta

Ciao.

Con codice Vb è possibile spostarsi ad ogni invio  da:

a) una cella alla successiva verso desta

b) da una riga alla successiva verso il basso.

Grazie.

Ciao.

Nunzio.


Per tutti i fogli del file, utilizzando Enter del tastierino numerico(l'altro Enter avrebbe un suo perché....).

 

Questo in ThisWorkbook (o in Questa_cartella_di_lavoro):

 

Private Sub Workbook_Open()
    Application.OnKey "{Enter}", "m"
End Sub

 

E questo in un modulo standard (vado a capo se sono nella terza colonna, modifica a tuo piacimento):

 

Public Sub m()
    With ActiveCell
        If .Column = 3 Then
            Range("A" & .Row + 1).Select
        Else
            .Offset(0, 1).Select
        End If
    End With
End Sub

 

Chiudi e riapri il file. Prova un po'.

 

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.