Invio su cella destra



  • Invio su cella destra
    di Anonino (utente non iscritto) data: 29/11/2014 21:26:12

    Saluti a tutti. Qualcuno sarebbe cosi gentile da dirmi il codice per far in modo che in un range B2:E10 ogni volta che premo Invio anziche andare alla cella sottostante il cursore si sposta sulla prima cella a destra. Grazie mille.



  • di lepat (utente non iscritto) data: 30/11/2014 08:17:11

    prova questa
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B2:e10"), Target) Is Nothing Then
      If Target.Count = 1 Then
        If Target.Column = 5 Then
          Target.Offset(1, -3).Select
        Else
          Target.Offset(0, 1).Select
        End If
      End If
    End If
    End Sub


  • Invio su cella destra
    di Anonino (utente non iscritto) data: 30/11/2014 08:29:14

    Ciao lepat, funziona. Thanks.



  • di ninai (utente non iscritto) data: 30/11/2014 08:30:10

    ciao
    nelle opzioni di excel è previsto il cambio del tipo di spostamento all' invio.


  • Invio su cella destra
    di Anonino (utente non iscritto) data: 30/11/2014 08:32:31

    Ciao lepat, dove?



  • di lepat (utente non iscritto) data: 30/11/2014 08:53:25

    Ciao ninai, però immagino che valga per tutto il foglio, non soltanto in un range



  • di Santuberto (utente non iscritto) data: 30/11/2014 08:59:36

    Buongiorno a tutti.
    Lepat: " ... immagino che valga per tutto il foglio ..."
    Con Excel 2010 (non so con le altre versioni) confermo che "immagini" bene.
    Cordiali saluti



  • di ninai (utente non iscritto) data: 30/11/2014 16:32:26

    Sì, vale per tutto il foglio, l'ho voluto dare come consiglio, casomai servisse ugualmente.