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.

|
Risposta
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

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

Risposta
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

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 28 gennaio 2021 90 visualizzazioni Si applica a: